Browse Source

* fixed bug in ref_addr changes

Jonas Maebe 21 years ago
parent
commit
401d1891ae
1 changed files with 5 additions and 2 deletions
  1. 5 2
      compiler/i386/popt386.pas

+ 5 - 2
compiler/i386/popt386.pas

@@ -1857,7 +1857,7 @@ begin
                    GetNextInstruction(p, hp1) and
                    GetNextInstruction(p, hp1) and
                    (hp1.typ = ait_instruction) and
                    (hp1.typ = ait_instruction) and
                    (taicpu(hp1).opcode = A_JMP) and
                    (taicpu(hp1).opcode = A_JMP) and
-                   ((taicpu(hp1).oper[0]^.typ=top_ref) and (taicpu(p).oper[0]^.ref^.refaddr=addr_full)) then
+                   ((taicpu(hp1).oper[0]^.typ=top_ref) and (taicpu(hp1).oper[0]^.ref^.refaddr=addr_full)) then
                   begin
                   begin
                     hp2 := taicpu.Op_sym(A_PUSH,S_L,taicpu(hp1).oper[0]^.ref^.symbol);
                     hp2 := taicpu.Op_sym(A_PUSH,S_L,taicpu(hp1).oper[0]^.ref^.symbol);
                     InsertLLItem(asml, p.previous, p, hp2);
                     InsertLLItem(asml, p.previous, p, hp2);
@@ -1999,7 +1999,10 @@ end.
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.57  2004-02-27 10:21:05  florian
+  Revision 1.58  2004-02-28 16:59:02  jonas
+    * fixed bug in ref_addr changes
+
+  Revision 1.57  2004/02/27 10:21:05  florian
     * top_symbol killed
     * top_symbol killed
     + refaddr to treference added
     + refaddr to treference added
     + refsymbol to treference added
     + refsymbol to treference added