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

+ Handle PIC code for unlimited GOT size

Browse Source 
git-svn-id: trunk@22478 -
This commit is contained in:
pierre 2012-09-27 15:45:54 +00:00
parent 5bbd9597e0
commit 141b1340fb
1 changed files with 154 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

162
rtl/sparc/sparc.inc
View File

@ -336,161 +336,285 @@ var
{$define FPC_SYSTEM_HAS_DECLOCKED_LONGINT}
function declocked(var l : longint) : boolean;assembler;nostackframe;
function declocked(var l : longint) : boolean;assembler;
{$ifndef FPC_PIC}nostackframe;{$endif}
asm
{ usually, we shouldn't lock here so saving the stack frame for these extra intructions is
worse the effort, especially while waiting :)
}
{$ifdef FPC_PIC}
sethi %hi(_GLOBAL_OFFSET_TABLE_ -8),%l7
or %l7,%lo(_GLOBAL_OFFSET_TABLE_ -4),%l7
call get_got
nop
{$endif FPC_PIC}
.Ldeclocked1:
sethi %hi(fpc_system_lock), %g1
or %g1,%lo(fpc_system_lock), %g1
{$ifdef FPC_PIC}
ld [%g1+%l7],%g1
{$endif FPC_PIC}
ldstub [%g1],%g1
cmp %g1,0
bne .Ldeclocked1
nop
{$ifdef FPC_PIC}
ld [%i0],%g1
sub %g1,1,%g1
st %g1,[%i0]
subcc %g1,1,%g0
addx %g0,%g0,%i0
{$else not FPC_PIC}
ld [%o0],%g1
sub %g1,1,%g1
st %g1,[%o0]
subcc %g1,1,%g0
addx %g0,%g0,%o0
{$endif FPC_PIC}
{ unlock }
sethi %hi(fpc_system_lock), %g1
or %g1,%lo(fpc_system_lock), %g1
{$ifdef FPC_PIC}
ld [%g1+%l7],%g1
{$endif FPC_PIC}
stb %g0,[%g1]
end;
{$define FPC_SYSTEM_HAS_INCLOCKED_LONGINT}
procedure inclocked(var l : longint);assembler;nostackframe;
procedure inclocked(var l : longint);assembler;
{$ifndef FPC_PIC}nostackframe;{$endif}
asm
{ usually, we shouldn't lock here so saving the stack frame for these extra intructions is
worse the effort, especially while waiting :)
}
{$ifdef FPC_PIC}
sethi %hi(_GLOBAL_OFFSET_TABLE_ -8),%l7
or %l7,%lo(_GLOBAL_OFFSET_TABLE_ -4),%l7
call get_got
nop
{$endif FPC_PIC}
.Linclocked1:
sethi %hi(fpc_system_lock), %g1
or %g1,%lo(fpc_system_lock), %g1
{$ifdef FPC_PIC}
ld [%g1+%l7],%g1
{$endif FPC_PIC}
ldstub [%g1],%g1
cmp %g1,0
bne .Linclocked1
nop
{$ifdef FPC_PIC}
ld [%i0],%g1
add %g1,1,%g1
st %g1,[%i0]
{$else not FPC_PIC}
ld [%o0],%g1
add %g1,1,%g1
st %g1,[%o0]
{$endif FPC_PIC}
{ unlock }
sethi %hi(fpc_system_lock), %g1
or %g1,%lo(fpc_system_lock), %g1
{$ifdef FPC_PIC}
ld [%g1+%l7],%g1
{$endif FPC_PIC}
stb %g0,[%g1]
end;
function InterLockedDecrement (var Target: longint) : longint; assembler; nostackframe;
function InterLockedDecrement (var Target: longint) : longint; assembler;
{$ifndef FPC_PIC}nostackframe;{$endif}
asm
{ usually, we shouldn't lock here so saving the stack frame for these extra intructions is
worse the effort, especially while waiting :)
}
{$ifdef FPC_PIC}
sethi %hi(_GLOBAL_OFFSET_TABLE_ -8),%l7
or %l7,%lo(_GLOBAL_OFFSET_TABLE_ -4),%l7
call get_got
nop
{$endif FPC_PIC}
.LInterLockedDecrement1:
sethi %hi(fpc_system_lock), %g1
or %g1,%lo(fpc_system_lock), %g1
{$ifdef FPC_PIC}
ld [%g1+%l7],%g1
{$endif FPC_PIC}
ldstub [%g1],%g1
cmp %g1,0
bne .LInterLockedDecrement1
nop
{$ifdef FPC_PIC}
ld [%i0],%g1
sub %g1,1,%g1
st %g1,[%i0]
mov %g1,%i0
{$else not FPC_PIC}
ld [%o0],%g1
sub %g1,1,%g1
st %g1,[%o0]
mov %g1,%o0
{$endif FPC_PIC}
{ unlock }
sethi %hi(fpc_system_lock), %g1
or %g1,%lo(fpc_system_lock), %g1
{$ifdef FPC_PIC}
ld [%g1+%l7],%g1
{$endif FPC_PIC}
stb %g0,[%g1]
end;
function InterLockedIncrement (var Target: longint) : longint; assembler; nostackframe;
function InterLockedIncrement (var Target: longint) : longint; assembler;
{$ifndef FPC_PIC}nostackframe;{$endif}
asm
{ usually, we shouldn't lock here so saving the stack frame for these extra intructions is
worse the effort, especially while waiting :)
}
{$ifdef FPC_PIC}
sethi %hi(_GLOBAL_OFFSET_TABLE_ -8),%l7
or %l7,%lo(_GLOBAL_OFFSET_TABLE_ -4),%l7
call get_got
nop
{$endif FPC_PIC}
.LInterLockedIncrement1:
sethi %hi(fpc_system_lock), %g1
or %g1,%lo(fpc_system_lock), %g1
{$ifdef FPC_PIC}
ld [%g1+%l7],%g1
{$endif FPC_PIC}
ldstub [%g1],%g1
cmp %g1,0
bne .LInterLockedIncrement1
nop
{$ifdef FPC_PIC}
ld [%i0],%g1
add %g1,1,%g1
st %g1,[%i0]
mov %g1,%i0
{$else not FPC_PIC}
ld [%o0],%g1
add %g1,1,%g1
st %g1,[%o0]
mov %g1,%o0
{$endif FPC_PIC}
{ unlock }
sethi %hi(fpc_system_lock), %g1
or %g1,%lo(fpc_system_lock), %g1
{$ifdef FPC_PIC}
ld [%g1+%l7],%g1
{$endif FPC_PIC}
stb %g0,[%g1]
end;
function InterLockedExchange (var Target: longint;Source : longint) : longint; assembler; nostackframe;
function InterLockedExchange (var Target: longint;Source : longint) : longint; assembler;
{$ifndef FPC_PIC}nostackframe;{$endif}
asm
{ usually, we shouldn't lock here so saving the stack frame for these extra intructions is
worse the effort, especially while waiting :)
}
{$ifdef FPC_PIC}
sethi %hi(_GLOBAL_OFFSET_TABLE_ -8),%l7
or %l7,%lo(_GLOBAL_OFFSET_TABLE_ -4),%l7
call get_got
nop
{$endif FPC_PIC}
.LInterLockedExchange1:
sethi %hi(fpc_system_lock), %g1
or %g1,%lo(fpc_system_lock), %g1
{$ifdef FPC_PIC}
ld [%g1+%l7],%g1
{$endif FPC_PIC}
ldstub [%g1],%g1
cmp %g1,0
bne .LInterLockedExchange1
nop
{$ifdef FPC_PIC}
ld [%i0],%g1
st %i1,[%i0]
mov %g1,%i0
{$else not FPC_PIC}
ld [%o0],%g1
st %o1,[%o0]
mov %g1,%o0
{$endif FPC_PIC}
{ unlock }
sethi %hi(fpc_system_lock), %g1
or %g1,%lo(fpc_system_lock), %g1
{$ifdef FPC_PIC}
ld [%g1+%l7],%g1
{$endif FPC_PIC}
stb %g0,[%g1]
end;
function InterLockedExchangeAdd (var Target: longint;Source : longint) : longint; assembler; nostackframe;
function InterLockedExchangeAdd (var Target: longint;Source : longint) : longint; assembler;
{$ifndef FPC_PIC}nostackframe;{$endif}
asm
{ usually, we shouldn't lock here so saving the stack frame for these extra intructions is
worse the effort, especially while waiting :)
}
{$ifdef FPC_PIC}
sethi %hi(_GLOBAL_OFFSET_TABLE_ -8),%l7
or %l7,%lo(_GLOBAL_OFFSET_TABLE_ -4),%l7
call get_got
nop
{$endif FPC_PIC}
.LInterLockedExchangeAdd1:
sethi %hi(fpc_system_lock), %g1
or %g1,%lo(fpc_system_lock), %g1
{$ifdef FPC_PIC}
ld [%g1+%l7],%g1
{$endif FPC_PIC}
ldstub [%g1],%g1
cmp %g1,0
bne .LInterLockedExchangeAdd1
nop
{$ifdef FPC_PIC}
ld [%i0],%g1
add %g1,%i1,%i1
st %i1,[%i0]
mov %g1,%i0
{$else not FPC_PIC}
ld [%o0],%g1
add %g1,%o1,%o1
st %o1,[%o0]
mov %g1,%o0
{$endif FPC_PIC}
{ unlock }
sethi %hi(fpc_system_lock), %g1
or %g1,%lo(fpc_system_lock), %g1
{$ifdef FPC_PIC}
ld [%g1+%l7],%g1
{$endif FPC_PIC}
stb %g0,[%g1]
end;
function InterlockedCompareExchange(var Target: longint; NewValue: longint; Comperand: longint): longint; assembler; nostackframe;
function InterlockedCompareExchange(var Target: longint; NewValue: longint; Comperand: longint): longint; assembler;
{$ifndef FPC_PIC}nostackframe;{$endif}
asm
{ usually, we shouldn't lock here so saving the stack frame for these extra intructions is
worse the effort, especially while waiting :)
@ -498,14 +622,32 @@ asm
{ input: address of target in o0, newvalue in o1, comparand in o2 }
{ output: value stored in target before entry of the function }
{ side-effect: NewValue stored in target if (target = comparand) }
{$ifdef FPC_PIC}
sethi %hi(_GLOBAL_OFFSET_TABLE_ -8),%l7
or %l7,%lo(_GLOBAL_OFFSET_TABLE_ -4),%l7
call get_got
nop
{$endif FPC_PIC}
.LInterlockedCompareExchange1:
sethi %hi(fpc_system_lock), %g1
or %g1,%lo(fpc_system_lock), %g1
{$ifdef FPC_PIC}
ld [%g1+%l7],%g1
{$endif FPC_PIC}
ldstub [%g1],%g1
cmp %g1,0
bne .LInterlockedCompareExchange1
nop
{$ifdef FPC_PIC}
ld [%i0],%g1
cmp %g1,%i2
bne .LInterlockedCompareExchange2
nop
st %i1,[%i0]
.LInterlockedCompareExchange2:
mov %g1,%i0
{$else not FPC_PIC}
ld [%o0],%g1
cmp %g1,%o2
bne .LInterlockedCompareExchange2
@ -513,10 +655,14 @@ asm
st %o1,[%o0]
.LInterlockedCompareExchange2:
mov %g1,%o0
{$endif FPC_PIC}
{ unlock }
sethi %hi(fpc_system_lock), %g1
or %g1,%lo(fpc_system_lock), %g1
{$ifdef FPC_PIC}
ld [%g1+%l7],%g1
{$endif FPC_PIC}
stb %g0,[%g1]
end;