paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-05 14:47:21 +01:00
Code Issues Packages Projects Releases Wiki Activity

* setup of envp fixed

Browse Source 
* use STACK_BIAS constant

git-svn-id: trunk@36544 -
This commit is contained in:
florian 2017-06-19 21:18:01 +00:00
parent 1e619a3479
commit 7fd359bb78
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/linux/sparc64/si_prc.inc
View File

@ -19,9 +19,6 @@
var
dlexitproc : pointer;
const
BIAS = 2047;
function fpc_getgot : pointer; [external name 'FPC_GETGOT'];
procedure _FPC_proc_start; assembler; nostackframe; public name '_start';
@ -35,7 +32,7 @@ procedure _FPC_proc_start; assembler; nostackframe; public name '_start';
nop
{$endif FPC_PIC}
{ extract argc }
ldx [%sp+BIAS+22*8], %o2
ldx [%sp+STACK_BIAS+22*8], %o2
{$ifdef FPC_PIC}
{$else FPC_PIC}
sethi %hi(operatingsystem_parameter_argc),%o1
@ -45,7 +42,7 @@ procedure _FPC_proc_start; assembler; nostackframe; public name '_start';
{ extract argv }
{$ifdef FPC_PIC}
{$else FPC_PIC}
add %sp, BIAS+23*8, %o0
add %sp, STACK_BIAS+23*8, %o0
sethi %hi(operatingsystem_parameter_argv),%o1
or %o1,%lo(operatingsystem_parameter_argv),%o1
{$endif FPC_PIC}
@ -53,7 +50,7 @@ procedure _FPC_proc_start; assembler; nostackframe; public name '_start';
{ envp=argv+(argc+1)*8 }
inc %o2
sllx %o2, 8, %o2
sllx %o2, 3, %o2
add %o2, %o0, %o2
{$ifdef FPC_PIC}
{$else FPC_PIC}