fpc-r38400

Gbp-Pq: Name fpc-r38400.patch

diff --git a/fpcsrc/rtl/linux/x86_64/cprt0.as b/fpcsrc/rtl/linux/x86_64/cprt0.as
index 11d091efbc842217e1b399c9854b6dcd1f2fb48b..9f3143435621adda9e462f9f0a601ddc2541412e 100644 (file)
--- a/fpcsrc/rtl/linux/x86_64/cprt0.as
+++ b/fpcsrc/rtl/linux/x86_64/cprt0.as
@@ -111,6 +111,7 @@ _haltproc:
        movq    ___fpc_ret_rbp@GOTPCREL(%rip),%rcx
         movq    (%rcx),%rbp
        movq    ___fpc_ret@GOTPCREL(%rip),%rcx
+        popq    %rdx
         movq    (%rcx),%rdx
         pushq    %rdx
        ret

diff --git a/fpcsrc/rtl/linux/x86_64/si_c.inc b/fpcsrc/rtl/linux/x86_64/si_c.inc
index 5bf0f83516f023f291428230774ee87e01d46e21..e8addff877312bb4eb10295407af1ffb1c20c1f5 100644 (file)
--- a/fpcsrc/rtl/linux/x86_64/si_c.inc
+++ b/fpcsrc/rtl/linux/x86_64/si_c.inc
@@ -158,6 +158,7 @@ procedure _FPC_libc_haltproc; assembler; nostackframe; public name '_haltproc';
     movq      ExitCode@GOTPCREL(%rip),%rax
     movzwq    (%rax),%rax { load and save exitcode }
 
+    popq    %rdx                    { keep stack aligned }
     movq fpc_ret(%rip),%rdx         { return to libc }
     movq fpc_ret_rbp(%rip),%rbp
     pushq %rdx