diff options
| author | David Allsopp <david.allsopp@metastack.com> | 2020-06-02 16:48:31 +0100 |
|---|---|---|
| committer | David Allsopp <david.allsopp@metastack.com> | 2021-12-23 10:38:32 +0000 |
| commit | a0f1b5428033bd7f77d1bbc6301621a247a1e7c2 (patch) | |
| tree | aef38017a0025edbac8e3dfe1cd523d4787d77b4 /runtime/amd64.S | |
| parent | c830c881a83de015ffabb850ab74d170db8e99b2 (diff) | |
| download | ocaml-a0f1b5428033bd7f77d1bbc6301621a247a1e7c2.tar.gz | |
Correct C calling convention in caml_runstack
Diffstat (limited to 'runtime/amd64.S')
| -rw-r--r-- | runtime/amd64.S | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/runtime/amd64.S b/runtime/amd64.S index 179d084e0f..44bcd1ed40 100644 --- a/runtime/amd64.S +++ b/runtime/amd64.S @@ -921,7 +921,7 @@ CFI_STARTPROC LBL(frame_runstack): leaq 32(%rsp), %r11 /* SP with exn handler popped */ movq Handler_value(%r11), %rbx -1: movq Caml_state(current_stack), %rdi /* arg to caml_free_stack */ +1: movq Caml_state(current_stack), C_ARG_1 /* arg to caml_free_stack */ /* restore parent stack and exn_handler into Caml_state */ movq Handler_parent(%r11), %r10 movq Stack_exception(%r10), %r11 @@ -934,7 +934,7 @@ LBL(frame_runstack): CFI_DEF_CFA_REGISTER(DW_REG_r13) movq %rax, %r12 /* save %rax across C call */ movq Caml_state(c_stack), %rsp - call GCALL(caml_free_stack) + C_call (GCALL(caml_free_stack)) /* switch directly to parent stack with correct return */ movq %r13, %rsp CFI_RESTORE_STATE |