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

Add call to _init_tls and _rtld_call_init functions for x86_64 DragonFly target startup

Browse Source 
git-svn-id: trunk@31208 -
This commit is contained in:
pierre 2015-07-14 21:56:55 +00:00
parent 0c011c9313
commit b67b407d2d
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/dragonfly/x86_64/cprt0.as
View File

@ -104,10 +104,9 @@ _start:
je .L9 je .L9
movq -48(%rbp), %rdi movq -48(%rbp), %rdi
call atexit call atexit
jmp .L11
.L9: .L9:
call _init_tls call _init_tls
.L11: call _rtld_call_init
movl $_fini, %edi movl $_fini, %edi
call atexit call atexit
call _init call _init

2
rtl/dragonfly/x86_64/dllprt0.as
View File

@ -49,6 +49,8 @@ FPC_SHARED_LIB_START:
movb $1,operatingsystem_islibrary(%rip) movb $1,operatingsystem_islibrary(%rip)
#movq operatingsystem_islibrary@GOTPCREL(%rip),%rax #movq operatingsystem_islibrary@GOTPCREL(%rip),%rax
#movb $1,(%rax) #movb $1,(%rax)
call _init_tls@PLT
call _rtld_call_init@PLT
call PASCALMAIN@PLT call PASCALMAIN@PLT
ret ret
.p2align 2,,3 .p2align 2,,3