mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-15 16:09:27 +02:00
* use generic ppc version of a_loadaddr_ref_reg() for AIX/ppc64
* also recognize addr_pic_no_got as a PIC'ed address git-svn-id: trunk@21052 -
This commit is contained in:
parent
b33b744f78
commit
0278d67764
@ -1590,7 +1590,7 @@ var
|
|||||||
tempreg : TRegister;
|
tempreg : TRegister;
|
||||||
|
|
||||||
begin
|
begin
|
||||||
if (target_info.system = system_powerpc64_darwin) then
|
if (target_info.system in [system_powerpc64_darwin,system_powerpc64_aix]) then
|
||||||
begin
|
begin
|
||||||
inherited a_loadaddr_ref_reg(list,ref,r);
|
inherited a_loadaddr_ref_reg(list,ref,r);
|
||||||
exit;
|
exit;
|
||||||
@ -1900,7 +1900,7 @@ begin
|
|||||||
internalerror(200310131);
|
internalerror(200310131);
|
||||||
|
|
||||||
{ if this is a PIC'ed address, handle it and exit }
|
{ if this is a PIC'ed address, handle it and exit }
|
||||||
if (ref.refaddr = addr_pic) then begin
|
if (ref.refaddr in [addr_pic,addr_pic_no_got]) then begin
|
||||||
if (ref.offset <> 0) then
|
if (ref.offset <> 0) then
|
||||||
internalerror(2006010501);
|
internalerror(2006010501);
|
||||||
if (ref.index <> NR_NO) then
|
if (ref.index <> NR_NO) then
|
||||||
|
Loading…
Reference in New Issue
Block a user