From f071ec8860dc3be9329808b8d41008c353dc91e8 Mon Sep 17 00:00:00 2001 From: Roman Leshchinskiy Date: Fri, 29 Jun 2007 05:19:43 +0000 Subject: [PATCH] Include vectorisation into the simplifier pipeline --- compiler/main/HscMain.lhs | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/compiler/main/HscMain.lhs b/compiler/main/HscMain.lhs index f0fd95d..1abdbdc 100644 --- a/compiler/main/HscMain.lhs +++ b/compiler/main/HscMain.lhs @@ -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 -------------------------------------------------------------- -- 1.7.10.4