From 9f3d43ec09a779411220ca4ad3e5b4dd5e5b8d81 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Mon, 12 Mar 2007 19:47:04 +0000
Subject: [PATCH] + more cse invariant nodes added

git-svn-id: trunk@6805 -
---
 compiler/optcse.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/compiler/optcse.pas b/compiler/optcse.pas
index 94f32857fa..9581866019 100644
--- a/compiler/optcse.pas
+++ b/compiler/optcse.pas
@@ -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