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

* when removing unnecessary 64 bit widenings, modify both the resultdef

Browse Source 
and the totypedef of typeconvnodes because the totypedef is used for
    equality comparisons in the node cse

git-svn-id: trunk@18171 -
This commit is contained in:
Jonas Maebe 2011-08-11 16:05:11 +00:00
parent 7fd2f2b3ed
commit 48695a7705
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/ncnv.pas
View File

@ -2137,7 +2137,10 @@ implementation
ordconstn: ordconstn:
inserttypeconv_internal(n,todef); inserttypeconv_internal(n,todef);
typeconvn: typeconvn:
begin
n.resultdef:=todef; n.resultdef:=todef;
ttypeconvnode(n).totypedef:=todef;
end;
end; end;
end; end;
{$endif not cpu64bitalu} {$endif not cpu64bitalu}