paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-10 11:32:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

Use A_LD_R alias in functions using GOT indirection

Browse Source 
git-svn-id: trunk@36795 -
This commit is contained in:
pierre 2017-07-26 14:58:03 +00:00
parent ef3b006eb2
commit 7ee567fcca
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/sparcgen/cgsparc.pas
View File

@ -220,7 +220,7 @@ implementation
href.base:=current_procinfo.got;
href.refaddr:=addr_pic;
end;
list.concat(taicpu.op_ref_reg(A_LD,href,hreg));
list.concat(taicpu.op_ref_reg(A_LD_R,href,hreg));
ref.symbol:=nil;
{ hreg now holds symbol address. Add remaining members. }
if (ref.offset>=simm13lo) and (ref.offset<=simm13hi-sizeof(pint)) then
@ -545,7 +545,7 @@ implementation
href.refaddr:=addr_pic; { should it be done THAT way?? }
end;
{ load contents of GOT slot }
list.concat(taicpu.op_ref_reg(A_LD,href,r));
list.concat(taicpu.op_ref_reg(A_LD_R,href,r));
{ add original base/index, if any }
if (ref.base<>NR_NO) then
list.concat(taicpu.op_reg_reg_reg(A_ADD,r,ref.base,r));