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

* replace is_written by using actualtargetnode

Browse Source 
git-svn-id: trunk@22022 -
This commit is contained in:
florian 2012-08-06 20:26:23 +00:00
parent aad3ce960a
commit b20c4cfe87
1 changed files with 1 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/optcse.pas
View File

@ -109,14 +109,6 @@ unit optcse;
function collectnodes(var n:tnode; arg: pointer) : foreachnoderesult; function collectnodes(var n:tnode; arg: pointer) : foreachnoderesult;
var var
i,j : longint; i,j : longint;
function is_written(node : tnode) : boolean;
begin
while node.nodetype in [typeconvn] do
node:=ttypeconvnode(node).left;
result:=(node.flags*[nf_write,nf_modify]<>[])
end;
begin begin
result:=fen_false; result:=fen_false;
{ don't add the tree below an untyped const parameter: there is { don't add the tree below an untyped const parameter: there is
@ -135,7 +127,7 @@ unit optcse;
assigned(n.resultdef) and assigned(n.resultdef) and
( (
{ regable expressions } { regable expressions }
not(is_written(n)) and (n.actualtargetnode.flags*[nf_write,nf_modify]=[]) and
((tstoreddef(n.resultdef).is_intregable or tstoreddef(n.resultdef).is_fpuregable) and ((tstoreddef(n.resultdef).is_intregable or tstoreddef(n.resultdef).is_fpuregable) and
{ is_int/fpuregable allows arrays and records to be in registers, cse cannot handle this } { is_int/fpuregable allows arrays and records to be in registers, cse cannot handle this }
(not(n.resultdef.typ in [arraydef,recorddef])) and (not(n.resultdef.typ in [arraydef,recorddef])) and