Bladeren bron

* fix clearing of superregset (from Peter)

michael 21 jaren geleden
bovenliggende
commit
9e879f3931
1 gewijzigde bestanden met toevoegingen van 5 en 2 verwijderingen
  1. 5 2
      compiler/cgbase.pas

+ 5 - 2
compiler/cgbase.pas

@@ -427,7 +427,7 @@ implementation
                               maxreg:Tsuperregister);{$ifdef USEINLINE}inline;{$endif}
 
     begin
-      fillchar(regs,(maxreg or 7) shr 3,-byte(setall));
+      fillchar(regs,(maxreg+7) shr 3,-byte(setall));
     end;
 
 
@@ -607,7 +607,10 @@ finalization
 end.
 {
   $Log$
-  Revision 1.94  2004-08-24 21:02:32  florian
+  Revision 1.95  2004-10-14 10:59:58  michael
+  * fix clearing of superregset (from Peter)
+
+  Revision 1.94  2004/08/24 21:02:32  florian
     * fixed longbool(<int64>) on sparc
 
   Revision 1.93  2004/07/19 19:21:02  florian