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

Fixed up a couple of lines to properly handle the difference between Left False and Left True when building the flow-graph

Browse Source
This commit is contained in:
Neil Brown 2008-02-01 11:09:23 +00:00
parent f8844edcb0
commit 0a22ebf34b
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
common/FlowGraph.hs
View File

@ -346,7 +346,8 @@ buildFlowGraph funcs s
_ -> return outer _ -> return outer
nodes <- buildStructured outer' str (route33 route A.Spec) nodes <- buildStructured outer' str (route33 route A.Spec)
case nodes of case nodes of
Left {} -> do addEdge ESeq n n' Left False -> do addEdge ESeq n n'
Left True -> return ()
Right (s,e) -> do addEdge ESeq n s Right (s,e) -> do addEdge ESeq n s
addEdge ESeq e n' addEdge ESeq e n'
return $ Right (n,n') return $ Right (n,n')
@ -393,7 +394,8 @@ buildFlowGraph funcs s
pId <- getNextParEdgeId pId <- getNextParEdgeId
nodes <- buildStructured (OPar pId (nStart, nEnd)) s (route33 route A.Par) nodes <- buildStructured (OPar pId (nStart, nEnd)) s (route33 route A.Par)
case nodes of case nodes of
Left {} -> return () -- already wired up Left False -> do addEdge ESeq nStart nEnd -- no processes in PAR, join start and end with simple ESeq link
Left True -> return () -- already wired up
Right (start, end) -> Right (start, end) ->
do addEdge (EStartPar pId) nStart start do addEdge (EStartPar pId) nStart start
addEdge (EEndPar pId) end nEnd addEdge (EEndPar pId) end nEnd