Преглед изворни кода

* fixed release_reg_left_right for fpu registers

Jonas Maebe пре 22 година
родитељ
комит
5677b3c274
1 измењених фајлова са 6 додато и 3 уклоњено
  1. 6 3
      compiler/ncgadd.pas

+ 6 - 3
compiler/ncgadd.pas

@@ -222,13 +222,13 @@ interface
       begin
         if (right.location.loc in [LOC_REGISTER,LOC_FPUREGISTER]) and
            not(
-               (location.loc=LOC_REGISTER) and
+               (location.loc = right.location.loc) and
                (location.register=right.location.register)
               ) then
           location_release(exprasmlist,right.location);
         if (left.location.loc in [LOC_REGISTER,LOC_FPUREGISTER]) and
            not(
-               (location.loc=LOC_REGISTER) and
+               (location.loc = left.location.loc) and
                (location.register=left.location.register)
               ) then
           location_release(exprasmlist,left.location);
@@ -735,7 +735,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.18  2003-09-14 21:34:16  peter
+  Revision 1.19  2003-09-14 21:57:08  jonas
+    * fixed release_reg_left_right for fpu registers
+
+  Revision 1.18  2003/09/14 21:34:16  peter
     * fix setelementn support
     * fix loading of flags