hg/stx-libcomp: comparison MessageNode.st

equal deleted inserted replaced

-:ebed47a4723b
+:de4c37ac12fc
 theReceiver codeOn:aStream inBlock:b for:aCompiler.
 theArg notNil ifTrue:[
 theArg codeOn:aStream inBlock:b for:aCompiler
 ].
 aStream nextPut:theByteCode.
-pos1 := aStream position.   "/ remember branch target of left-fail branch
+pos1 := aStream position1Based.   "/ remember branch target of left-fail branch
 aStream nextPut:0.
 "/ code the right of the and-part
 theReceiver := receiver arg1.
 theReceiver codeInlineOn:aStream inBlock:b for:aCompiler.
 jmp := #falseJump
 ] ifFalse:[
 jmp := #trueJump
 ].
 aStream nextPut:jmp.
-pos2 := aStream position.   "/ remember branch target of right-fail branch
+pos2 := aStream position1Based.   "/ remember branch target of right-fail branch
 aStream nextPut:0.
 code := aStream contents.
 (selector == #ifFalse:ifTrue:) ifTrue:[
-code at:pos1 put:(aStream position)
+code at:pos1 put:(aStream position1Based)
 ].
 "/ code the if-block
 block1 := argArray at: 1.
 block1 isBlock ifTrue:[
 aStream nextPut:#drop
 ].
 ].
 aStream nextPut:#jump.
-pos3 := aStream position.
+pos3 := aStream position1Based.
 aStream nextPut:0.
-here := aStream position.
+here := aStream position1Based.
 (selector == #ifTrue:ifFalse:) ifTrue:[
 code at:pos1 put:here
 ].
 code at:pos2 put:here.
 valueNeeded ifFalse:[
 aStream nextPut:#drop
 ]
 ].
-code at:pos3 put:(aStream position)
+code at:pos3 put:(aStream position1Based)
 "Created: 6.9.1996 / 12:56:23 / cg"
 !
 codeAndIfOn:aStream inBlock:b valueNeeded:valueNeeded for:aCompiler
 receiver1 codeOn:aStream inBlock:b for:aCompiler.
 theArg notNil ifTrue:[
 theArg codeOn:aStream inBlock:b for:aCompiler
 ].
 aStream nextPut:theByteCode.
-pos1 := aStream position.
+pos1 := aStream position1Based.
 aStream nextPut:0.
 andBlock := receiver arg1. "/ the and:-block
 (selector == #ifTrue:) ifTrue:[
 jmp := #falseJump
 jmp := optByteCode2.
 ] ifFalse:[
 andBlock codeInlineOn:aStream inBlock:b for:aCompiler.
 ].
 aStream nextPut:jmp.
-pos2 := aStream position.
+pos2 := aStream position1Based.
 aStream nextPut:0.
 code := aStream contents.
 (selector == #ifFalse:) ifTrue:[
-code at:pos1 put:(aStream position)
+code at:pos1 put:(aStream position1Based)
 ].
 block := argArray at: 1.
 block isBlock ifTrue:[
 block codeInlineOn:aStream inBlock:b valueNeeded:valueNeeded for:aCompiler.
 ] ifFalse:[
 ]
 ].
 valueNeeded ifTrue:[
 aStream nextPut:#jump.
-pos3 := aStream position.
+pos3 := aStream position1Based.
 aStream nextPut:0.
-here := aStream position.
+here := aStream position1Based.
 (selector == #ifTrue:) ifTrue:[
 code at:pos1 put:here
 ].
 code at:pos2 put:here.
 aStream nextPut:#pushNil.
-code at:pos3 put:(aStream position)
+code at:pos3 put:(aStream position1Based)
 ] ifFalse:[
-here := aStream position.
+here := aStream position1Based.
 (selector == #ifTrue:) ifTrue:[
 code at:pos1 put:here
 ].
 code at:pos2 put:here
 ]
 |pos1 rightExpr|
 receiver codeOn:aStream inBlock:b for:aCompiler.
 valueNeeded ifTrue:[
-	aStream nextPut:#dup.
+aStream nextPut:#dup.
 ].
 aStream nextPut:#falseJump.
-pos1 := aStream position.
+pos1 := aStream position1Based.
 aStream nextPut:0.
 valueNeeded ifTrue:[
-	aStream nextPut:#drop.
+aStream nextPut:#drop.
 ].
 rightExpr := argArray at:1.
 rightExpr codeInlineOn:aStream inBlock:b valueNeeded:valueNeeded for:aCompiler.
