carl 23 лет назад
Родитель
Сommit
4cff0f13fd
3 измененных файлов с 12 добавлено и 18 удалено
  1. 4 6
      compiler/i386/cpuinfo.pas
  2. 4 6
      compiler/ia64/cpuinfo.pas
  3. 4 6
      compiler/powerpc/cpuinfo.pas

+ 4 - 6
compiler/i386/cpuinfo.pas

@@ -30,11 +30,6 @@ Type
    AWord = Cardinal;
    PAWord = ^AWord;
 
-   { the ordinal type used when evaluating constant integer expressions }
-   TConstExprInt = int64;
-   { ... the same unsigned }
-   TConstExprUInt = {$ifdef fpc}qword{$else}int64{$endif};
-
    { this must be an ordinal type with the same size as a pointer }
    { Note: must be unsigned!! Otherwise, ugly code like           }
    { pointer(-1) will result in a pointer with the value          }
@@ -51,7 +46,10 @@ Implementation
 end.
 {
   $Log$
-  Revision 1.5  2002-04-02 17:11:34  peter
+  Revision 1.6  2002-04-07 13:41:50  carl
+  - moved type constant
+
+  Revision 1.5  2002/04/02 17:11:34  peter
     * tlocation,treference update
     * LOC_CONSTANT added for better constant handling
     * secondadd splitted in multiple routines

+ 4 - 6
compiler/ia64/cpuinfo.pas

@@ -29,11 +29,6 @@ Interface
 Type
    AWord = QWord;
 
-   { the ordinal type used when evaluating constant integer expressions }
-   TConstExprInt = int64;
-   { ... the same unsigned }
-   TConstExprUInt = {$ifdef fpc}qword{$else}int64{$endif};
-
    { this must be an ordinal type with the same size as a pointer }
    { to allow some dirty type casts for example when using        }
    { tconstsym.value                                              }
@@ -54,7 +49,10 @@ Implementation
 end.
 {
   $Log$
-  Revision 1.2  2001-01-05 17:36:58  florian
+  Revision 1.3  2002-04-07 13:42:40  carl
+  - moved type constant
+
+  Revision 1.2  2001/01/05 17:36:58  florian
   * the info about exception frames is stored now on the stack
   instead on the heap
 

+ 4 - 6
compiler/powerpc/cpuinfo.pas

@@ -22,11 +22,6 @@ Type
    AWord = Dword;
 
 Type
-   { the ordinal type used when evaluating constant integer expressions }
-   TConstExprInt = int64;
-   { ... the same unsigned }
-   TConstExprUInt = {$ifdef fpc}qword{$else}int64{$endif};
-
    { this must be an ordinal type with the same size as a pointer }
    { to allow some dirty type casts for example when using        }
    { tconstsym.value                                              }
@@ -45,7 +40,10 @@ Implementation
 end.
 {
   $Log$
-  Revision 1.2  2001-12-29 15:28:58  jonas
+  Revision 1.3  2002-04-07 13:43:11  carl
+  - moved type constant
+
+  Revision 1.2  2001/12/29 15:28:58  jonas
     * powerpc/cgcpu.pas compiles :)
     * several powerpc-related fixes
     * cpuasm unit is now based on common tainst unit