paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-16 02:50:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

* cosmetics: indention

Browse Source 
git-svn-id: trunk@43010 -
This commit is contained in:
florian 2019-09-15 17:17:30 +00:00
parent 48c5636fbc
commit bd35c02257
1 changed files with 28 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

56
rtl/linux/i386/si_prc.inc
View File

@ -64,43 +64,43 @@ asm
leal 4(%esp,%ecx,4),%eax { The start of the environment is: esp+4*eax+4 }
andl $0xfffffff0,%esp { Align stack to 16 bytes }
{$ifdef FPC_PIC}
pushl %ebx
pushl %ecx
{$ifdef FPC_PIC}
pushl %ebx
pushl %ecx
call fpc_geteipasebxlocal
addl $_GLOBAL_OFFSET_TABLE_,%ebx
call fpc_geteipasebxlocal
addl $_GLOBAL_OFFSET_TABLE_,%ebx
movl operatingsystem_parameter_envp@GOT(%ebx),%ecx
movl %eax,(%ecx)
movl operatingsystem_parameter_envp@GOT(%ebx),%ecx
movl %eax,(%ecx)
movl operatingsystem_parameter_argc@GOT(%ebx),%edx
popl %ecx
movl %ecx,(%edx)
movl operatingsystem_parameter_argc@GOT(%ebx),%edx
popl %ecx
movl %ecx,(%edx)
movl operatingsystem_parameter_argv@GOT(%ebx),%edx
popl %ebx
movl %ebx,(%edx)
{$else FPC_PIC}
movl %eax,operatingsystem_parameter_envp
movl %ecx,operatingsystem_parameter_argc
movl %ebx,operatingsystem_parameter_argv
{$endif FPC_PIC}
movl operatingsystem_parameter_argv@GOT(%ebx),%edx
popl %ebx
movl %ebx,(%edx)
{$else FPC_PIC}
movl %eax,operatingsystem_parameter_envp
movl %ecx,operatingsystem_parameter_argc
movl %ebx,operatingsystem_parameter_argv
{$endif FPC_PIC}
{ Initialize FPU }
call SysResetFPU
{ Save initial stackpointer }
{$ifdef FPC_PIC}
pushl %ebx
call fpc_geteipasebxlocal
addl $_GLOBAL_OFFSET_TABLE_,%ebx
movl initialstkptr@GOT(%ebx),%ebx
movl %esp,(%ebx)
popl %ebx
{$else FPC_PIC}
movl %esp,initialstkptr
{$endif FPC_PIC}
{$ifdef FPC_PIC}
pushl %ebx
call fpc_geteipasebxlocal
addl $_GLOBAL_OFFSET_TABLE_,%ebx
movl initialstkptr@GOT(%ebx),%ebx
movl %esp,(%ebx)
popl %ebx
{$else FPC_PIC}
movl %esp,initialstkptr
{$endif FPC_PIC}
{$if FPC_FULLVERSION>30200}
call InitTLS