-(aStream contents) at:pos1 put:(aStream position)
+(aStream contents) at:pos1 put:(aStream position1Based)
 "Created: 17.6.1996 / 15:46:42 / cg"
 "Modified: 17.6.1996 / 15:47:44 / cg"
 !
 selector == #and: ifTrue:[
 aStream nextPut:#falseJump.
 ] ifFalse:[
 aStream nextPut:#trueJump.
 ].
-pos1 := aStream position.
+pos1 := aStream position1Based.
 aStream nextPut:0.
 rightExpr := argArray at:1.
 rightExpr isBlock ifTrue:[
 rightExpr codeInlineOn:aStream inBlock:b valueNeeded:true for:aCompiler.
 ] ifFalse:[
 rightExpr codeOn:aStream inBlock:b for:aCompiler.
 ].
 aStream nextPut:#retTop.
-(aStream contents) at:pos1 put:(aStream position).
+(aStream contents) at:pos1 put:(aStream position1Based).
 selector == #and: ifTrue:[
 aStream nextPut:#retFalse.
 ] ifFalse:[
 aStream nextPut:#retTrue
 ].
 super
 codeForSimpleReturnOn:aStream
 inBlock:b
 lineNumber:lineNrOrNil
 for:aCompiler
 !
 codeIfElseOn:aStream inBlock:b valueNeeded:valueNeeded for:aCompiler
 "generate code for x ifxxx:[ ... ] yyy:[ ...]"
 aStream nextPut:#lineno; nextPut:lineNr.
 ]
 ].
 aStream nextPut:theByteCode.
-pos := aStream position.
+pos := aStream position1Based.
 aStream nextPut:0.
 needJump := true.
 block1 := argArray at:1.
 block1 isBlock ifTrue:[
 block1 codeInlineOn:aStream inBlock:b valueNeeded:valueNeeded for:aCompiler.
 aStream nextPut:#drop
 ].
 ].
 needJump ifTrue:[
 aStream nextPut:#jump.
-pos2 := aStream position.
+pos2 := aStream position1Based.
 aStream nextPut:0.
 ].
 code := aStream contents.
-code at:pos put:(aStream position).
+code at:pos put:(aStream position1Based).
 block2 := (argArray at:2).
 block2 isBlock ifTrue:[
 block2 codeInlineOn:aStream inBlock:b valueNeeded:valueNeeded for:aCompiler.
 ] ifFalse:[
 block2 codeOn:aStream inBlock:b for:aCompiler.
 valueNeeded ifFalse:[
 aStream nextPut:#drop
 ].
 ].
 needJump ifTrue:[
-code at:pos2 put:(aStream position)
+code at:pos2 put:(aStream position1Based)
 ]
 "Modified: 9.11.1996 / 19:53:52 / cg"
 !
 codeIfNilNotNilOn:aStream inBlock:b valueNeeded:valueNeeded for:aCompiler
 "generate code for x ifNil:[ ... ] ifNotNil:[...]
 or: x ifNil:const1 ifNotNil:const2"
-|pos pos2 theReceiver theArg theByteCode optByteCode subsel code
+|pos pos2 theReceiver theArg theByteCode code
 needLineNr block1 block2|
 theReceiver := receiver.
 (selector == #ifNil:ifNotNil:) ifTrue:[
 aStream nextPut:#lineno; nextPut:lineNr.
 ]
 ].
 aStream nextPut:theByteCode.
-pos := aStream position.
+pos := aStream position1Based.
 aStream nextPut:0.
 block1 := argArray at: 1.
 block1 isBlock ifTrue:[
 block1 codeInlineOn:aStream inBlock:b valueNeeded:valueNeeded for:aCompiler.
 ] ifFalse:[
 valueNeeded ifFalse:[
 aStream nextPut:#drop
 ].
 ].
 aStream nextPut:#jump.
-pos2 := aStream position.
+pos2 := aStream position1Based.
 aStream nextPut:0.
 code := aStream contents.
-code at:pos put:(aStream position).
+code at:pos put:(aStream position1Based).
 block2 := argArray at: 2.
 block2 isBlock ifTrue:[
 block2 codeInlineOn:aStream inBlock:b valueNeeded:valueNeeded for:aCompiler.
 ] ifFalse:[
 block2 codeOn:aStream inBlock:b for:aCompiler.
 aStream nextPut:#drop
 ].
 ].
 code := aStream contents.
