paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 20:49:09 +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)} {$elseif defined(cpu32bitaddr)}
result:=getlongint; result:=getlongint;
{$elseif defined(cpu16bitaddr)} {$elseif defined(cpu16bitaddr)}
result:=getword; result:=asizeint(getword);
{$endif} {$endif}
{$endif not generic_cpu} {$endif not generic_cpu}
end; end;