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

* do not switch around node subtrees if they have different resultdefs, e.g.

Browse Source 
because a subtree has been optimized for a 32x32->64 multiplication (so
   some subtrees have a 32 bit resultdef and others a 64 bit resultdef)

git-svn-id: trunk@30033 -
This commit is contained in:
Jonas Maebe 2015-02-28 22:31:00 +00:00
parent ada5060a34
commit 86bde57b0f
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/optcse.pas
View File

@ -317,7 +317,13 @@ unit optcse;
{ for sets, we can do this always }
(is_set(n.resultdef))
) then
while n.nodetype=tbinarynode(n).left.nodetype do
while (n.nodetype=tbinarynode(n).left.nodetype) and
{ the resulttypes of the operands we'll swap must be equal,
required in case of a 32x32->64 multiplication, then we
cannot swap out one of the 32 bit operands for a 64 bit one
}
(tbinarynode(tbinarynode(n).left).left.resultdef=tbinarynode(n).left.resultdef) and
(tbinarynode(n).left.resultdef=tbinarynode(n).right.resultdef) do
begin
csedomain:=true;
foreachnodestatic(pm_postprocess,tbinarynode(n).right,@searchsubdomain,@csedomain);