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

* fixed compilation in case overflow checking is enabled, but range

Browse Source 
checking isn't

git-svn-id: trunk@14502 -
This commit is contained in:
Jonas Maebe 2009-12-30 13:21:23 +00:00
parent ab60790c73
commit 58c7c2f636
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/htypechk.pas
View File

@ -2118,9 +2118,11 @@ implementation
{ Give wrong sign a small penalty, this is need to get a diffrence
from word->[longword,longint] }
if is_signed(def_from)<>is_signed(def_to) then
{$ifopt r+}{$define ena_rq}{$q-}{$r-}{$endif}
{$push}
{$r-}
{$q-}
hp^.ordinal_distance:=nextafter(hp^.ordinal_distance,inf);
{$ifdef ena_rq}{$r+}{$q+}{$endif}
{$pop}
end
else
{ for value and const parameters check precision of real, give