summaryrefslogtreecommitdiff
path: root/backend/Splitting.ml
diff options
context:
space:
mode:
Diffstat (limited to 'backend/Splitting.ml')
-rw-r--r--backend/Splitting.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/backend/Splitting.ml b/backend/Splitting.ml
index 60f6818..85de636 100644
--- a/backend/Splitting.ml
+++ b/backend/Splitting.ml
@@ -126,7 +126,7 @@ let transfer f pc after =
(* The live range analysis *)
-let analysis f = Solver.fixpoint (successors f) (transfer f) []
+let analysis f = Solver.fixpoint f.fn_code successors_instr (transfer f) []
(* Produce renamed registers for each instruction. *)