paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 13:29:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* properly read asizeints from ppus on 16 bit targets

Browse Source 
git-svn-id: branches/i8086@23939 -
This commit is contained in:
florian 2013-03-19 21:33:46 +00:00
parent 228f2d2794
commit bac18a0094
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/ppu.pas
View File

@ -814,11 +814,13 @@ begin
result:=0;
end;
{$else not generic_cpu}
{$ifdef cpu64bitaddr}
{$if defined(cpu64bitaddr)}
result:=getint64;
{$else cpu64bitaddr}
{$elseif defined(cpu32bitaddr)}
result:=getlongint;
{$endif cpu32bitaddr}
{$elseif defined(cpu16bitaddr)}
result:=getword;
{$endif}
{$endif not generic_cpu}
end;