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

+ cpu32bitaddr,cpu32bitalu,cpu16bitaddr,cpu16bitalu

Browse Source 
git-svn-id: trunk@11378 -
This commit is contained in:
florian 2008-07-13 18:13:46 +00:00
parent a15d8778d6
commit 2fd1196118
2 changed files with 29 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/fpcdefs.inc
View File

@ -48,6 +48,8 @@
{$ifdef i386}
{$define cpu32bit}
{$define cpu32bitaddr}
{$define cpu32bitalu}
{$define x86}
{$define cpuflags}
{$define cpuextended}
@ -76,12 +78,16 @@
{$ifdef sparc}
{$define cpu32bit}
{$define cpu32bitaddr}
{$define cpu32bitalu}
{$define cpuflags}
{$define cputargethasfixedstack}
{$endif sparc}
{$ifdef powerpc}
{$define cpu32bit}
{$define cpu32bitaddr}
{$define cpu32bitalu}
{$define cpuflags}
{$define cputargethasfixedstack}
{$define cpumm}
@ -97,6 +103,8 @@
{$ifdef arm}
{$define cpu32bit}
{$define cpu32bitaddr}
{$define cpu32bitalu}
{$define cpuflags}
{$define cpufpemu}
{$define cpuneedsdiv32helper}
@ -105,12 +113,16 @@
{$ifdef m68k}
{$define cpu32bit}
{$define cpu32bitaddr}
{$define cpu32bitalu}
{$define cpuflags}
{$define cpufpemu}
{$endif m68k}
{$ifdef avr}
{$define cpu16bit}
{$define cpu16bitaddr}
{$define cpu16bitalu}
{$define cpuflags}
{$define cpunofpu}
{$define cpunodefaultint}

21
compiler/globtype.pas
View File

@ -38,10 +38,15 @@ interface
{$ifdef cpu64bitaddr}
PUint = qword;
PInt = int64;
{$else cpu64bitaddr}
{$endif cpu64bitaddr}
{$ifdef cpu32bitaddr}
PUint = cardinal;
PInt = longint;
{$endif cpu64bitaddr}
{$endif cpu32bitaddr}
{$ifdef cpu16bitaddr}
PUint = word;
PInt = Smallint;
{$endif cpu16bitaddr}
{ Natural integer register type and size for the target machine }
{$ifdef cpu64bitalu}
@ -50,13 +55,21 @@ interface
Const
AIntBits = 64;
{$else cpu64bitalu}
{$endif cpu64bitalu}
{$ifdef cpu32bitalu}
AWord = longword;
AInt = longint;
Const
AIntBits = 32;
{$endif cpu64bitalu}
{$endif cpu32bitalu}
{$ifdef cpu16bitalu}
AWord = Word;
AInt = Smallint;
Const
AIntBits = 16;
{$endif cpu16bitalu}
Type
PAWord = ^AWord;