Browse Source

* small optimization

Jonas Maebe 24 years ago
parent
commit
32759c4953
1 changed files with 7 additions and 2 deletions
  1. 7 2
      compiler/powerpc/cgcpu.pas

+ 7 - 2
compiler/powerpc/cgcpu.pas

@@ -640,7 +640,9 @@ const
          else
            if ref.index <> R_NO Then
              list.concat(taicpu.op_reg_reg_reg(A_ADD,r,ref.base,ref.index))
-           else list.concat(taicpu.op_reg_reg(A_MR,r,ref.base));
+           else
+             if r <> ref.base then
+               list.concat(taicpu.op_reg_reg(A_MR,r,ref.base));
          if assigned(ref.symbol) then
            free_scratch_reg(list,tmpreg);
        end;
@@ -998,7 +1000,10 @@ const
 end.
 {
   $Log$
-  Revision 1.6  2001-09-28 20:40:05  jonas
+  Revision 1.7  2001-09-29 21:33:30  jonas
+    * small optimization
+
+  Revision 1.6  2001/09/28 20:40:05  jonas
     * several additions, almost complete (only some problems with resflags left)
 
   Revision 1.5  2001/09/16 10:33:21  jonas