summaryrefslogtreecommitdiff
path: root/optimiser.hs
diff options
context:
space:
mode:
Diffstat (limited to 'optimiser.hs')
-rw-r--r--optimiser.hs7
1 files changed, 3 insertions, 4 deletions
diff --git a/optimiser.hs b/optimiser.hs
index 2a27a5e..3163c33 100644
--- a/optimiser.hs
+++ b/optimiser.hs
@@ -1,10 +1,9 @@
module Optimiser(optimise) where
import Data.List
-import Data.Function
import qualified Data.Map.Strict as Map
-import Debug.Trace
+-- import Debug.Trace
import AST
@@ -17,9 +16,9 @@ optimisations =
[collectSimilar, nullOps, collectAdds, propagateKnowns, firstSets, propagateSlides, uselessEnd, specialLoops, normaliseOrder]
composedOpts :: Optimisation
--- composedOpts = foldl1 (.) (reverse optimisations)
+composedOpts = foldl1 (.) (reverse optimisations)
-- composedOpts = foldl1 (.) (map (traceShowId .) $ reverse optimisations)
-composedOpts = foldl1 (.) (map ((\r -> traceShow (take 7 r) r) .) $ reverse optimisations)
+-- composedOpts = foldl1 (.) (map ((\r -> traceShow (take 7 r) r) .) $ reverse optimisations)
optimise :: Program -> Program
optimise (Program inss) =