mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-16 20:39:28 +02:00
* when removing unnecessary 64 bit widenings, modify both the resultdef
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:
parent
7fd2f2b3ed
commit
48695a7705
@ -2137,7 +2137,10 @@ implementation
|
||||
ordconstn:
|
||||
inserttypeconv_internal(n,todef);
|
||||
typeconvn:
|
||||
n.resultdef:=todef;
|
||||
begin
|
||||
n.resultdef:=todef;
|
||||
ttypeconvnode(n).totypedef:=todef;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
{$endif not cpu64bitalu}
|
||||
|
Loading…
Reference in New Issue
Block a user