--- a/ReturnNode.st Sat Nov 18 17:59:14 1995 +0100
+++ b/ReturnNode.st Thu Nov 23 03:15:59 1995 +0100
@@ -11,10 +11,10 @@
"
StatementNode subclass:#ReturnNode
- instanceVariableNames:'myHome blockHome'
- classVariableNames:''
- poolDictionaries:''
- category:'System-Compiler-Support'
+ instanceVariableNames:'myHome blockHome'
+ classVariableNames:''
+ poolDictionaries:''
+ category:'System-Compiler-Support'
!
!ReturnNode class methodsFor:'documentation'!
@@ -33,14 +33,14 @@
"
!
-version
- ^ '$Header: /cvs/stx/stx/libcomp/ReturnNode.st,v 1.12 1995-11-11 15:31:30 cg Exp $'
-!
-
documentation
"
node for parse-trees, representing return expressions
"
+!
+
+version
+ ^ '$Header: /cvs/stx/stx/libcomp/ReturnNode.st,v 1.13 1995-11-23 02:14:34 cg Exp $'
! !
!ReturnNode methodsFor:'accessing'!
@@ -50,30 +50,6 @@
blockHome := aBlockNode
! !
-!ReturnNode methodsFor:'queries'!
-
-isConstant
- ^ false
-!
-
-isReturnNode
- ^ true
-! !
-
-!ReturnNode methodsFor:'evaluating'!
-
-evaluateExpression
- |val|
-
- val := expression evaluate.
- myHome exitWith:val.
- "when we arrive here, the parser context is already gone
- - try block-return"
- blockHome notNil ifTrue:[blockHome exitWith:val].
- "well - what else can be done"
- ^ val
-! !
-
!ReturnNode methodsFor:'code generation'!
codeForSideEffectOn:aStream inBlock:b for:aCompiler
@@ -152,9 +128,34 @@
aStream nextPut:#retTop
! !
+!ReturnNode methodsFor:'evaluating'!
+
+evaluateExpression
+ |val|
+
+ val := expression evaluate.
+ myHome exitWith:val.
+ "when we arrive here, the parser context is already gone
+ - try block-return"
+ blockHome notNil ifTrue:[blockHome exitWith:val].
+ "well - what else can be done"
+ ^ val
+! !
+
!ReturnNode methodsFor:'printing'!
printOn:aStream indent:i
aStream nextPutAll:'^ '.
expression printOn:aStream
! !
+
+!ReturnNode methodsFor:'queries'!
+
+isConstant
+ ^ false
+!
+
+isReturnNode
+ ^ true
+! !
+