From 0d58fd6cd0eff91e3e7a3a0c4c54f5351c09c6db Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Sat, 11 May 2013 22:04:56 +0000
Subject: [PATCH] * fixed tppufile.getaint for 8/16-bit CPUs

git-svn-id: trunk@24484 -
---
 compiler/ppu.pas | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/compiler/ppu.pas b/compiler/ppu.pas
index 9dd93aad46..4f8a3d9b27 100644
--- a/compiler/ppu.pas
+++ b/compiler/ppu.pas
@@ -790,11 +790,12 @@ begin
       result:=0;
     end;
 {$else not generic_cpu}
-{$ifdef cpu64bitalu}
-  result:=getint64
-{$else cpu64bitalu}
-  result:=getlongint;
-{$endif cpu64bitalu}
+  case sizeof(aint) of
+    8: result:=getint64;
+    4: result:=getlongint;
+    2: result:=smallint(getword);
+    1: result:=shortint(getbyte);
+  end;
 {$endif not generic_cpu}
 end;