hipe: Refactor ra callbacks to accept context arg

This allows us to pass around the context data that
hipe_regalloc_prepass needs cleanly, without using process dictionary or
parameterised modules (like it was previous to this change).

4 files changed, 12 insertions, 12 deletions

diff --git a/lib/hipe/ppc/hipe_ppc_ra.erl b/lib/hipe/ppc/hipe_ppc_ra.erl
index 7c8a11773e..f8614db4ef 100644
--- a/lib/hipe/ppc/hipe_ppc_ra.erl
+++ b/lib/hipe/ppc/hipe_ppc_ra.erl
@@ -27,15 +27,15 @@ ra(CFG0, Options) ->
   {CFG1, _FPLiveness1, Coloring_fp, SpillIndex}
     = case proplists:get_bool(inline_fp, Options) of
 	true ->
-	  FPLiveness0 = hipe_ppc_specific_fp:analyze(CFG0),
+	  FPLiveness0 = hipe_ppc_specific_fp:analyze(CFG0, no_context),
 	  hipe_regalloc_loop:ra_fp(CFG0, FPLiveness0, Options,
 				   hipe_coalescing_regalloc,
-				   hipe_ppc_specific_fp);
+				   hipe_ppc_specific_fp, no_context);
 	false ->
 	  {CFG0,undefined,[],0}
       end,
   %% hipe_ppc_pp:pp(hipe_ppc_cfg:linearise(CFG1)),
-  GPLiveness1 = hipe_ppc_specific:analyze(CFG1),
+  GPLiveness1 = hipe_ppc_specific:analyze(CFG1, no_context),
   {CFG2, _GPLiveness2, Coloring}
     = case proplists:get_value(regalloc, Options, coalescing) of
 	coalescing ->
@@ -58,4 +58,4 @@ ra(CFG0, Options) ->
 
 ra(CFG, Liveness, SpillIndex, Options, RegAllocMod) ->
   hipe_regalloc_loop:ra(CFG, Liveness, SpillIndex, Options, RegAllocMod,
-			hipe_ppc_specific).
+			hipe_ppc_specific, no_context).
diff --git a/lib/hipe/ppc/hipe_ppc_ra_ls.erl b/lib/hipe/ppc/hipe_ppc_ra_ls.erl
index 956b55d9f1..5f331542e8 100644
--- a/lib/hipe/ppc/hipe_ppc_ra_ls.erl
+++ b/lib/hipe/ppc/hipe_ppc_ra_ls.erl
@@ -24,7 +24,7 @@
 -export([ra/4]).
 
 ra(CFG, Liveness, SpillIndex, Options) ->
-  SpillLimit = hipe_ppc_specific:number_of_temporaries(CFG),
+  SpillLimit = hipe_ppc_specific:number_of_temporaries(CFG, no_context),
   alloc(CFG, Liveness, SpillIndex, SpillLimit, Options).
 
 alloc(CFG, Liveness, SpillIndex, SpillLimit, Options) ->
@@ -37,19 +37,19 @@ alloc(CFG, Liveness, SpillIndex, SpillLimit, Options) ->
        hipe_ppc_registers:temp1()],
       [hipe_ppc_cfg:start_label(CFG)],
       SpillIndex, SpillLimit, Options,
-      hipe_ppc_specific),
+      hipe_ppc_specific, no_context),
   {NewCFG, _DidSpill} =
     hipe_ppc_ra_postconditions:check_and_rewrite(
       CFG, Coloring, 'linearscan'),
-  TempMap = hipe_temp_map:cols2tuple(Coloring, hipe_ppc_specific),
+  TempMap = hipe_temp_map:cols2tuple(Coloring, hipe_ppc_specific, no_context),
   {TempMap2,_NewSpillIndex2} =
     hipe_spillmin:stackalloc(CFG, Liveness, [], SpillIndex, Options,
-			     hipe_ppc_specific, TempMap),
+			     hipe_ppc_specific, no_context, TempMap),
   Coloring2 =
     hipe_spillmin:mapmerge(hipe_temp_map:to_substlist(TempMap), TempMap2),
   {NewCFG, Liveness, Coloring2}.
 
 regalloc(CFG, Liveness, PhysRegs, Entrypoints, SpillIndex, DontSpill, Options,
-	 Target) ->
+	 TgtMod, TgtCtx) ->
   hipe_ls_regalloc:regalloc(CFG, Liveness, PhysRegs, Entrypoints, SpillIndex,
-			    DontSpill, Options, Target).
+			    DontSpill, Options, TgtMod, TgtCtx).
diff --git a/lib/hipe/ppc/hipe_ppc_ra_postconditions.erl b/lib/hipe/ppc/hipe_ppc_ra_postconditions.erl
index 412aeeeba6..f084a30e63 100644
--- a/lib/hipe/ppc/hipe_ppc_ra_postconditions.erl
+++ b/lib/hipe/ppc/hipe_ppc_ra_postconditions.erl
@@ -26,7 +26,7 @@
 -include("hipe_ppc.hrl").
 
 check_and_rewrite(CFG, Coloring, Allocator) ->
-  TempMap = hipe_temp_map:cols2tuple(Coloring, hipe_ppc_specific),
+  TempMap = hipe_temp_map:cols2tuple(Coloring, hipe_ppc_specific, no_context),
   check_and_rewrite2(CFG, TempMap, Allocator).
 
 check_and_rewrite2(CFG, TempMap, Allocator) ->
diff --git a/lib/hipe/ppc/hipe_ppc_ra_postconditions_fp.erl b/lib/hipe/ppc/hipe_ppc_ra_postconditions_fp.erl
index 553fac882b..81064079aa 100644
--- a/lib/hipe/ppc/hipe_ppc_ra_postconditions_fp.erl
+++ b/lib/hipe/ppc/hipe_ppc_ra_postconditions_fp.erl
@@ -24,7 +24,7 @@
 -include("hipe_ppc.hrl").
 
 check_and_rewrite(CFG, Coloring) ->
-  TempMap = hipe_temp_map:cols2tuple(Coloring, hipe_ppc_specific_fp),
+  TempMap = hipe_temp_map:cols2tuple(Coloring, hipe_ppc_specific_fp, no_context),
   do_bbs(hipe_ppc_cfg:labels(CFG), TempMap, CFG, false).
 
 do_bbs([], _TempMap, CFG, DidSpill) -> {CFG, DidSpill};