From 7ee567fcca6ca334db491f46365a54334b551b99 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Wed, 26 Jul 2017 14:58:03 +0000
Subject: [PATCH]  Use A_LD_R alias in functions using GOT indirection

git-svn-id: trunk@36795 -
---
 compiler/sparcgen/cgsparc.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/sparcgen/cgsparc.pas b/compiler/sparcgen/cgsparc.pas
index 27556b9125..e23934edcd 100644
--- a/compiler/sparcgen/cgsparc.pas
+++ b/compiler/sparcgen/cgsparc.pas
@@ -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));