Fix amd64 Stack_check signature

ocaml-flambda · Apr 15, 2024 · 96b00c8 · 96b00c8
1 parent a8daa4a
commit 96b00c8
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/backend/amd64/stack_check.ml b/backend/amd64/stack_check.ml
@@ -25,9 +25,12 @@ let initial_stack_offset ~num_stack_slots:_ ~contains_calls:_ =
 
 (* includes return address *)
 let frame_size :
-    stack_offset:int -> frame_required:bool -> num_stack_slots:int array -> int
-    =
- fun ~stack_offset ~frame_required ~num_stack_slots ->
+    stack_offset:int ->
+    frame_required:bool ->
+    num_stack_slots:int array ->
+    contains_calls:bool ->
+    int =
+ fun ~stack_offset ~frame_required ~num_stack_slots ~contains_calls:_ ->
   if frame_required
   then (
     if num_stack_slots.(2) > 0 then Arch.assert_simd_enabled ();