From d95ff52463e938db2662a9ca0d00f092a0799b44 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Fri, 28 Sep 2012 13:52:02 +0000
Subject: [PATCH]  Add PIC code

git-svn-id: trunk@22496 -
---
 rtl/linux/sparc/cprt0.as | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)

diff --git a/rtl/linux/sparc/cprt0.as b/rtl/linux/sparc/cprt0.as
index 6d2447228f..dd36b020fe 100644
--- a/rtl/linux/sparc/cprt0.as
+++ b/rtl/linux/sparc/cprt0.as
@@ -9,16 +9,30 @@ _start:
         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 */
@@ -27,11 +41,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]
 
   /* reload the addresses for C startup code  */
@@ -44,8 +64,17 @@ _start:
         sethi   %hi(_init), %o3
         sethi   %hi(_fini), %o4
         or      %o0, %lo(PASCALMAIN), %o0
+.ifdef PIC
+        ld      [%o0+%l7],%o0
+.endif
         or      %o3, %lo(_init), %o3
+.ifdef PIC
+        ld      [%o3+%l7],%o3
+.endif
         or      %o4, %lo(_fini), %o4
+.ifdef PIC
+        ld      [%o4+%l7],%o4
+.endif
 
   /* When starting a binary via the dynamic linker, %g1 contains the
      address of the shared library termination function, which will be