Revert DPH phase numbers.
authorGeorge Roldugin <groldugin@cse.unsw.edu.au>
Wed, 17 Apr 2013 05:07:52 +0000 (15:07 +1000)
committerGeorge Roldugin <groldugin@cse.unsw.edu.au>
Wed, 17 Apr 2013 05:07:52 +0000 (15:07 +1000)
dph-base/include/fusion-phases.h
dph-plugin/DPH/Pipeline.hs

index 585428f..3ae4f63 100644 (file)
@@ -7,24 +7,22 @@
 
 -- Inline bindings in user code, and closure functions.
 -- This is dph-common-vseg:D.A.P.Lifted.Closure
-#define PHASE_USER      [6]
+#define PHASE_USER      [4]
 
 -- Inline combinators that work on PArray and PData.
 -- This is dph-common-vseg:D.A.P.PArray
-#define PHASE_PA        [5]
+#define PHASE_PA        [3]
 
 -- Inline combinators from the unlifted backends
 -- This is dph-prim-par:D.A.P.Unlifted.Parallel
---     and dph-prim-par:D.A.P.Unlifted.Sequential
-#define PHASE_BACKEND   [4]
-
-#define PHASE_PAR       [4]
+--     and dph-prim-seq:D.A.P.Unlifted.Sequential
+#define PHASE_BACKEND   [2]
+#define PHASE_PAR       PHASE_BACKEND
+#define PHASE_SEQ       PHASE_BACKEND
 
 -- Inline combinators for distributed arrays.
 -- This is dph-prim-par:D.A.P.Unlifted.Distributed
-#define PHASE_DIST      [3]
-
-#define PHASE_SEQ       [2]
+#define PHASE_DIST      [1]
 
 -- Inline combinators for Data.Vector
 #define PHASE_STREAM    [1]
index 2a9be22..49d2d51 100644 (file)
@@ -8,11 +8,9 @@ import GhcPlugins
 
 -- DPH Compilation phase numbers. 
 -- These are defined in dph-base:include/fusion-phases.h
-dphPhaseClosures        = 6
-dphPhasePA              = 5
-dphPhasePar             = 4
-dphPhaseDist            = 3
-dphPhaseSeq             = 2
+dphPhaseClosures        = 4
+dphPhasePA              = 3
+dphPhaseBackend         = 2
 dphPhaseStream          = 1
 dphPhaseInner           = 0
 
@@ -53,9 +51,9 @@ vectoriserPipeline
                 , sm_inline     = True
                 , sm_case_case  = True } 
 
-   ,    CoreDoPluginPass "Dump"   (passDump "6-closures")
+   ,    CoreDoPluginPass "Dump"   (passDump "4-closures")
    ,    CoreDoPluginPass "Summon"  passSummon
-   ,    CoreDoPluginPass "Dump"   (passDump "6-closures-summoned")
+   ,    CoreDoPluginPass "Dump"   (passDump "4-closures-summoned")
 
 
         -- Inline PArray and PData combinators.
@@ -68,45 +66,20 @@ vectoriserPipeline
                 , sm_inline     = True
                 , sm_case_case  = True } 
 
-   ,    CoreDoPluginPass "Dump" (passDump "5-parray")
-
-        -- Inline parallel combinators.
-   ,    CoreDoSimplify 10
-                SimplMode
-                { sm_names      = ["Vectorise", "Parallel"]
-                , sm_phase      = Phase dphPhasePar
-                , sm_rules      = True
-                , sm_eta_expand = True
-                , sm_inline     = True
-                , sm_case_case  = True } 
-
-   ,    CoreDoPluginPass "Dump" (passDump "4-parallel")
-
-
-        -- Inline distributed combinators
-   ,    CoreDoSimplify 10
-                SimplMode
-                { sm_names      = ["Vectorise", "Dist"]
-                , sm_phase      = Phase dphPhaseDist
-                , sm_rules      = True
-                , sm_eta_expand = True
-                , sm_inline     = True
-                , sm_case_case  = True } 
-
-   ,    CoreDoPluginPass "Dump" (passDump "3-dist")
+   ,    CoreDoPluginPass "Dump" (passDump "3-parray")
 
 
-        -- Inline sequential combinators.
+        -- Inline unlifted backend.
    ,    CoreDoSimplify 10
                 SimplMode
-                { sm_names      = ["Vectorise", "Sequential"]
-                , sm_phase      = Phase dphPhaseSeq
+                { sm_names      = ["Vectorise", "Backend"]
+                , sm_phase      = Phase dphPhaseBackend
                 , sm_rules      = True
                 , sm_eta_expand = True
                 , sm_inline     = True
                 , sm_case_case  = True } 
 
-   ,    CoreDoPluginPass "Dump" (passDump "2-sequential")
+   ,    CoreDoPluginPass "Dump" (passDump "2-backend")
 
 
         -- Inline stream functions.