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

Allow testing of delayed pi_needs_got by internal error generated if compiler compiled with -dCHECK_PIC

Browse Source 
git-svn-id: trunk@22547 -
This commit is contained in:
pierre 2012-10-05 14:59:18 +00:00
parent f4ba47a1c8
commit b145028f35
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/sparc/cgcpu.pas
View File

@ -181,7 +181,9 @@ implementation
begin
if not(pi_needs_got in current_procinfo.flags) then
begin
//internalerror(200501161);
{$ifdef CHECK_PIC}
internalerror(200501161);
{$endif CHECK_PIC}
include(current_procinfo.flags,pi_needs_got);
end;
if current_procinfo.got=NR_NO then
@ -201,7 +203,9 @@ implementation
tmpref.refaddr:=addr_pic;
if not(pi_needs_got in current_procinfo.flags) then
begin
//internalerror(200501161);
{$ifdef CHECK_PIC}
internalerror(200501161);
{$endif CHECK_PIC}
include(current_procinfo.flags,pi_needs_got);
end;
if current_procinfo.got=NR_NO then
@ -749,7 +753,9 @@ implementation
begin
if not(pi_needs_got in current_procinfo.flags) then
begin
//internalerror(200501161);
{$ifdef CHECK_PIC}
internalerror(200501161);
{$endif CHECK_PIC}
include(current_procinfo.flags,pi_needs_got);
end;
if current_procinfo.got=NR_NO then
@ -769,7 +775,9 @@ implementation
tmpref.refaddr:=addr_pic;
if not(pi_needs_got in current_procinfo.flags) then
begin
//internalerror(200501161);
{$ifdef CHECK_PIC}
internalerror(200501161);
{$endif CHECK_PIC}
include(current_procinfo.flags,pi_needs_got);
end;
if current_procinfo.got=NR_NO then