-code at:pos2 put:(aStream position)
+code at:pos2 put:(aStream position1Based)
 "Modified: / 11.2.2000 / 12:50:36 / cg"
 !
 codeIfNilOn:aStream inBlock:b valueNeeded:valueNeeded for:aCompiler
 "generate code for x ifNil:[ ... ]"
-|pos pos2 theReceiver arg theByteCode optByteCode subsel code
+|pos theReceiver arg theByteCode code
 needLineNr|
 theReceiver := receiver.
 (selector == #ifNil:) ifTrue:[
 valueNeeded ifTrue:[
 aStream nextPut:#dup.
 ].
 aStream nextPut:theByteCode.
-pos := aStream position.
+pos := aStream position1Based.
 aStream nextPut:0.
 valueNeeded ifTrue:[
 aStream nextPut:#drop.
 ].
 aStream nextPut:#drop
 ].
 ].
 code := aStream contents.
-code at:pos put:(aStream position)
+code at:pos put:(aStream position1Based)
 "Modified: / 28.10.1997 / 18:33:42 / cg"
 !
 codeIfOn:aStream inBlock:b valueNeeded:valueNeeded for:aCompiler
 aStream nextPut:#lineno; nextPut:lineNr.
 ]
 ].
 aStream nextPut:theByteCode.
-pos := aStream position.
+pos := aStream position1Based.
 aStream nextPut:0.
 block := (argArray at:1).
 block isBlock ifTrue:[
 block codeInlineOn:aStream inBlock:b valueNeeded:valueNeeded for:aCompiler.
 ] ifFalse:[
 ].
 code := aStream contents.
 valueNeeded ifTrue:[
 aStream nextPut:#jump.
-pos2 := aStream position.
+pos2 := aStream position1Based.
 aStream nextPut:0.
-code at:pos put:(aStream position).
+code at:pos put:(aStream position1Based).
 aStream nextPut:#pushNil.
-code at:pos2 put:(aStream position)
+code at:pos2 put:(aStream position1Based)
 ] ifFalse:[
-code at:pos put:(aStream position)
+code at:pos put:(aStream position1Based)
 ]
 "Modified: / 28.10.1997 / 18:33:42 / cg"
 !
 theReceiver codeOn:aStream inBlock:b for:aCompiler.
 theArg notNil ifTrue:[
 theArg codeOn:aStream inBlock:b for:aCompiler
 ].
 aStream nextPut:theByteCode.
-pos1 := aStream position.   "/ remember branch target of left-ok branch
+pos1 := aStream position1Based.   "/ remember branch target of left-ok branch
 aStream nextPut:0.
 "/ code the right of the or-part
 (selector == #ifTrue:ifFalse:) ifTrue:[
 jmp := #falseJump
 ]
 ] ifFalse:[
 theReceiver codeInlineOn:aStream inBlock:b for:aCompiler.
 ].
 aStream nextPut:jmp.
-pos2 := aStream position.   "/ remember branch target of right-fail branch
+pos2 := aStream position1Based.   "/ remember branch target of right-fail branch
 aStream nextPut:0.
 code := aStream contents.
 (selector == #ifTrue:ifFalse:) ifTrue:[
-code at:pos1 put:(aStream position)
+code at:pos1 put:(aStream position1Based)
 ].
 "/ code the if-block
 block1 := argArray at: 1.
 block1 isBlock ifTrue:[
 aStream nextPut:#drop
 ]
 ].
 aStream nextPut:#jump.
-pos3 := aStream position.
+pos3 := aStream position1Based.
 aStream nextPut:0.
-here := aStream position.
+here := aStream position1Based.
 (selector == #ifFalse:ifTrue:) ifTrue:[
 code at:pos1 put:here
 ].
 code at:pos2 put:here.
 ].
 valueNeeded ifFalse:[
 aStream nextPut:#drop
 ]
 ].
-code at:pos3 put:(aStream position)
+code at:pos3 put:(aStream position1Based)
 "Created: 6.9.1996 / 13:08:52 / cg"
 !
 codeOrIfOn:aStream inBlock:b valueNeeded:valueNeeded for:aCompiler
 theReceiver codeOn:aStream inBlock:b for:aCompiler.
 theArg notNil ifTrue:[
 theArg codeOn:aStream inBlock:b for:aCompiler
 ].
 aStream nextPut:theByteCode.
