paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-24 19:31:35 +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} {$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 asm
{ usually, we shouldn't lock here so saving the stack frame for these extra intructions is { usually, we shouldn't lock here so saving the stack frame for these extra intructions is
worse the effort, especially while waiting :) 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: .Ldeclocked1:
sethi %hi(fpc_system_lock), %g1 sethi %hi(fpc_system_lock), %g1
or %g1,%lo(fpc_system_lock), %g1 or %g1,%lo(fpc_system_lock), %g1
{$ifdef FPC_PIC}
ld [%g1+%l7],%g1
{$endif FPC_PIC}
ldstub [%g1],%g1 ldstub [%g1],%g1
cmp %g1,0 cmp %g1,0
bne .Ldeclocked1 bne .Ldeclocked1
nop 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 ld [%o0],%g1
sub %g1,1,%g1 sub %g1,1,%g1
st %g1,[%o0] st %g1,[%o0]
subcc %g1,1,%g0 subcc %g1,1,%g0
addx %g0,%g0,%o0 addx %g0,%g0,%o0
{$endif FPC_PIC}
{ unlock } { unlock }
sethi %hi(fpc_system_lock), %g1 sethi %hi(fpc_system_lock), %g1
or %g1,%lo(fpc_system_lock), %g1 or %g1,%lo(fpc_system_lock), %g1
{$ifdef FPC_PIC}
ld [%g1+%l7],%g1
{$endif FPC_PIC}
stb %g0,[%g1] stb %g0,[%g1]
end; end;
{$define FPC_SYSTEM_HAS_INCLOCKED_LONGINT} {$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 asm
{ usually, we shouldn't lock here so saving the stack frame for these extra intructions is { usually, we shouldn't lock here so saving the stack frame for these extra intructions is
worse the effort, especially while waiting :) 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: .Linclocked1:
sethi %hi(fpc_system_lock), %g1 sethi %hi(fpc_system_lock), %g1
or %g1,%lo(fpc_system_lock), %g1 or %g1,%lo(fpc_system_lock), %g1
{$ifdef FPC_PIC}
ld [%g1+%l7],%g1
{$endif FPC_PIC}
ldstub [%g1],%g1 ldstub [%g1],%g1
cmp %g1,0 cmp %g1,0
bne .Linclocked1 bne .Linclocked1
nop nop
{$ifdef FPC_PIC}
ld [%i0],%g1
add %g1,1,%g1
st %g1,[%i0]
{$else not FPC_PIC}
ld [%o0],%g1 ld [%o0],%g1
add %g1,1,%g1 add %g1,1,%g1
st %g1,[%o0] st %g1,[%o0]
{$endif FPC_PIC}
{ unlock } { unlock }
sethi %hi(fpc_system_lock), %g1 sethi %hi(fpc_system_lock), %g1
or %g1,%lo(fpc_system_lock), %g1 or %g1,%lo(fpc_system_lock), %g1
{$ifdef FPC_PIC}
ld [%g1+%l7],%g1
{$endif FPC_PIC}
stb %g0,[%g1] stb %g0,[%g1]
end; end;
function InterLockedDecrement (var Target: longint) : longint; assembler; nostackframe; function InterLockedDecrement (var Target: longint) : longint; assembler;
{$ifndef FPC_PIC}nostackframe;{$endif}
asm asm
{ usually, we shouldn't lock here so saving the stack frame for these extra intructions is { usually, we shouldn't lock here so saving the stack frame for these extra intructions is
worse the effort, especially while waiting :) 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: .LInterLockedDecrement1:
sethi %hi(fpc_system_lock), %g1 sethi %hi(fpc_system_lock), %g1
or %g1,%lo(fpc_system_lock), %g1 or %g1,%lo(fpc_system_lock), %g1
{$ifdef FPC_PIC}
ld [%g1+%l7],%g1
{$endif FPC_PIC}
ldstub [%g1],%g1 ldstub [%g1],%g1
cmp %g1,0 cmp %g1,0
bne .LInterLockedDecrement1 bne .LInterLockedDecrement1
nop nop
{$ifdef FPC_PIC}
ld [%i0],%g1
sub %g1,1,%g1
st %g1,[%i0]
mov %g1,%i0
{$else not FPC_PIC}
ld [%o0],%g1 ld [%o0],%g1
sub %g1,1,%g1 sub %g1,1,%g1
st %g1,[%o0] st %g1,[%o0]
mov %g1,%o0 mov %g1,%o0
{$endif FPC_PIC}
{ unlock } { unlock }
sethi %hi(fpc_system_lock), %g1 sethi %hi(fpc_system_lock), %g1
or %g1,%lo(fpc_system_lock), %g1 or %g1,%lo(fpc_system_lock), %g1
{$ifdef FPC_PIC}
ld [%g1+%l7],%g1
{$endif FPC_PIC}
stb %g0,[%g1] stb %g0,[%g1]
end; end;
function InterLockedIncrement (var Target: longint) : longint; assembler; nostackframe; function InterLockedIncrement (var Target: longint) : longint; assembler;
{$ifndef FPC_PIC}nostackframe;{$endif}
asm asm
{ usually, we shouldn't lock here so saving the stack frame for these extra intructions is { usually, we shouldn't lock here so saving the stack frame for these extra intructions is
worse the effort, especially while waiting :) 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: .LInterLockedIncrement1:
sethi %hi(fpc_system_lock), %g1 sethi %hi(fpc_system_lock), %g1
or %g1,%lo(fpc_system_lock), %g1 or %g1,%lo(fpc_system_lock), %g1
{$ifdef FPC_PIC}
ld [%g1+%l7],%g1
{$endif FPC_PIC}
ldstub [%g1],%g1 ldstub [%g1],%g1
cmp %g1,0 cmp %g1,0
bne .LInterLockedIncrement1 bne .LInterLockedIncrement1
nop nop
{$ifdef FPC_PIC}
ld [%i0],%g1
add %g1,1,%g1
st %g1,[%i0]
mov %g1,%i0
{$else not FPC_PIC}
ld [%o0],%g1 ld [%o0],%g1
add %g1,1,%g1 add %g1,1,%g1
st %g1,[%o0] st %g1,[%o0]
mov %g1,%o0 mov %g1,%o0
{$endif FPC_PIC}
{ unlock } { unlock }
sethi %hi(fpc_system_lock), %g1 sethi %hi(fpc_system_lock), %g1
or %g1,%lo(fpc_system_lock), %g1 or %g1,%lo(fpc_system_lock), %g1
{$ifdef FPC_PIC}
ld [%g1+%l7],%g1
{$endif FPC_PIC}
stb %g0,[%g1] stb %g0,[%g1]
end; 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 asm
{ usually, we shouldn't lock here so saving the stack frame for these extra intructions is { usually, we shouldn't lock here so saving the stack frame for these extra intructions is
worse the effort, especially while waiting :) 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: .LInterLockedExchange1:
sethi %hi(fpc_system_lock), %g1 sethi %hi(fpc_system_lock), %g1
or %g1,%lo(fpc_system_lock), %g1 or %g1,%lo(fpc_system_lock), %g1
{$ifdef FPC_PIC}
ld [%g1+%l7],%g1
{$endif FPC_PIC}
ldstub [%g1],%g1 ldstub [%g1],%g1
cmp %g1,0 cmp %g1,0
bne .LInterLockedExchange1 bne .LInterLockedExchange1
nop nop
{$ifdef FPC_PIC}
ld [%i0],%g1
st %i1,[%i0]
mov %g1,%i0
{$else not FPC_PIC}
ld [%o0],%g1 ld [%o0],%g1
st %o1,[%o0] st %o1,[%o0]
mov %g1,%o0 mov %g1,%o0
{$endif FPC_PIC}
{ unlock } { unlock }
sethi %hi(fpc_system_lock), %g1 sethi %hi(fpc_system_lock), %g1
or %g1,%lo(fpc_system_lock), %g1 or %g1,%lo(fpc_system_lock), %g1
{$ifdef FPC_PIC}
ld [%g1+%l7],%g1
{$endif FPC_PIC}
stb %g0,[%g1] stb %g0,[%g1]
end; 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 asm
{ usually, we shouldn't lock here so saving the stack frame for these extra intructions is { usually, we shouldn't lock here so saving the stack frame for these extra intructions is
worse the effort, especially while waiting :) 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: .LInterLockedExchangeAdd1:
sethi %hi(fpc_system_lock), %g1 sethi %hi(fpc_system_lock), %g1
or %g1,%lo(fpc_system_lock), %g1 or %g1,%lo(fpc_system_lock), %g1
{$ifdef FPC_PIC}
ld [%g1+%l7],%g1
{$endif FPC_PIC}
ldstub [%g1],%g1 ldstub [%g1],%g1
cmp %g1,0 cmp %g1,0
bne .LInterLockedExchangeAdd1 bne .LInterLockedExchangeAdd1
nop nop
{$ifdef FPC_PIC}
ld [%i0],%g1
add %g1,%i1,%i1
st %i1,[%i0]
mov %g1,%i0
{$else not FPC_PIC}
ld [%o0],%g1 ld [%o0],%g1
add %g1,%o1,%o1 add %g1,%o1,%o1
st %o1,[%o0] st %o1,[%o0]
mov %g1,%o0 mov %g1,%o0
{$endif FPC_PIC}
{ unlock } { unlock }
sethi %hi(fpc_system_lock), %g1 sethi %hi(fpc_system_lock), %g1
or %g1,%lo(fpc_system_lock), %g1 or %g1,%lo(fpc_system_lock), %g1
{$ifdef FPC_PIC}
ld [%g1+%l7],%g1
{$endif FPC_PIC}
stb %g0,[%g1] stb %g0,[%g1]
end; 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 asm
{ usually, we shouldn't lock here so saving the stack frame for these extra intructions is { usually, we shouldn't lock here so saving the stack frame for these extra intructions is
worse the effort, especially while waiting :) worse the effort, especially while waiting :)
@ -498,14 +622,32 @@ asm
{ input: address of target in o0, newvalue in o1, comparand in o2 } { input: address of target in o0, newvalue in o1, comparand in o2 }
{ output: value stored in target before entry of the function } { output: value stored in target before entry of the function }
{ side-effect: NewValue stored in target if (target = comparand) } { 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: .LInterlockedCompareExchange1:
sethi %hi(fpc_system_lock), %g1 sethi %hi(fpc_system_lock), %g1
or %g1,%lo(fpc_system_lock), %g1 or %g1,%lo(fpc_system_lock), %g1
{$ifdef FPC_PIC}
ld [%g1+%l7],%g1
{$endif FPC_PIC}
ldstub [%g1],%g1 ldstub [%g1],%g1
cmp %g1,0 cmp %g1,0
bne .LInterlockedCompareExchange1 bne .LInterlockedCompareExchange1
nop 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 ld [%o0],%g1
cmp %g1,%o2 cmp %g1,%o2
bne .LInterlockedCompareExchange2 bne .LInterlockedCompareExchange2
@ -513,10 +655,14 @@ asm
st %o1,[%o0] st %o1,[%o0]
.LInterlockedCompareExchange2: .LInterlockedCompareExchange2:
mov %g1,%o0 mov %g1,%o0
{$endif FPC_PIC}
{ unlock } { unlock }
sethi %hi(fpc_system_lock), %g1 sethi %hi(fpc_system_lock), %g1
or %g1,%lo(fpc_system_lock), %g1 or %g1,%lo(fpc_system_lock), %g1
{$ifdef FPC_PIC}
ld [%g1+%l7],%g1
{$endif FPC_PIC}
stb %g0,[%g1] stb %g0,[%g1]
end; end;