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

* x86_64-linux uses now pascal init code

Browse Source 
git-svn-id: trunk@38409 -
This commit is contained in:
florian 2018-03-04 18:22:04 +00:00
parent 6d5ce55232
commit b24eb3cce7
3 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/systems.pas
View File

@ -336,7 +336,7 @@ interface
systems_weak_linking = systems_darwin + systems_solaris + systems_linux + systems_android;
systems_internal_sysinit = [system_i386_win32,system_x86_64_win64,
system_i386_linux,system_powerpc64_linux,system_sparc64_linux,
system_i386_linux,system_powerpc64_linux,system_sparc64_linux,system_x86_64_linux,
system_m68k_atari,system_m68k_palmos
]+systems_darwin+systems_amigalike;

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

@ -71,7 +71,7 @@ procedure main_stub; assembler; nostackframe;
{ store stack length }
movq StackLength@GOTPCREL(%rip),%rax
movq %rax,TEntryInformation.OS.stklen(%rcx)
movq %rax,TEntryInformation.OS.stklen(%rdi)
{ store pointer to haltproc }
movq _FPC_libc_haltproc@GOTPCREL(%rip),%rax
@ -131,7 +131,6 @@ procedure _FPC_libc_start; assembler; nostackframe; public name '_start';
{ argc is longint in EntryInformation, thus use %edi register }
movl %esi,TEntryInformation.OS.argc(%rcx)
movq %rsp,TEntryInformation.OS.argv(%rcx)
movq %rsp,(%rax)
leaq 8(,%rsi,8),%rax
addq %rsp,%rax
movq %rax,TEntryInformation.OS.envp(%rcx)

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

@ -145,7 +145,6 @@ procedure ini_dummy;
{ argc is longint in EntryInformation, thus use %edi register }
movl %esi,TEntryInformation.OS.argc(%rcx)
movq %rsp,TEntryInformation.OS.argv(%rcx)
movq %rsp,(%rax)
leaq 8(,%rsi,8),%rax
addq %rsp,%rax
movq %rax,TEntryInformation.OS.envp(%rcx)