|
@@ -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
|
|
|
|