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

* partial PIC conversion of the i386 OpenBSD startup code

Browse Source 
git-svn-id: trunk@41682 -
This commit is contained in:
nickysn 2019-03-12 01:33:06 +00:00
parent 6994b67947
commit 9c3d7df289
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -64,10 +64,15 @@ ___start:
subl $16,%esp
pushl %esi
pushl %ebx
call fpc_geteipasecx
addl $_GLOBAL_OFFSET_TABLE_,%ecx
movl %ecx,%edi
movl 12(%ebp),%esi
movl 16(%ebp),%eax
movl %eax,environ
movl %eax,operatingsystem_parameter_envp
movl environ@GOT(%edi),%ecx
movl %eax,(%ecx)
movl operatingsystem_parameter_envp@GOT(%edi),%ecx
movl %eax,(%ecx)
movl (%esi),%ebx
testl %ebx,%ebx
je .L3
@ -86,7 +91,7 @@ ___start:
incl %eax
movl %eax,__progname
.L5:
movl $__progname_storage,%edx
movl __progname_storage@GOT(%edi),%edx
jmp .L12
.p2align 4,,7
.L9:
@ -98,7 +103,9 @@ ___start:
movl __progname,%eax
cmpb $0,(%eax)
je .L7
cmpl $__progname_storage+255,%edx
movl __progname_storage@GOT(%edi),%ecx
addl $255,%ecx
cmpl %ecx,%edx
jb .L9
.L7:
movb $0,(%edx)