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

Fix si_g.inc for x86_64-linux:

Browse Source 
* it's 'atexit' and not '__libc_atexit'
* initialstkptr is a global symbol so it needs to be loaded using GOTPCREL

git-svn-id: trunk@34235 -
This commit is contained in:
svenbarth 2016-07-29 22:03:54 +00:00
parent 78f42bae3f
commit 7f5352280d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -44,7 +44,7 @@ var
fpc_ret,fpc_ret_rbp : pointer; fpc_ret,fpc_ret_rbp : pointer;
procedure libc_atexit; external name '__libc_atexit'; procedure libc_atexit; external name 'atexit';
procedure libc_exit; external name '__libc_exit'; procedure libc_exit; external name '__libc_exit';
procedure libc_init; external name '__libc_init'; procedure libc_init; external name '__libc_init';
procedure libc_setfpucw; external name '__setfpucw'; procedure libc_setfpucw; external name '__setfpucw';
@ -155,7 +155,7 @@ procedure main_stub; assembler; nostackframe;
movq gmon_mcleanup@GOTPCREL(%rip),%rdi movq gmon_mcleanup@GOTPCREL(%rip),%rdi
call libc_atexit@PLT call libc_atexit@PLT
{ Save initial stackpointer } { Save initial stackpointer }
movq initialstkptr(%rip),%rax movq initialstkptr@GOTPCREL(%rip),%rax
movq %rsp,(%rax) movq %rsp,(%rax)
{ start the program } { start the program }