Browse Source

Use A_LD_R alias in functions using GOT indirection

git-svn-id: trunk@36795 -
pierre 8 years ago
parent
commit
7ee567fcca
1 changed files with 2 additions and 2 deletions
  1. 2 2
      compiler/sparcgen/cgsparc.pas

+ 2 - 2
compiler/sparcgen/cgsparc.pas

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