Browse Source

* forgot to commit :( (part of regvar changes)

Jonas Maebe 25 years ago
parent
commit
1d8195c247
1 changed files with 19 additions and 14 deletions
  1. 19 14
      compiler/tgeni386.pas

+ 19 - 14
compiler/tgeni386.pas

@@ -84,6 +84,17 @@ unit tgeni386;
     { corrects the fpu stack register by ofs }
     { corrects the fpu stack register by ofs }
     function correct_fpuregister(r : tregister;ofs : byte) : tregister;
     function correct_fpuregister(r : tregister;ofs : byte) : tregister;
 
 
+    type
+{$ifdef SUPPORT_MMX}
+       regvar_longintarray = array[R_EAX..R_MM6] of longint;
+       regvar_booleanarray = array[R_EAX..R_MM6] of boolean;
+       regvar_ptreearray = array[R_EAX..R_MM6] of ptree;
+{$else SUPPORT_MMX}
+       regvar_longintarray = array[R_EAX..R_EDI] of longint;
+       regvar_boolarray = array[R_EAX..R_EDI] of boolean;
+       regvar_ptreearray = array[R_EAX..R_EDI] of ptree;
+{$endif SUPPORT_MMX}
+
     var
     var
        unused,usableregs : tregisterset;
        unused,usableregs : tregisterset;
        c_usableregs : longint;
        c_usableregs : longint;
@@ -95,21 +106,12 @@ unit tgeni386;
 
 
        { count, how much a register must be pushed if it is used as register }
        { count, how much a register must be pushed if it is used as register }
        { variable                                                           }
        { variable                                                           }
-{$ifdef SUPPORT_MMX}
-       reg_pushes : array[R_EAX..R_MM6] of longint;
-       is_reg_var : array[R_EAX..R_MM6] of boolean;
+       reg_pushes : regvar_longintarray;
+       is_reg_var : regvar_booleanarray;
 {$ifdef TEMPREGDEBUG}
 {$ifdef TEMPREGDEBUG}
-       reg_user   : array[R_EAX..R_MM6] of ptree;
-       reg_releaser : array[R_EAX..R_MM6] of ptree;
+       reg_user   : regvar_ptreearray;
+       reg_releaser : regvar_ptreearray;
 {$endif TEMPREGDEBUG}
 {$endif TEMPREGDEBUG}
-{$else SUPPORT_MMX}
-       reg_pushes : array[R_EAX..R_EDI] of longint;
-       is_reg_var : array[R_EAX..R_EDI] of boolean;
-{$ifdef TEMPREGDEBUG}
-       reg_user   : array[R_EAX..R_EDI] of ptree;
-       reg_releaser : array[R_EAX..R_EDI] of ptree;
-{$endif TEMPREGDEBUG}
-{$endif SUPPORT_MMX}
 
 
 
 
 implementation
 implementation
@@ -651,7 +653,10 @@ begin
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.2  2000-07-13 11:32:52  michael
+  Revision 1.3  2000-08-04 05:09:49  jonas
+    * forgot to commit :( (part of regvar changes)
+
+  Revision 1.2  2000/07/13 11:32:52  michael
   + removed logs
   + removed logs
 
 
 }
 }