paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 14:19:31 +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
{$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