Browse Source

* updated tppufile.getaword to support 16-bit and 8-bit aword sizes

git-svn-id: trunk@25671 -
nickysn 12 years ago
parent
commit
3b895ec0e8
1 changed files with 6 additions and 5 deletions
  1. 6 5
      compiler/ppu.pas

+ 6 - 5
compiler/ppu.pas

@@ -846,11 +846,12 @@ begin
       result:=0;
       result:=0;
     end;
     end;
 {$else not generic_cpu}
 {$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}
 {$endif not generic_cpu}
 end;
 end;