From 3b895ec0e81055995d8476e9c6978e8bee49b725 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Sun, 6 Oct 2013 00:20:42 +0000
Subject: [PATCH] * updated tppufile.getaword to support 16-bit and 8-bit aword
 sizes

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

diff --git a/compiler/ppu.pas b/compiler/ppu.pas
index d361fb8c50..2699ecb9fb 100644
--- a/compiler/ppu.pas
+++ b/compiler/ppu.pas
@@ -846,11 +846,12 @@ begin
       result:=0;
     end;
 {$else not generic_cpu}
-{$ifdef cpu64bitalu}
-  result:=getqword;
-{$else cpu64bitalu}
-  result:=getdword;
-{$endif cpu64bitalu}
+  case sizeof(aword) of
+    8: result:=getqword;
+    4: result:=getdword;
+    2: result:=getword;
+    1: result:=getbyte;
+  end;
 {$endif not generic_cpu}
 end;