suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Refactored a couple of clauses in the building of the control-flow graph

Browse Source
This commit is contained in:
Neil Brown 2007-10-28 17:04:45 +00:00
parent 5c4bf74a75
commit 49228150cf
1 changed files with 13 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
common/FlowGraph.hs
View File

@ -135,24 +135,21 @@ buildFlowGraph blank f s
return (nStart, nEnd)
_ -> return (-1,-1)
buildStructured _ (A.OnlyP _ p) = buildProcess p
buildStructured outer (A.OnlyO _ (A.Option m es p))
= do nexp <- addNode' m (A.ExpressionList m es)
(nbodys, nbodye) <- buildProcess p
addEdge ESeq nexp nbodys
buildStructured outer (A.OnlyO _ opt)
= do (s,e) <-
case opt of
(A.Option m es p) -> do
nexp <- addNode' m (A.ExpressionList m es)
(nbodys, nbodye) <- buildProcess p
addEdge ESeq nexp nbodys
return (nexp,nbodye)
(A.Else _ p) -> buildProcess p
case outer of
Case (cStart, cEnd) ->
do addEdge ESeq cStart nexp
addEdge ESeq nbodye cEnd
_ -> throwError "Option found inside CASE statement"
return (nexp,nbodye)
buildStructured outer (A.OnlyO _ (A.Else m p))
= do (nbodys, nbodye) <- buildProcess p
case outer of
Case (cStart, cEnd) ->
do addEdge ESeq cStart nbodys
addEdge ESeq nbodye cEnd
_ -> throwError "Option found inside CASE statement"
return (nbodys,nbodye)
do addEdge ESeq cStart s
addEdge ESeq e cEnd
_ -> throwError "Option found outside CASE statement"
return (s,e)
buildStructured outer (A.Spec m spec str)
= do n <- addNode' m spec
(s,e) <- buildStructured outer str