paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-01 18:22: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; result:=0;
end; end;
{$else not generic_cpu} {$else not generic_cpu}
{$ifdef cpu64bitalu} case sizeof(aword) of
result:=getqword; 8: result:=getqword;
{$else cpu64bitalu} 4: result:=getdword;
result:=getdword; 2: result:=getword;
{$endif cpu64bitalu} 1: result:=getbyte;
end;
{$endif not generic_cpu} {$endif not generic_cpu}
end; end;