# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 975684180 -3600
# Node ID e321d1945854b0296a07f9bc17950b4452d5f044
# Parent  bbdab29749c14a7d2bd29318603bc0ef9638ae55
checkin from browser

diff -r bbdab29749c1 -r e321d1945854 UnaryNode.st
--- a/UnaryNode.st	Fri Dec 01 16:22:38 2000 +0100
+++ b/UnaryNode.st	Fri Dec 01 16:23:00 2000 +0100
@@ -298,6 +298,33 @@
 
 !UnaryNode methodsFor:'queries'!
 
+isConstant
+    "return true, if this node evaluates to a constant value"
+
+"/ not worth it ...
+"/ (and might lead to trouble whenever a common bytecode standard
+"/  is ever available)
+"/
+"/    receiver isGlobal ifTrue:[
+"/        receiver name = 'Smalltalk' ifTrue:[
+"/            selector == #isSmalltalkX ifTrue:[
+"/                ^ true
+"/            ].
+"/            selector == #isSqueak ifTrue:[
+"/                ^ true
+"/            ].
+"/            selector == #isVisualWorks ifTrue:[
+"/                ^ true
+"/            ].
+"/            selector == #isVisualAge ifTrue:[
+"/                ^ true
+"/            ].
+"/        ]
+"/    ].
+
+    ^ false
+!
+
 isUnaryMessage
     "return true, if this node is one for a unary message"
 
@@ -309,5 +336,5 @@
 !UnaryNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.34 2000-10-11 12:47:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.35 2000-12-01 15:23:00 cg Exp $'
 ! !