--- a/StatementNode.st Mon Mar 24 22:57:37 2003 +0100
+++ b/StatementNode.st Tue Mar 25 19:43:53 2003 +0100
@@ -102,6 +102,16 @@
!StatementNode methodsFor:'code generation'!
+codeAllForSideEffectOn:aStream inBlock:b for:aCompiler
+ |thisStatement|
+
+ thisStatement := self.
+ [thisStatement notNil] whileTrue:[
+ thisStatement codeForSideEffectOn:aStream inBlock:b for:aCompiler.
+ thisStatement := thisStatement nextStatement
+ ].
+!
+
codeForSideEffectOn:aStream inBlock:b for:aCompiler
"generate code for this statement - value not needed"
@@ -185,13 +195,12 @@
thisStatement := self.
[thisStatement notNil] whileTrue:[
- aStream spaces:i.
- thisStatement printOn:aStream indent:i.
- thisStatement nextStatement notNil ifTrue:[
- aStream nextPut:$..
- aStream cr.
- ].
- thisStatement := thisStatement nextStatement
+ aStream spaces:i.
+ thisStatement printOn:aStream indent:i.
+ thisStatement nextStatement notNil ifTrue:[
+ aStream cr.
+ ].
+ thisStatement := thisStatement nextStatement
]
!
@@ -239,5 +248,5 @@
!StatementNode class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/StatementNode.st,v 1.26 2002-08-23 08:48:38 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/StatementNode.st,v 1.27 2003-03-25 18:43:53 cg Exp $'
! !