Home Explore Help
Sign In
pascal
/
freepascal.compiler
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

+ more cse invariant nodes added

git-svn-id: trunk@6805 -
florian 18 years ago
parent
418222bc32
commit
9f3d43ec09
1 changed files with 3 additions and 1 deletions
Unified View Show Diff Stats
  1. 3 1
      compiler/optcse.pas

+ 3 - 1
compiler/optcse.pas
View File 

@@ -44,7 +44,9 @@ unit optcse;
 
 
 
     const
 
     const
 
       cseinvariant : set of tnodetype = [loadn,addn,muln,subn,divn,slashn,modn,andn,orn,xorn,notn,vecn,
 
       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;
 
     function searchsubdomain(var n:tnode; arg: pointer) : foreachnoderesult;
 
       begin
 
       begin