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

* more PIC fixes in the i386 OpenBSD startup code

Browse Source 
git-svn-id: trunk@41683 -
This commit is contained in:
nickysn 2019-03-12 01:58:11 +00:00
parent 9c3d7df289
commit bfe148cfef
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/openbsd/i386/prt0.as
View File

@ -80,16 +80,17 @@ ___start:
pushl $47
pushl %ebx
call _strrchr
movl %eax,__progname
movl __progname@GOT(%edi),%ecx
movl %eax,(%ecx)
addl $16,%esp
testl %eax,%eax
jne .L4
movl %ebx,__progname
movl %ebx,(%ecx)
jmp .L5
.p2align 4,,7
.L4:
incl %eax
movl %eax,__progname
movl %eax,(%ecx)
.L5:
movl __progname_storage@GOT(%edi),%edx
jmp .L12
@ -97,10 +98,12 @@ ___start:
.L9:
movb (%eax),%al
movb %al,(%edx)
incl __progname
movl __progname@GOT(%edi),%ecx
incl (%ecx)
incl %edx
.L12:
movl __progname,%eax
movl __progname@GOT(%edi),%ecx
movl (%ecx),%eax
cmpb $0,(%eax)
je .L7
movl __progname_storage@GOT(%edi),%ecx