From 81d3fb3e20afede32298e4d3e78bcebf6a22858a Mon Sep 17 00:00:00 2001 From: Vincent Laviron Date: Fri, 15 Dec 2023 10:00:52 +0100 Subject: [PATCH 4/4] Fix s390x stack reallocation code in PIC mode (cherry picked from commit c40a955c029a203d0d7f05718e297e66987ec87f) --- asmcomp/s390x/emit.mlp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/asmcomp/s390x/emit.mlp b/asmcomp/s390x/emit.mlp index 35ade079f6..0212cf3b00 100644 --- a/asmcomp/s390x/emit.mlp +++ b/asmcomp/s390x/emit.mlp @@ -751,7 +751,7 @@ let fundecl fundecl = ` lay %r15, -8(%r15)\n`; ` stg %r14, 0(%r15)\n`; ` lgfi %r12, {emit_int s}\n`; - ` brasl %r14, {emit_symbol "caml_call_realloc_stack"}\n`; + emit_call "caml_call_realloc_stack"; ` lg %r14, 0(%r15)\n`; ` la %r15, 8(%r15)\n`; ` brcl 15, {emit_label ret}\n` -- 2.43.0