-pos1 := aStream position.
+pos1 := aStream position1Based.
 aStream nextPut:0.
 theReceiver := receiver arg1.
 theArg := nil.
 ] ifFalse:[
 jmp := #trueJump
 ].
 aStream nextPut:jmp
 ].
-pos2 := aStream position.
+pos2 := aStream position1Based.
 aStream nextPut:0.
 (selector == #ifTrue:) ifTrue:[
-(aStream contents) at:pos1 put:(aStream position)
+(aStream contents) at:pos1 put:(aStream position1Based)
 ].
 block := argArray at: 1.
 block isBlock ifTrue:[
 block codeInlineOn:aStream inBlock:b valueNeeded:valueNeeded for:aCompiler.
 ] ifFalse:[
 ].
 code := aStream contents.
 valueNeeded ifTrue:[
 aStream nextPut:#jump.
-pos3 := aStream position.
+pos3 := aStream position1Based.
 aStream nextPut:0.
-here := aStream position.
+here := aStream position1Based.
 (selector == #ifFalse:) ifTrue:[
 code at:pos1 put:here
 ].
 code at:pos2 put:here.
 aStream nextPut:#pushNil.
-code at:pos3 put:(aStream position)
+code at:pos3 put:(aStream position1Based)
 ] ifFalse:[
-here := aStream position.
+here := aStream position1Based.
 (selector == #ifFalse:) ifTrue:[
 code at:pos1 put:here
 ].
 code at:pos2 put:here
 ]
 |pos1 rightExpr|
 receiver codeOn:aStream inBlock:b for:aCompiler.
 valueNeeded ifTrue:[
-	aStream nextPut:#dup.
+aStream nextPut:#dup.
 ].
 aStream nextPut:#trueJump.
-pos1 := aStream position.
+pos1 := aStream position1Based.
 aStream nextPut:0.
 valueNeeded ifTrue:[
-	aStream nextPut:#drop.
+aStream nextPut:#drop.
 ].
 rightExpr := argArray at:1.
 rightExpr codeInlineOn:aStream inBlock:b valueNeeded:valueNeeded for:aCompiler.
-(aStream contents) at:pos1 put:(aStream position)
+(aStream contents) at:pos1 put:(aStream position1Based)
 "Created: 17.6.1996 / 15:40:22 / cg"
 "Modified: 17.6.1996 / 15:47:22 / cg"
 !
 |pos code|
 receiver codeOn:aStream inBlock:b for:aCompiler.
 aStream nextPut:#dup.
 aStream nextPut:#notNilJump.
-pos := aStream position.
+pos := aStream position1Based.
 aStream nextPut:0.
 aStream nextPut:#drop.
 (argArray at: 1) codeOn:aStream inBlock:b for:aCompiler.
 code := aStream contents.
-code at:pos put:(aStream position).
+code at:pos put:(aStream position1Based).
 valueNeeded ifFalse:[
 aStream nextPut:#drop.
 ].
 codeRepeatOn:aStream inBlock:b valueNeeded:valueNeeded for:aCompiler
 "generate code for [ ... ] repeat"
 |pos|
-pos := aStream position.
+pos := aStream position1Based.
 receiver codeInlineOn:aStream inBlock:b valueNeeded:false for:aCompiler.
 aStream nextPut:#jump; nextPut:pos.
 "Created: 29.8.1997 / 08:14:58 / cg"
 !
 ].
 ].
 loopCount isNil ifTrue:[
 aStream nextPut:#pushgt0; nextPut:lineNr; nextPut:#falseJump.
-pos2 := aStream position.
+pos2 := aStream position1Based.
 aStream nextPut:0.
 ].
-pos1 := aStream position.
+pos1 := aStream position1Based.
 (argArray at:1) codeInlineOn:aStream inBlock:b valueNeeded:false for:aCompiler.
 aStream nextPut:#minus1; nextPut:lineNr.
 aStream nextPut:#pushgt0; nextPut:lineNr.
 aStream nextPut:#trueJump; nextPut:pos1.
 pos2 notNil ifTrue:[
-(aStream contents) at:pos2 put:(aStream position).
+(aStream contents) at:pos2 put:(aStream position1Based).
 ].
 aStream nextPut:#drop.  "/ drop run variable
 lateEval ifTrue:[
 receiver codeOn:aStream inBlock:b for:aCompiler.
 aStream nextPut:#storeBlockVar; nextPut:stopVarIndex.
 ].
 ]
 ].
