Browse Source

* fix for bug in fixref that Peter found during the Sparc conversion

Jonas Maebe 22 years ago
parent
commit
abc1c5bf2f
1 changed files with 8 additions and 2 deletions
  1. 8 2
      compiler/powerpc/cgcpu.pas

+ 8 - 2
compiler/powerpc/cgcpu.pas

@@ -2191,7 +2191,10 @@ const
        begin
        begin
          result := false;
          result := false;
          if (ref.base.number = NR_NO) then
          if (ref.base.number = NR_NO) then
-           ref.base := ref.index;
+           begin
+             ref.base := ref.index;
+             ref.base.number := NR_NO;
+           end;
          if (ref.base.number <> NR_NO) then
          if (ref.base.number <> NR_NO) then
            begin
            begin
              if (ref.index.number <> NR_NO) and
              if (ref.index.number <> NR_NO) and
@@ -2540,7 +2543,10 @@ begin
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.101  2003-05-30 18:52:10  jonas
+  Revision 1.102  2003-06-01 13:42:18  jonas
+    * fix for bug in fixref that Peter found during the Sparc conversion
+
+  Revision 1.101  2003/05/30 18:52:10  jonas
     * fixed bug with intregvars
     * fixed bug with intregvars
     * locapara.loc can also be LOC_CFPUREGISTER -> also fixed
     * locapara.loc can also be LOC_CFPUREGISTER -> also fixed
       rcgppc.a_param_ref, which previously got bogus size values
       rcgppc.a_param_ref, which previously got bogus size values