fpc-r38400
authorPascal Packaging Team <pkg-pascal-devel@lists.alioth.debian.org>
Thu, 24 Jan 2019 23:27:02 +0000 (23:27 +0000)
committerPeter Michael Green <plugwash@debian.org>
Thu, 24 Jan 2019 23:27:02 +0000 (23:27 +0000)
Gbp-Pq: Name fpc-r38400.patch

fpcsrc/rtl/linux/x86_64/cprt0.as
fpcsrc/rtl/linux/x86_64/si_c.inc

index 11d091efbc842217e1b399c9854b6dcd1f2fb48b..9f3143435621adda9e462f9f0a601ddc2541412e 100644 (file)
@@ -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
index 5bf0f83516f023f291428230774ee87e01d46e21..e8addff877312bb4eb10295407af1ffb1c20c1f5 100644 (file)
@@ -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