paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 05:39:19 +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) hpp := caddnode.create_internal(addn,hp,hpp)
else else
hpp := caddnode.create_internal(subn,hp,hpp); hpp := caddnode.create_internal(subn,hp,hpp);
{ assign result of addition } { assign result of addition }
{ inherit internal flag }
if not(is_integer(resultnode.resultdef)) then 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} {$ifdef cpu64bitaddr}
s64bit, s64bit,
{$else cpu64bitaddr} {$else cpu64bitaddr}
s32bit, s32bit,
{$endif cpu64bitaddr} {$endif cpu64bitaddr}
get_min_value(resultnode.resultdef), get_min_value(resultnode.resultdef),
get_max_value(resultnode.resultdef), get_max_value(resultnode.resultdef),
true)) 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 else
if nf_internal in flags then begin
inserttypeconv_internal(hpp,resultnode.resultdef) if nf_internal in flags then
else inserttypeconv_internal(hpp,resultnode.resultdef)
inserttypeconv(hpp,resultnode.resultdef); else
inserttypeconv(hpp,resultnode.resultdef);
end;
{ avoid any possible warnings } { avoid any possible warnings }
inserttypeconv_internal(hpp,resultnode.resultdef); inserttypeconv_internal(hpp,resultnode.resultdef);