paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 09:39:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* new compiler has smallint,longint,word internal defined

Browse Source
This commit is contained in:
peter 2004-03-23 22:35:45 +00:00
parent d644629612
commit 1a0a8db391
1 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
rtl/inc/systemh.inc
View File

@ -60,20 +60,28 @@
****************************************************************************} ****************************************************************************}
Type 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; ShortInt = -128..127;
SmallInt = -32768..32767; SmallInt = -32768..32767;
{ can't use -2147483648 because of a bug in 1.0.2's val() procedure (JM) } { can't use -2147483648 because of a bug in 1.0.2's val() procedure (JM) }
Longint = +(-2147483647-1)..$7fffffff; Longint = +(-2147483647-1)..$7fffffff;
Byte = 0..255; Byte = 0..255;
Word = 0..65535; Word = 0..65535;
{$ifndef ver1_0} {$ifndef ver1_0}
DWord = LongWord; DWord = LongWord;
Cardinal = LongWord; Cardinal = LongWord;
{$else} {$else}
Longword = cardinal; Longword = cardinal;
Dword = cardinal; Dword = cardinal;
{$endif} {$endif}
Integer = SmallInt; Integer = SmallInt;
{$endif HAS_INTERNAL_INTTYPES}
{$ifdef CPUI386} {$ifdef CPUI386}
{ for bootstrapping with 1.0.x } { for bootstrapping with 1.0.x }
@ -728,7 +736,10 @@ const
{ {
$Log$ $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 + x86_64 dependend sysutils part added
* some 64 bit adaptions * some 64 bit adaptions