Reordered the pass list so that the usage checking happens earlier
This commit is contained in:
parent
1151fab5ad
commit
63af1381f2
|
@ -34,11 +34,9 @@ import Unnest
|
||||||
commonPasses :: CompState -> [(String, Pass)]
|
commonPasses :: CompState -> [(String, Pass)]
|
||||||
commonPasses opts =
|
commonPasses opts =
|
||||||
[ ("Simplify types", simplifyTypes)
|
[ ("Simplify types", simplifyTypes)
|
||||||
, ("Simplify expressions", simplifyExprs)
|
] ++ (if csUsageChecking opts then [("Usage checks", runPassR usageCheckPass)] else []) ++
|
||||||
]
|
[ ("Simplify expressions", simplifyExprs)
|
||||||
++ (if csUsageChecking opts then [("Usage checks", runPassR usageCheckPass)] else []) ++
|
, ("Simplify processes", simplifyProcs)
|
||||||
[
|
|
||||||
("Simplify processes", simplifyProcs)
|
|
||||||
, ("Flatten nested declarations", unnest)
|
, ("Flatten nested declarations", unnest)
|
||||||
, ("Simplify communications", simplifyComms)
|
, ("Simplify communications", simplifyComms)
|
||||||
]
|
]
|
||||||
|
|
Loading…
Reference in New Issue
Block a user