paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-05-31 08:42:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@25671 -
This commit is contained in:
nickysn 2013-10-06 00:20:42 +00:00
parent 8574642a1f
commit 3b895ec0e8
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/ppu.pas
View File

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