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 :: 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)
] ]