Browse Source

* in_inc_x register allocation corrected

pierre 26 years ago
parent
commit
71bcdce000
1 changed files with 5 additions and 2 deletions
  1. 5 2
      compiler/tcinl.pas

+ 5 - 2
compiler/tcinl.pas

@@ -558,7 +558,7 @@ implementation
                                 { need we an additional register ? }
                                 { need we an additional register ? }
                                 if not(is_constintnode(p^.left^.right^.left)) and
                                 if not(is_constintnode(p^.left^.right^.left)) and
                                   (p^.left^.right^.left^.location.loc in [LOC_MEM,LOC_REFERENCE]) and
                                   (p^.left^.right^.left^.location.loc in [LOC_MEM,LOC_REFERENCE]) and
-                                  (p^.left^.right^.left^.registers32<1) then
+                                  (p^.left^.right^.left^.registers32<=1) then
                                   inc(p^.registers32);
                                   inc(p^.registers32);
 
 
                                 if assigned(p^.left^.right^.right) then
                                 if assigned(p^.left^.right^.right) then
@@ -1121,7 +1121,10 @@ implementation
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.47  1999-08-06 12:43:13  jonas
+  Revision 1.48  1999-08-23 23:41:04  pierre
+   * in_inc_x register allocation corrected
+
+  Revision 1.47  1999/08/06 12:43:13  jonas
     * fix for regvars with the val code
     * fix for regvars with the val code
 
 
   Revision 1.46  1999/08/05 16:53:23  peter
   Revision 1.46  1999/08/05 16:53:23  peter