-pos := aStream position.
+pos := aStream position1Based.
 aStream nextPut:#dup.
 stopVarIndex notNil ifTrue:[
 b isNil ifTrue:[
 aStream nextPut:#pushMethodVar; nextPut:stopVarIndex.
 ].
 (aCompiler hasLineNumber:selector) ifTrue:[
 aStream nextPut:lineNr.
 ].
 aStream nextPut:#trueJump.
-pos2 := aStream position.
+pos2 := aStream position1Based.
 aStream nextPut:0.
 theBlock := argArray at:3.
 "/ need a temporary in the outer context for
 ]
 ].
 aStream nextPut:#jump; nextPut:pos.
-(aStream contents) at:pos2 put:(aStream position).
+(aStream contents) at:pos2 put:(aStream position1Based).
 aStream nextPut:#drop.  "/ drop run variable
 lateEval ifTrue:[
 start codeOn:aStream inBlock:b for:aCompiler.
 ].
 start codeOn:aStream inBlock:b for:aCompiler.
 lateEval := false.
 valueNeeded ifTrue:[
-	"/ easily reconstructable - no need to keep on stack
+"/ easily reconstructable - no need to keep on stack
-	start isConstant ifTrue:[
+start isConstant ifTrue:[
-	    (start evaluate isMemberOf:SmallInteger) ifTrue:[
+(start evaluate isMemberOf:SmallInteger) ifTrue:[
-		lateEval := true.
+lateEval := true.
-	    ]
+]
-	].
+].
-	lateEval ifFalse:[
+lateEval ifFalse:[
-	    aStream nextPut:#dup
+aStream nextPut:#dup
-	].
+].
 ].
 "/ if stop is not constant, and not an argVar,
 "/  evaluate it into a temp slot ...
 (stop isConstant and:[stop type == #Integer]) ifFalse:[
-	"/ a method/blockArg is constant as well ...
+"/ a method/blockArg is constant as well ...
-	(stop isVariable and:[stop isArgument]) ifFalse:[
+(stop isVariable and:[stop isArgument]) ifFalse:[
-	    stop codeOn:aStream inBlock:b for:aCompiler.
+stop codeOn:aStream inBlock:b for:aCompiler.
-	    b isNil ifTrue:[
+b isNil ifTrue:[
-		stopVarIndex := aCompiler addTempVar.
+stopVarIndex := aCompiler addTempVar.
-		aStream nextPut:#storeMethodVar; nextPut:stopVarIndex.
+aStream nextPut:#storeMethodVar; nextPut:stopVarIndex.
-	    ] ifFalse:[
+] ifFalse:[
-		stopVarIndex := b addTempVar.
+stopVarIndex := b addTempVar.
-		aStream nextPut:#storeBlockVar; nextPut:stopVarIndex.
+aStream nextPut:#storeBlockVar; nextPut:stopVarIndex.
-	    ].
+].
-	]
+]
 ].
-pos := aStream position.
+pos := aStream position1Based.
 aStream nextPut:#lineno; nextPut:lineNr.
 aStream nextPut:#dup.
 stopVarIndex notNil ifTrue:[
-	b isNil ifTrue:[
+b isNil ifTrue:[
-	    aStream nextPut:#pushMethodVar; nextPut:stopVarIndex.
+aStream nextPut:#pushMethodVar; nextPut:stopVarIndex.
-	] ifFalse:[
+] ifFalse:[
-	    aStream nextPut:#pushBlockVar; nextPut:stopVarIndex.
+aStream nextPut:#pushBlockVar; nextPut:stopVarIndex.
-	]
+]
 ] ifFalse:[
-	stop codeOn:aStream inBlock:b for:aCompiler.
+stop codeOn:aStream inBlock:b for:aCompiler.
 ].
 aStream nextPut:#>.
 (aCompiler hasLineNumber:selector) ifTrue:[
-	aStream nextPut:lineNr.
+aStream nextPut:lineNr.
 ].
 aStream nextPut:#trueJump.
-pos2 := aStream position.
+pos2 := aStream position1Based.
 aStream nextPut:0.
 theBlock := argArray at:2.
 "/ need a temporary in the outer context for
 "/ the loop ...
 b isNil ifTrue:[
-	loopVarIndex := aCompiler addTempVar.
+loopVarIndex := aCompiler addTempVar.
-	aStream nextPut:#dup.
+aStream nextPut:#dup.
-	aStream nextPut:#storeMethodVar; nextPut:loopVarIndex.
+aStream nextPut:#storeMethodVar; nextPut:loopVarIndex.
 ] ifFalse:[
-	loopVarIndex := b addTempVar.
+loopVarIndex := b addTempVar.
-	aStream nextPut:#dup.
+aStream nextPut:#dup.
-	aStream nextPut:#storeBlockVar; nextPut:loopVarIndex.
+aStream nextPut:#storeBlockVar; nextPut:loopVarIndex.
 ].
 theBlock indexOfFirstTemp:loopVarIndex.
 theBlock codeInlineOn:aStream inBlock:b valueNeeded:false for:aCompiler.
 "/ increment counter & jump back.
 aStream nextPut:#plus1; nextPut:lineNr; nextPut:#jump; nextPut:pos.
-(aStream contents) at:pos2 put:(aStream position).
+(aStream contents) at:pos2 put:(aStream position1Based).
 aStream nextPut:#drop.  "/ drop run variable
 lateEval ifTrue:[
-	start codeOn:aStream inBlock:b for:aCompiler.
+start codeOn:aStream inBlock:b for:aCompiler.
 ].
 "/ no need to nil-out loop-tempVar to help GC
 "/ (its integer, anyway).
 b isNil ifTrue:[
-	aCompiler removeTempVar
+aCompiler removeTempVar
 ] ifFalse:[
-	b removeTempVar
+b removeTempVar
 ].
 stopVarIndex notNil ifTrue:[
-	b isNil ifTrue:[
+b isNil ifTrue:[
-	    aCompiler removeTempVar
+aCompiler removeTempVar
-	] ifFalse:[
+] ifFalse:[
-	    b removeTempVar
+b removeTempVar
-	]
+]
 ].
 "Created: 26.6.1997 / 10:58:47 / cg"
 "Modified: 19.10.1997 / 01:31:40 / cg"
 !
 "/ OLD:
 "/    valueNeeded ifTrue:[aStream nextPut:#pushNil].
 "/
 needLineNr := true.
-pos := aStream position.
+pos := aStream position1Based.
 "/    aCompiler lineNumberInfo == #full ifTrue:[
 self codeLineNumber:lineNr on:aStream for:aCompiler.
 needLineNr := false.
 "/    ].
 "/ [...] whileXXX:[...]
 theByteCode ~~ #never ifTrue:[
 aStream nextPut:theByteCode.
-pos2 := aStream position.
+pos2 := aStream position1Based.
 aStream nextPut:0.
 ].
 (argArray at:1) codeInlineOn:aStream inBlock:b valueNeeded:false for:aCompiler.
 aStream nextPut:#jump; nextPut:pos.
 theByteCode ~~ #never ifTrue:[
