Browse Source

* fixed optimizer for new treference fields

Jonas Maebe 21 years ago
parent
commit
756dd463ff
1 changed files with 8 additions and 3 deletions
  1. 8 3
      compiler/i386/daopt386.pas

+ 8 - 3
compiler/i386/daopt386.pas

@@ -654,7 +654,8 @@ begin
     RegsEquivalent(r1.base, r2.base, reginfo, opact) and
     RegsEquivalent(r1.index, r2.index, reginfo, opact) and
     (r1.segment = r2.segment) and (r1.scalefactor = r2.scalefactor) and
-    (r1.symbol = r2.symbol);
+    (r1.symbol = r2.symbol) and (r1.refaddr = r2.refaddr) and
+    (r1.relsymbol = r2.relsymbol);
 end;
 
 
@@ -664,7 +665,8 @@ begin
     (r1.offset = r2.offset) and
     (r1.segment = r2.segment) and (r1.base = r2.base) and
     (r1.index = r2.index) and (r1.scalefactor = r2.scalefactor) and
-    (r1.symbol=r2.symbol);
+    (r1.symbol=r2.symbol) and (r1.refaddr = r2.refaddr) and
+    (r1.relsymbol = r2.relsymbol);
 end;
 
 
@@ -2709,7 +2711,10 @@ end.
 
 {
   $Log$
-  Revision 1.65  2004-02-27 10:21:05  florian
+  Revision 1.66  2004-02-27 19:55:23  jonas
+    * fixed optimizer for new treference fields
+
+  Revision 1.65  2004/02/27 10:21:05  florian
     * top_symbol killed
     + refaddr to treference added
     + refsymbol to treference added