Selaa lähdekoodia

+ some EXTTEMPREGDEBUG code added

pierre 26 vuotta sitten
vanhempi
commit
03263b9285
1 muutettua tiedostoa jossa 11 lisäystä ja 1 poistoa
  1. 11 1
      compiler/pass_2.pas

+ 11 - 1
compiler/pass_2.pas

@@ -288,6 +288,13 @@ implementation
 {$ifdef TEMPREGDEBUG}
             curptree:=prevp;
 {$endif TEMPREGDEBUG}
+{$ifdef EXTTEMPREGDEBUG}
+            if p^.usableregs-usablereg32>p^.reallyusedregs then
+              p^.reallyusedregs:=p^.usableregs-usablereg32;
+            if p^.reallyusedregs<p^.registers32 then
+              Comment(V_Debug,'registers32 overestimated '+tostr(p^.registers32)+
+                '>'+tostr(p^.reallyusedregs));
+{$endif EXTTEMPREGDEBUG}
           end
          else
            codegenerror:=true;
@@ -664,7 +671,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.34  1999-08-25 12:00:01  jonas
+  Revision 1.35  1999-08-27 10:46:26  pierre
+   + some EXTTEMPREGDEBUG code added
+
+  Revision 1.34  1999/08/25 12:00:01  jonas
     * changed pai386, paippc and paiapha (same for tai*) to paicpu (taicpu)
 
   Revision 1.33  1999/08/24 09:07:04  pierre