-(aStream contents) at:pos2 put:(aStream position).
+(aStream contents) at:pos2 put:(aStream position1Based).
 ].
 valueNeeded ifTrue:[aStream nextPut:#pushNil].
 "Modified: 22.10.1996 / 21:34:37 / cg"
 needLineNr := true.
 hasLoopBlock ifTrue:[
 (argArray at:1) isEmptyBlock ifFalse:[
 aStream nextPut:#jump.
-pos0 := aStream position.
+pos0 := aStream position1Based.
 aStream nextPut:0.
-pos := aStream position.
+pos := aStream position1Based.
 (argArray at:1) codeInlineOn:aStream inBlock:b valueNeeded:false for:aCompiler.
-(aStream contents) at:pos0 put:(aStream position).
+(aStream contents) at:pos0 put:(aStream position1Based).
 ]
 ] ifFalse:[
-pos := aStream position.
+pos := aStream position1Based.
 ].
 optByteCode isNil ifTrue:[
 blockExpr := theReceiver simpleSendBlockExpression.
 blockExpr notNil ifTrue:[
 ! !
 !MessageNode class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.124 2002-06-19 12:08:34 cg Exp $'
+^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.125 2003-02-25 11:47:23 cg Exp $'
 ! !

changeset 1371	de4c37ac12fc
parent 1281	e70c494950b2
child 1382	10281d2f42d1