Review

ocaml-flambda · Feb 28, 2025 · e8786a7 · e8786a7
1 parent 7cdd025
commit e8786a7
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/backend/regalloc/regalloc_irc_state.ml b/backend/regalloc/regalloc_irc_state.ml
@@ -83,7 +83,9 @@ let[@inline] make ~initial ~stack_slots ~last_used () =
   let coalesced_nodes = RegWorkList.make ~original_capacity in
   let colored_nodes = Doubly_linked_list.make_empty () in
   let select_stack = [] in
-  let original_capacity = 1024 (* XXX *) in
+  let original_capacity =
+    Int.min max_capacity (InstructionId.to_int_unsafe last_used)
+  in
   let coalesced_moves = InstructionWorkList.make ~original_capacity in
   let constrained_moves = InstructionWorkList.make ~original_capacity in
   let frozen_moves = InstructionWorkList.make ~original_capacity in