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

* fixed (harmless) range check errors

Browse Source 
git-svn-id: trunk@14908 -
This commit is contained in:
Jonas Maebe 2010-02-13 20:48:59 +00:00
parent efcc6f6440
commit fea789eca4
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/ninl.pas
View File

@ -1460,12 +1460,15 @@ implementation
else
mask:=qword(1 shl bits)-1;
end;
{$push}
{$r-,q-}
if shift=0 then
result:=cordconstnode.create(vl2.svalue,def,false)
else if vl2.svalue<0 then
result:=cordconstnode.create(((vl2.svalue shr shift) or (mask shl (bits-shift))) and mask,def,false)
else
result:=cordconstnode.create((vl2.svalue shr shift) and mask,def,false);
{$pop}
end
else
end;