Reordered the pass list so that the usage checking happens earlier

This commit is contained in:
Neil Brown 2008-02-11 01:16:27 +00:00
parent 1151fab5ad
commit 63af1381f2

View File

@ -34,11 +34,9 @@ import Unnest
commonPasses :: CompState -> [(String, Pass)]
commonPasses opts =
[ ("Simplify types", simplifyTypes)
, ("Simplify expressions", simplifyExprs)
]
++ (if csUsageChecking opts then [("Usage checks", runPassR usageCheckPass)] else []) ++
[
("Simplify processes", simplifyProcs)
] ++ (if csUsageChecking opts then [("Usage checks", runPassR usageCheckPass)] else []) ++
[ ("Simplify expressions", simplifyExprs)
, ("Simplify processes", simplifyProcs)
, ("Flatten nested declarations", unnest)
, ("Simplify communications", simplifyComms)
]