diff options
Diffstat (limited to 'backend/Regalloc.ml')
| -rw-r--r-- | backend/Regalloc.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/backend/Regalloc.ml b/backend/Regalloc.ml index f8cd561..b73cbf5 100644 --- a/backend/Regalloc.ml +++ b/backend/Regalloc.ml @@ -278,7 +278,7 @@ end module Liveness_Solver = Backward_Dataflow_Solver(VSetLat)(NodeSetBackward) let liveness_analysis f = - match Liveness_Solver.fixpoint (successors f) (transfer_live f) [] with + match Liveness_Solver.fixpoint f.fn_code successors_block (transfer_live f) [] with | None -> assert false | Some lv -> lv |