paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 11:29:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ more cse invariant nodes added

Browse Source 
git-svn-id: trunk@6805 -
This commit is contained in:
florian 2007-03-12 19:47:04 +00:00
parent 418222bc32
commit 9f3d43ec09
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/optcse.pas
View File

@ -44,7 +44,9 @@ unit optcse;
const
cseinvariant : set of tnodetype = [loadn,addn,muln,subn,divn,slashn,modn,andn,orn,xorn,notn,vecn,
derefn,equaln,unequaln,ltn,gtn,lten,gten,typeconvn,subscriptn];
derefn,equaln,unequaln,ltn,gtn,lten,gten,typeconvn,subscriptn,
inn,symdifn,shrn,shln,ordconstn,realconstn,unaryminusn,pointerconstn,stringconstn,setconstn,
isn,asn,starstarn,nothingn];
function searchsubdomain(var n:tnode; arg: pointer) : foreachnoderesult;
begin