mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 07:28:26 +02:00
Add call to _init_tls and _rtld_call_init functions for x86_64 DragonFly target startup
git-svn-id: trunk@31208 -
This commit is contained in:
parent
0c011c9313
commit
b67b407d2d
@ -104,10 +104,9 @@ _start:
|
||||
je .L9
|
||||
movq -48(%rbp), %rdi
|
||||
call atexit
|
||||
jmp .L11
|
||||
.L9:
|
||||
call _init_tls
|
||||
.L11:
|
||||
call _rtld_call_init
|
||||
movl $_fini, %edi
|
||||
call atexit
|
||||
call _init
|
||||
|
@ -49,6 +49,8 @@ FPC_SHARED_LIB_START:
|
||||
movb $1,operatingsystem_islibrary(%rip)
|
||||
#movq operatingsystem_islibrary@GOTPCREL(%rip),%rax
|
||||
#movb $1,(%rax)
|
||||
call _init_tls@PLT
|
||||
call _rtld_call_init@PLT
|
||||
call PASCALMAIN@PLT
|
||||
ret
|
||||
.p2align 2,,3
|
||||
|
Loading…
Reference in New Issue
Block a user