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

Add PIC code

Browse Source 
git-svn-id: trunk@22496 -
This commit is contained in:
pierre 2012-09-28 13:52:02 +00:00
parent d40d207552
commit d95ff52463
1 changed files with 29 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
rtl/linux/sparc/cprt0.as
View File

@ -9,16 +9,30 @@ _start:
mov %g0, %fp mov %g0, %fp
sub %sp, 6*4, %sp sub %sp, 6*4, %sp
.ifdef PIC
/* Set %l7 to _GLOBAL_OFFSET_TABLE value */
sethi %hi(_GLOBAL_OFFSET_TABLE_-8),%l7
or %l7,%lo(_GLOBAL_OFFSET_TABLE_-4),%l7
call FPC_GETGOT
nop
.endif
/* Extract the arguments and environment as encoded on the stack. The /* Extract the arguments and environment as encoded on the stack. The
argument info starts after one register window (16 words) past the SP. */ argument info starts after one register window (16 words) past the SP. */
ld [%sp+22*4], %o2 ld [%sp+22*4], %o2
sethi %hi(operatingsystem_parameter_argc),%o1 sethi %hi(operatingsystem_parameter_argc),%o1
or %o1,%lo(operatingsystem_parameter_argc),%o1 or %o1,%lo(operatingsystem_parameter_argc),%o1
.ifdef PIC
ld [%o1+%l7],%o1
.endif
st %o2, [%o1] st %o2, [%o1]
add %sp, 23*4, %o0 add %sp, 23*4, %o0
sethi %hi(operatingsystem_parameter_argv),%o1 sethi %hi(operatingsystem_parameter_argv),%o1
or %o1,%lo(operatingsystem_parameter_argv),%o1 or %o1,%lo(operatingsystem_parameter_argv),%o1
.ifdef PIC
ld [%o1+%l7],%o1
.endif
st %o0, [%o1] st %o0, [%o1]
/* envp=(argc+1)*4+argv */ /* envp=(argc+1)*4+argv */
@ -27,11 +41,17 @@ _start:
add %o2, %o0, %o2 add %o2, %o0, %o2
sethi %hi(operatingsystem_parameter_envp),%o1 sethi %hi(operatingsystem_parameter_envp),%o1
or %o1,%lo(operatingsystem_parameter_envp),%o1 or %o1,%lo(operatingsystem_parameter_envp),%o1
.ifdef PIC
ld [%o1+%l7],%o1
.endif
st %o2, [%o1] st %o2, [%o1]
/* Save initial stackpointer */ /* Save initial stackpointer */
sethi %hi(__stkptr),%o1 sethi %hi(__stkptr),%o1
or %o1,%lo(__stkptr),%o1 or %o1,%lo(__stkptr),%o1
.ifdef PIC
ld [%o1+%l7],%o1
.endif
st %sp, [%o1] st %sp, [%o1]
/* reload the addresses for C startup code */ /* reload the addresses for C startup code */
@ -44,8 +64,17 @@ _start:
sethi %hi(_init), %o3 sethi %hi(_init), %o3
sethi %hi(_fini), %o4 sethi %hi(_fini), %o4
or %o0, %lo(PASCALMAIN), %o0 or %o0, %lo(PASCALMAIN), %o0
.ifdef PIC
ld [%o0+%l7],%o0
.endif
or %o3, %lo(_init), %o3 or %o3, %lo(_init), %o3
.ifdef PIC
ld [%o3+%l7],%o3
.endif
or %o4, %lo(_fini), %o4 or %o4, %lo(_fini), %o4
.ifdef PIC
ld [%o4+%l7],%o4
.endif
/* When starting a binary via the dynamic linker, %g1 contains the /* When starting a binary via the dynamic linker, %g1 contains the
address of the shared library termination function, which will be address of the shared library termination function, which will be