X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fmain%2FDynFlags.hs;h=9e28d4c25e904fa924924c5458c7d70346161f18;hp=2c5d497db5a29e9dbbc070e7feb0619e69ff15a0;hb=a618f382f6b72de258b5088493befafe0b8a6147;hpb=f5edc6b0871a0debbc9a64f4cdb95c0dc35e5b16

diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs
index 2c5d497..9e28d4c 100644
--- a/compiler/main/DynFlags.hs
+++ b/compiler/main/DynFlags.hs
@@ -873,9 +873,10 @@ getCoreToDo dflags
 	    MaxSimplifierIterations max_iter
 	]
 
-    core_todo = 
+    core_todo =
      if opt_level == 0 then
-       [simpl_phase 0 ["final"] max_iter]
+       [runWhen vectorisation (CoreDoPasses [ simpl_gently, CoreDoVectorisation ]),
+        simpl_phase 0 ["final"] max_iter]
      else {- opt_level >= 1 -} [ 
 
     -- We want to do the static argument transform before full laziness as it