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

Corrected getNextParEdgeId in the flow-graph building to also actually increment the id ready for the next call

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

3
common/FlowGraph.hs
View File

@ -214,7 +214,8 @@ buildFlowGraph funcs s
addDummyNode m = addNode' m labelDummy m AlterNothing
getNextParEdgeId :: GraphMaker mLabel mAlter label Int
getNextParEdgeId = do (_,pi,_,_) <- get
getNextParEdgeId = do (a, pi, b, c) <- get
put (a, pi + 1, b, c)
return pi
addParEdges :: Int -> (Node,Node) -> [(Node,Node)] -> GraphMaker mLabel mAlter label ()