+ cpu32bitaddr,cpu32bitalu,cpu16bitaddr,cpu16bitalu

git-svn-id: trunk@11378 -

compiler/fpcdefs.inc

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

compiler/globtype.pas

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