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

+ powerpc type support

Browse Source
This commit is contained in:
florian 2002-07-26 21:29:03 +00:00
parent eb2ca8d10f
commit 789edf11aa
1 changed files with 18 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
rtl/inc/systemh.inc
View File

@ -58,7 +58,7 @@ Type
ValSInt = Longint; ValSInt = Longint;
ValUInt = Cardinal; ValUInt = Cardinal;
ValReal = Extended; ValReal = Extended;
{$endif} {$endif i386}
{$ifdef x86_64} {$ifdef x86_64}
StrLenInt = LongInt; StrLenInt = LongInt;
@ -78,8 +78,6 @@ Type
{$ifdef m68k} {$ifdef m68k}
StrLenInt = Longint; StrLenInt = Longint;
{$define SUPPORT_ANSISTRING}
ValSInt = Longint; ValSInt = Longint;
ValUInt = Cardinal; ValUInt = Cardinal;
ValReal = Real; ValReal = Real;
@ -98,6 +96,19 @@ Type
{$ENDIF} {$ENDIF}
{$endif} {$endif}
{$ifdef powerpc}
StrLenInt = LongInt;
{$define DEFAULT_DOUBLE}
{$define SUPPORT_SINGLE}
{$define SUPPORT_DOUBLE}
ValSInt = Longint;
ValUInt = Cardinal;
ValReal = Double;
{$endif powerpc}
{ Zero - terminated strings } { Zero - terminated strings }
PChar = ^Char; PChar = ^Char;
PPChar = ^PChar; PPChar = ^PChar;
@ -570,7 +581,10 @@ const
{ {
$Log$ $Log$
Revision 1.48 2002-07-04 20:40:09 florian Revision 1.49 2002-07-26 21:29:03 florian
+ powerpc type support
Revision 1.48 2002/07/04 20:40:09 florian
+ some x86-64 support added + some x86-64 support added
Revision 1.47 2002/07/01 16:29:05 peter Revision 1.47 2002/07/01 16:29:05 peter