Browse Source

* new compiler has smallint,longint,word internal defined

peter 21 years ago
parent
commit
1a0a8db391
1 changed files with 15 additions and 4 deletions
  1. 15 4
      rtl/inc/systemh.inc

+ 15 - 4
rtl/inc/systemh.inc

@@ -60,20 +60,28 @@
 ****************************************************************************}
 
 Type
+{$Ifdef HAS_INTERNAL_INTTYPES}
+  { The compiler has all integer types defined internally. Here
+    we define only aliases }  
+  DWord    = LongWord;
+  Cardinal = LongWord;
+  Integer  = SmallInt;
+{$else HAS_INTERNAL_INTTYPES}
   ShortInt = -128..127;
   SmallInt = -32768..32767;
   { can't use -2147483648 because of a bug in 1.0.2's val() procedure (JM) }
   Longint  = +(-2147483647-1)..$7fffffff;
   Byte     = 0..255;
   Word     = 0..65535;
-{$ifndef ver1_0}
+  {$ifndef ver1_0}
   DWord    = LongWord;
   Cardinal = LongWord;
-{$else}
+  {$else}
   Longword = cardinal;
   Dword = cardinal;
-{$endif}
+  {$endif}
   Integer  = SmallInt;
+{$endif HAS_INTERNAL_INTTYPES}
 
 {$ifdef CPUI386}
   { for bootstrapping with 1.0.x }
@@ -728,7 +736,10 @@ const
 
 {
   $Log$
-  Revision 1.86  2004-02-20 22:15:16  florian
+  Revision 1.87  2004-03-23 22:35:45  peter
+    * new compiler has smallint,longint,word internal defined
+
+  Revision 1.86  2004/02/20 22:15:16  florian
     + x86_64 dependend sysutils part added
     * some 64 bit adaptions