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

Add PIC specific code

Browse Source 
git-svn-id: trunk@22484 -
This commit is contained in:
pierre 2012-09-27 15:50:31 +00:00
parent 62356c0e17
commit 20c9d19764
1 changed files with 19 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
rtl/linux/sparc/prt0.as
View File

@ -31,22 +31,34 @@ _dynamic_start:
.global _start
.type _start,#function
_start:
/* Terminate the stack frame, and reserve space for functions to
drop their arguments. */
mov %g0, %fp
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
argument info starts after one register window (16 words) past the SP. */
ld [%sp+22*4], %o2
sethi %hi(operatingsystem_parameter_argc),%o1
or %o1,%lo(operatingsystem_parameter_argc),%o1
.ifdef PIC
ld [%o1+%l7],%o1
.endif
st %o2, [%o1]
add %sp, 23*4, %o0
sethi %hi(operatingsystem_parameter_argv),%o1
or %o1,%lo(operatingsystem_parameter_argv),%o1
.ifdef PIC
ld [%o1+%l7],%o1
.endif
st %o0, [%o1]
/* envp=(argc+1)*4+argv */
@ -55,11 +67,17 @@ _start:
add %o2, %o0, %o2
sethi %hi(operatingsystem_parameter_envp),%o1
or %o1,%lo(operatingsystem_parameter_envp),%o1
.ifdef PIC
ld [%o1+%l7],%o1
.endif
st %o2, [%o1]
/* Save initial stackpointer */
sethi %hi(__stkptr),%o1
or %o1,%lo(__stkptr),%o1
.ifdef PIC
ld [%o1+%l7],%o1
.endif
st %sp, [%o1]
/* Call the user program entry point. */