paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 17:47:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

* try to prevent addresses from being PICified multiple times (should fix

Browse Source 
regressions after r13760)

git-svn-id: trunk@13795 -
This commit is contained in:
Jonas Maebe 2009-10-02 14:13:10 +00:00
parent 1eceb2ca65
commit 762a0c7059
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/x86/cgx86.pas
View File

@ -351,6 +351,11 @@ unit cgx86;
add_hreg: boolean;
{$endif not x86_64}
begin
{ make_simple_ref() may have already been called earlier, and in that
case make sure we don't perform the PIC-simplifications twice }
if (ref.refaddr in [addr_pic,addr_pic_no_got]) then
exit;
{$ifdef x86_64}
{ Only 32bit is allowed }
if ((ref.offset<low(longint)) or (ref.offset>high(longint))) then
@ -397,7 +402,7 @@ unit cgx86;
if (ref.base<>NR_NO) or
(ref.index<>NR_NO) then
begin
reference_reset_symbol(href,ref.symbol,0,sizeof(pint));
reference_reset_symbol(href,ref.symbol,0,ref.alignment);
hreg:=getaddressregister(list);
href.refaddr:=addr_pic_no_got;
href.base:=NR_RIP;
@ -413,7 +418,7 @@ unit cgx86;
end
else
begin
reference_reset_symbol(href,ref.symbol,0,sizeof(pint));
reference_reset_symbol(href,ref.symbol,0,ref.alignment);
hreg:=getaddressregister(list);
href.refaddr:=addr_pic;
href.base:=NR_RIP;