paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-08 13:02:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

* pic'fied startup code

Browse Source 
(cherry picked from commit baa28faa19)
This commit is contained in:
florian 2021-10-25 21:39:24 +02:00
parent 6db696a782
commit 9bd665d069
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/linux/x86_64/si_c.inc
View File

@ -155,10 +155,10 @@ procedure _FPC_libc_start; assembler; nostackframe; public name '_start';
pushq %rsp
{ Pass address of our own entry points to .fini and .init. }
movq $ini_dummy, %r8
movq $ini_dummy, %rcx
movq ini_dummy@GOTPCREL(%rip), %r8
movq ini_dummy@GOTPCREL(%rip), %rcx
movq $main_stub, %rdi
movq main_stub@GOTPCREL(%rip), %rdi
{ Call the user's main function, and exit with its value.
But let the libc call main. }

8
rtl/linux/x86_64/si_g.inc
View File

@ -56,7 +56,7 @@ procedure gmon_mcleanup; external name '_mcleanup';
procedure _FPC_libc_start; forward;
procedure _FPC_libc_haltproc(e:longint); forward;
procedure main_stub; assembler; nostackframe;
asm
{ save return address }
@ -169,10 +169,10 @@ procedure ini_dummy;
pushq %rsp
{ Pass address of our own entry points to .fini and .init. }
movq $ini_dummy, %r8
movq $ini_dummy, %rcx
movq ini_dummy@GOTPCREL(%rip), %r8
movq ini_dummy@GOTPCREL(%rip), %rcx
movq $main_stub, %rdi
movq main_stub@GOTPCREL(%rip), %rdi
{ Call the user's main function, and exit with its value.
But let the libc call main. }