Commit f071ec88 authored by rl@cse.unsw.edu.au's avatar rl@cse.unsw.edu.au
Browse files

Include vectorisation into the simplifier pipeline

parent d9049898
......@@ -33,6 +33,7 @@ import CoreSyn ( CoreExpr )
import CoreTidy ( tidyExpr )
import CorePrep ( corePrepExpr )
import Flattening ( flattenExpr )
import Vectorise ( vectorise )
import Desugar ( deSugarExpr )
import SimplCore ( simplifyExpr )
import TcRnDriver ( tcRnStmt, tcRnExpr, tcRnType )
......@@ -66,6 +67,7 @@ import PrelInfo ( wiredInThings, basicKnownKeyNames )
import MkIface ( checkOldIface, mkIface, writeIfaceFile )
import Desugar ( deSugar )
import Flattening ( flatten )
import Vectorise ( vectorise )
import SimplCore ( core2core )
import TidyPgm ( tidyProgram, mkBootModDetails )
import CorePrep ( corePrepPgm )
......@@ -476,13 +478,13 @@ hscSimplify :: ModGuts -> Comp ModGuts
hscSimplify ds_result
= do hsc_env <- gets compHscEnv
liftIO $ do
flat_result <- {-# SCC "Flattening" #-}
flatten hsc_env ds_result
vect_result <- {-# SCC "Vectorisation" #-}
vectorise hsc_env ds_result
-------------------
-- SIMPLIFY
-------------------
simpl_result <- {-# SCC "Core2Core" #-}
core2core hsc_env flat_result
core2core hsc_env vect_result
return simpl_result
--------------------------------------------------------------
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment