peter vor 22 Jahren
Ursprung
Commit
b8ad3514c0
2 geänderte Dateien mit 10 neuen und 6 gelöschten Zeilen
  1. 6 3
      compiler/i386/n386add.pas
  2. 4 3
      compiler/i386/rgcpu.pas

+ 6 - 3
compiler/i386/n386add.pas

@@ -369,7 +369,7 @@ interface
                      begin
                        cmpop := true;
                      {$ifndef newra}
-                       rg.saveusedintregisters(exprasmlist,pushed,all_intregisters);
+                       rg.saveusedintregisters(exprasmlist,pushed,VOLATILE_INTREGISTERS);
                      {$endif newra}
                        secondpass(left);
                        location_release(exprasmlist,left.location);
@@ -1380,7 +1380,7 @@ interface
       { the location.register will be filled in later (JM) }
       location_reset(location,LOC_REGISTER,OS_INT);
 
-      regstopush := all_intregisters;
+      regstopush := VOLATILE_INTREGISTERS;
       remove_non_regvars_from_loc(right.location,regstopush);
       remove_non_regvars_from_loc(left.location,regstopush);
       { now, regstopush does NOT contain EAX and/or EDX if they are }
@@ -1644,7 +1644,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.71  2003-06-07 18:57:04  jonas
+  Revision 1.72  2003-06-17 16:51:30  peter
+    * cycle fixes
+
+  Revision 1.71  2003/06/07 18:57:04  jonas
     + added freeintparaloc
     * ppc get/freeintparaloc now check whether the parameter regs are
       properly allocated/deallocated (and get an extra list para)

+ 4 - 3
compiler/i386/rgcpu.pas

@@ -51,8 +51,6 @@ unit rgcpu;
           function getregisterfpu(list: taasmoutput;size:TCGSize) : tregister; override;
           procedure ungetregisterfpu(list: taasmoutput; r : tregister;size:TCGSize); override;
 
-          procedure ungetreference(list: taasmoutput; const ref : treference); override;
-
           {# Returns a subset register of the register r with the specified size.
              WARNING: There is no clearing of the upper parts of the register,
              if a 8-bit / 16-bit register is converted to a 32-bit register.
@@ -508,7 +506,10 @@ end.
 
 {
   $Log$
-  Revision 1.28  2003-06-17 16:34:44  jonas
+  Revision 1.29  2003-06-17 16:51:30  peter
+    * cycle fixes
+
+  Revision 1.28  2003/06/17 16:34:44  jonas
     * lots of newra fixes (need getfuncretparaloc implementation for i386)!
     * renamed all_intregisters to volatile_intregisters and made it
       processor dependent