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

* "inherit" the nf_internal flag in tinlinenode.getaddsub_for_incdec

Browse Source 
git-svn-id: trunk@34802 -
This commit is contained in:
florian 2016-11-05 23:06:06 +00:00
parent 4242949453
commit 0bc1e7e23b
1 changed files with 28 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
compiler/ninl.pas
View File

@ -3938,22 +3938,40 @@ implementation
hpp := caddnode.create_internal(addn,hp,hpp)
else
hpp := caddnode.create_internal(subn,hp,hpp);
{ assign result of addition }
{ inherit internal flag }
if not(is_integer(resultnode.resultdef)) then
inserttypeconv(hpp,corddef.create(
begin
if nf_internal in flags then
inserttypeconv_internal(hpp,corddef.create(
{$ifdef cpu64bitaddr}
s64bit,
s64bit,
{$else cpu64bitaddr}
s32bit,
s32bit,
{$endif cpu64bitaddr}
get_min_value(resultnode.resultdef),
get_max_value(resultnode.resultdef),
true))
get_min_value(resultnode.resultdef),
get_max_value(resultnode.resultdef),
true))
else
inserttypeconv(hpp,corddef.create(
{$ifdef cpu64bitaddr}
s64bit,
{$else cpu64bitaddr}
s32bit,
{$endif cpu64bitaddr}
get_min_value(resultnode.resultdef),
get_max_value(resultnode.resultdef),
true))
end
else
if nf_internal in flags then
inserttypeconv_internal(hpp,resultnode.resultdef)
else
inserttypeconv(hpp,resultnode.resultdef);
begin
if nf_internal in flags then
inserttypeconv_internal(hpp,resultnode.resultdef)
else
inserttypeconv(hpp,resultnode.resultdef);
end;
{ avoid any possible warnings }
inserttypeconv_internal(hpp,resultnode.resultdef);