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

adapted commit rev 32474: avoid range check error in geasizeint method.

Browse Source 
------------------------------------------------------------------------
r32474 | jonas | 2015-11-22 12:49:47 +0100 (Sun, 22 Nov 2015) | 1 line

  * fixed (harmless) range errors in getasizeint() after r32444
------------------------------------------------------------------------

git-svn-id: branches/fixes_3_0@36151 -
This commit is contained in:
pierre 2017-05-07 21:57:01 +00:00
parent 06c159ab17
commit 4c0ea44208
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ppu.pas
View File

@ -825,7 +825,7 @@ begin
{$elseif defined(cpu32bitaddr)}
result:=getlongint;
{$elseif defined(cpu16bitaddr)}
result:=getword;
result:=asizeint(getword);
{$endif}
{$endif not generic_cpu}
end;