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

* type conversions of constants require that unneeded bits are cut off

Browse Source 
git-svn-id: trunk@34797 -
This commit is contained in:
florian 2016-11-05 23:05:58 +00:00
parent 96858dd64d
commit 4862e64b53
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
compiler/ncnv.pas
View File

@ -2791,6 +2791,26 @@ implementation
{ swap value back, but according to new type } { swap value back, but according to new type }
if (target_info.endian = endian_big) and (nf_absolute in flags) then if (target_info.endian = endian_big) and (nf_absolute in flags) then
swap_const_value(tordconstnode(left).value,resultdef.size); swap_const_value(tordconstnode(left).value,resultdef.size);
{ cut off the new value? }
if resultdef.size<left.resultdef.size then
case resultdef.size of
1:
if is_signed(resultdef) then
tordconstnode(left).value:=tordconstnode(left).value and shortint($ff)
else
tordconstnode(left).value:=tordconstnode(left).value and byte($ff);
2:
if is_signed(resultdef) then
tordconstnode(left).value:=tordconstnode(left).value and smallint($ffff)
else
tordconstnode(left).value:=tordconstnode(left).value and word($ffff);
4:
if is_signed(resultdef) then
tordconstnode(left).value:=tordconstnode(left).value and longint($ffffffff)
else
tordconstnode(left).value:=tordconstnode(left).value and dword($ffffffff);
end;
end; end;
left.resultdef:=resultdef; left.resultdef:=resultdef;
tordconstnode(left).typedef:=resultdef; tordconstnode(left).typedef:=resultdef;