diff options
-rw-r--r-- | optimiser.hs | 7 |
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) = |