paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 19:29:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* made syscall.inc pic safe

Browse Source 
git-svn-id: trunk@1574 -
This commit is contained in:
florian 2005-10-23 13:48:51 +00:00
parent 8711adb9d1
commit d2a111105e
1 changed files with 63 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

79
rtl/linux/x86_64/syscall.inc
View File

@ -26,14 +26,21 @@ asm
jnae .LSyscOK { Jump to error handler if error. }
negq %rax
movq %rax,%rdx
{$ifdef FPC_PIC}
movq fpc_threadvar_relocate_proc@GOTPCREL(%rip),%rax
movq (%rax),%rax
movq Errno@GOTPCREL(%rip),%rax
{$else FPC_PIC}
movq fpc_threadvar_relocate_proc,%rax
leaq Errno,%rbx
{$endif FPC_PIC}
testq %rax,%rax
jne .LThread
movl %edx,Errno+8
movl %edx,8(%rbx)
jmp .LNoThread
.LThread:
pushq %rdx
movq Errno,%rdi
movq (%rbx),%rdi
call *%rax
popq %rdx
movl %edx,(%rax)
@ -52,14 +59,21 @@ asm
jnae .LSyscOK { Jump to error handler if error. }
negq %rax
movq %rax,%rdx
{$ifdef FPC_PIC}
movq fpc_threadvar_relocate_proc@GOTPCREL(%rip),%rax
movq (%rax),%rax
movq Errno@GOTPCREL(%rip),%rax
{$else FPC_PIC}
movq fpc_threadvar_relocate_proc,%rax
leaq Errno,%rbx
{$endif FPC_PIC}
testq %rax,%rax
jne .LThread
movl %edx,Errno+8
movl %edx,8(%rbx)
jmp .LNoThread
.LThread:
pushq %rdx
movq Errno,%rdi
movq (%rbx),%rdi
call *%rax
popq %rdx
movl %edx,(%rax)
@ -79,14 +93,21 @@ asm
jnae .LSyscOK { Jump to error handler if error. }
negq %rax
movq %rax,%rdx
{$ifdef FPC_PIC}
movq fpc_threadvar_relocate_proc@GOTPCREL(%rip),%rax
movq (%rax),%rax
movq Errno@GOTPCREL(%rip),%rax
{$else FPC_PIC}
movq fpc_threadvar_relocate_proc,%rax
leaq Errno,%rbx
{$endif FPC_PIC}
testq %rax,%rax
jne .LThread
movl %edx,Errno+8
movl %edx,8(%rbx)
jmp .LNoThread
.LThread:
pushq %rdx
movq Errno,%rdi
movq (%rbx),%rdi
call *%rax
popq %rdx
movl %edx,(%rax)
@ -107,14 +128,21 @@ asm
jnae .LSyscOK { Jump to error handler if error. }
negq %rax
movq %rax,%rdx
{$ifdef FPC_PIC}
movq fpc_threadvar_relocate_proc@GOTPCREL(%rip),%rax
movq (%rax),%rax
movq Errno@GOTPCREL(%rip),%rax
{$else FPC_PIC}
movq fpc_threadvar_relocate_proc,%rax
leaq Errno,%rbx
{$endif FPC_PIC}
testq %rax,%rax
jne .LThread
movl %edx,Errno+8
movl %edx,8(%rbx)
jmp .LNoThread
.LThread:
pushq %rdx
movq Errno,%rdi
movq (%rbx),%rdi
call *%rax
popq %rdx
movl %edx,(%rax)
@ -136,14 +164,21 @@ asm
jnae .LSyscOK { Jump to error handler if error. }
negq %rax
movq %rax,%rdx
{$ifdef FPC_PIC}
movq fpc_threadvar_relocate_proc@GOTPCREL(%rip),%rax
movq (%rax),%rax
movq Errno@GOTPCREL(%rip),%rax
{$else FPC_PIC}
movq fpc_threadvar_relocate_proc,%rax
leaq Errno,%rbx
{$endif FPC_PIC}
testq %rax,%rax
jne .LThread
movl %edx,Errno+8
movl %edx,8(%rbx)
jmp .LNoThread
.LThread:
pushq %rdx
movq Errno,%rdi
movq (%rbx),%rdi
call *%rax
popq %rdx
movl %edx,(%rax)
@ -166,14 +201,21 @@ asm
jnae .LSyscOK { Jump to error handler if error. }
negq %rax
movq %rax,%rdx
{$ifdef FPC_PIC}
movq fpc_threadvar_relocate_proc@GOTPCREL(%rip),%rax
movq (%rax),%rax
movq Errno@GOTPCREL(%rip),%rax
{$else FPC_PIC}
movq fpc_threadvar_relocate_proc,%rax
leaq Errno,%rbx
{$endif FPC_PIC}
testq %rax,%rax
jne .LThread
movl %edx,Errno+8
movl %edx,8(%rbx)
jmp .LNoThread
.LThread:
pushq %rdx
movq Errno,%rdi
movq (%rbx),%rdi
call *%rax
popq %rdx
movl %edx,(%rax)
@ -198,14 +240,21 @@ asm
jnae .LSyscOK { Jump to error handler if error. }
negq %rax
movq %rax,%rdx
{$ifdef FPC_PIC}
movq fpc_threadvar_relocate_proc@GOTPCREL(%rip),%rax
movq (%rax),%rax
movq Errno@GOTPCREL(%rip),%rax
{$else FPC_PIC}
movq fpc_threadvar_relocate_proc,%rax
leaq Errno,%rbx
{$endif FPC_PIC}
testq %rax,%rax
jne .LThread
movl %edx,Errno+8
movl %edx,8(%rbx)
jmp .LNoThread
.LThread:
pushq %rdx
movq Errno,%rdi
movq (%rbx),%rdi
call *%rax
popq %rdx
movl %edx,(%rax)
@ -219,5 +268,3 @@ end;
{$IFDEF SYS_LINUX}
{$UNDEF SYSCALL_DEBUG}
{$ENDIF SYS_LINUX}