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).

1 files changed, 60 insertions, 60 deletions

diff --git a/lib/hipe/regalloc/hipe_ppc_specific_fp.erl b/lib/hipe/regalloc/hipe_ppc_specific_fp.erl
index 5ec625daaf..6daa624720 100644
--- a/lib/hipe/regalloc/hipe_ppc_specific_fp.erl
+++ b/lib/hipe/regalloc/hipe_ppc_specific_fp.erl
@@ -22,126 +22,126 @@
 -module(hipe_ppc_specific_fp).
 
 %% for hipe_coalescing_regalloc:
--export([number_of_temporaries/1
-	 ,analyze/1
-	 ,labels/1
-	 ,all_precoloured/0
-	 ,bb/2
-	 ,liveout/2
-	 ,reg_nr/1
-	 ,def_use/1
-	 ,is_move/1
-	 ,is_precoloured/1
-	 ,var_range/1
-	 ,allocatable/0
-	 ,non_alloc/1
-	 ,physical_name/1
-	 ,reverse_postorder/1
-	 ,livein/2
-	 ,uses/1
-	 ,defines/1
-	 ,defines_all_alloc/1
+-export([number_of_temporaries/2
+	 ,analyze/2
+	 ,labels/2
+	 ,all_precoloured/1
+	 ,bb/3
+	 ,liveout/3
+	 ,reg_nr/2
+	 ,def_use/2
+	 ,is_move/2
+	 ,is_precoloured/2
+	 ,var_range/2
+	 ,allocatable/1
+	 ,non_alloc/2
+	 ,physical_name/2
+	 ,reverse_postorder/2
+	 ,livein/3
+	 ,uses/2
+	 ,defines/2
+	 ,defines_all_alloc/2
 	]).
 
 %% for hipe_graph_coloring_regalloc:
--export([is_fixed/1]).
+-export([is_fixed/2]).
 
 %% for hipe_ls_regalloc:
-%%-export([args/1, is_arg/1, is_global, new_spill_index/1]).
-%%-export([breadthorder/1, postorder/1]).
+%%-export([args/2, is_arg/2, is_global, new_spill_index/2]).
+%%-export([breadthorder/2, postorder/2]).
 
 %% callbacks for hipe_regalloc_loop
--export([check_and_rewrite/2]).
+-export([check_and_rewrite/3]).
 
 %% callbacks for hipe_regalloc_prepass
--export([new_reg_nr/0,
-	 update_reg_nr/2,
-	 update_bb/3,
-	 subst_temps/2]).
+-export([new_reg_nr/1,
+	 update_reg_nr/3,
+	 update_bb/4,
+	 subst_temps/3]).
 
-check_and_rewrite(CFG, Coloring) ->
+check_and_rewrite(CFG, Coloring, _) ->
   hipe_ppc_ra_postconditions_fp:check_and_rewrite(CFG, Coloring).
 
-reverse_postorder(CFG) ->
+reverse_postorder(CFG, _) ->
   hipe_ppc_cfg:reverse_postorder(CFG).
 
-non_alloc(_CFG) ->
+non_alloc(_CFG, _) ->
   [].
 
 %% Liveness stuff
 
-analyze(CFG) ->
+analyze(CFG, _) ->
   hipe_ppc_liveness_fpr:analyse(CFG).
 
-livein(Liveness, L) ->
+livein(Liveness, L, _) ->
   hipe_ppc_liveness_fpr:livein(Liveness, L).
 
-liveout(BB_in_out_liveness, Label) ->
+liveout(BB_in_out_liveness, Label, _) ->
   hipe_ppc_liveness_fpr:liveout(BB_in_out_liveness, Label).
 
 %% Registers stuff
 
-allocatable() ->
+allocatable(no_context) ->
   hipe_ppc_registers:allocatable_fpr().
 
-all_precoloured() ->
-  allocatable().
+all_precoloured(Ctx) ->
+  allocatable(Ctx).
 
-is_precoloured(Reg) ->
+is_precoloured(Reg, _) ->
   hipe_ppc_registers:is_precoloured_fpr(Reg).
 
-is_fixed(_Reg) ->
+is_fixed(_Reg, _) ->
   false.
 
-physical_name(Reg) ->
+physical_name(Reg, _) ->
   Reg.
 
 %% CFG stuff
 
-labels(CFG) ->
+labels(CFG, _) ->
   hipe_ppc_cfg:labels(CFG).
 
-var_range(_CFG) ->
+var_range(_CFG, _) ->
   hipe_gensym:var_range(ppc).
 
-number_of_temporaries(_CFG) ->
+number_of_temporaries(_CFG, _) ->
   Highest_temporary = hipe_gensym:get_var(ppc),
   %% Since we can have temps from 0 to Max adjust by +1.
   Highest_temporary + 1.
 
-bb(CFG, L) ->
+bb(CFG, L, _) ->
   hipe_ppc_cfg:bb(CFG, L).
 
-update_bb(CFG,L,BB) ->
+update_bb(CFG,L,BB,_) ->
   hipe_ppc_cfg:bb_add(CFG,L,BB).
 
 %% PowerPC stuff
 
-def_use(I) ->
-  {defines(I), uses(I)}.
+def_use(I, Ctx) ->
+  {defines(I, Ctx), uses(I, Ctx)}.
 
-uses(I) ->
+uses(I, _) ->
   hipe_ppc_defuse:insn_use_fpr(I).
 
-defines(I) ->
+defines(I, _) ->
   hipe_ppc_defuse:insn_def_fpr(I).
 
-defines_all_alloc(I) ->
+defines_all_alloc(I, _) ->
   hipe_ppc_defuse:insn_defs_all_fpr(I).
 
-is_move(I) ->
+is_move(I, _) ->
   hipe_ppc:is_pseudo_fmove(I).
  
-reg_nr(Reg) ->
+reg_nr(Reg, _) ->
   hipe_ppc:temp_reg(Reg).
 
-new_reg_nr() ->
+new_reg_nr(_) ->
   hipe_gensym:get_next_var(ppc).
 
-update_reg_nr(Nr, _Temp) ->
+update_reg_nr(Nr, _Temp, _) ->
   hipe_ppc:mk_temp(Nr, 'double').
 
-subst_temps(SubstFun, Instr) ->
+subst_temps(SubstFun, Instr, _) ->
   hipe_ppc_subst:insn_temps(
     fun(Op) ->
 	case hipe_ppc:temp_is_allocatable(Op)
@@ -153,21 +153,21 @@ subst_temps(SubstFun, Instr) ->
     end, Instr).
 
 -ifdef(notdef).
-new_spill_index(SpillIndex) ->
+new_spill_index(SpillIndex, _) ->
   SpillIndex+1.
 
-breadthorder(CFG) ->
+breadthorder(CFG, _) ->
   hipe_ppc_cfg:breadthorder(CFG).
 
-postorder(CFG) ->
+postorder(CFG, _) ->
   hipe_ppc_cfg:postorder(CFG).
 
-is_global(_R) ->
+is_global(_R, _) ->
   false.
 
-is_arg(_R) ->
+is_arg(_R, _) ->
   false.
 
-args(_CFG) ->
+args(_CFG, _) ->
   [].
 -endif.