From 96b00c80566b3609a76543a6198315baa7ee6aa0 Mon Sep 17 00:00:00 2001
From: Mark Shinwell <mshinwell@pm.me>
Date: Mon, 15 Apr 2024 16:36:14 +0100
Subject: [PATCH] Fix amd64 Stack_check signature

---
 backend/amd64/stack_check.ml | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/backend/amd64/stack_check.ml b/backend/amd64/stack_check.ml
index fbfb239dc67..6ef831caf43 100644
--- 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 ();