ConstantNode.st
changeset 1795 362758033fcb
parent 1794 f0871e87c14a
child 1797 f08cc74bd692
equal deleted inserted replaced
1794:f0871e87c14a 1795:362758033fcb
   237     ].
   237     ].
   238 
   238 
   239     index := aCompiler addLiteral:value.
   239     index := aCompiler addLiteral:value.
   240     index <= 8 ifTrue:[
   240     index <= 8 ifTrue:[
   241         aStream nextPut:(#(pushLit1 pushLit2 pushLit3 pushLit4
   241         aStream nextPut:(#(pushLit1 pushLit2 pushLit3 pushLit4
   242                             pushLit5 pushLit6 pushLit7 pushLit8) at:index).
   242                            pushLit5 pushLit6 pushLit7 pushLit8) at:index).
   243     ] ifFalse:[
   243     ] ifFalse:[
   244         index < 256 ifTrue:[
   244         index < 256 ifTrue:[
   245             aStream nextPut:#pushLitS; nextPut:index
   245             aStream nextPut:#pushLitS; nextPut:index
   246         ] ifFalse:[
   246         ] ifFalse:[
   247             index < 256 ifTrue:[
   247             index < 256 ifTrue:[
   340 ! !
   340 ! !
   341 
   341 
   342 !ConstantNode class methodsFor:'documentation'!
   342 !ConstantNode class methodsFor:'documentation'!
   343 
   343 
   344 version
   344 version
   345     ^ '$Header: /cvs/stx/stx/libcomp/ConstantNode.st,v 1.38 2006-08-07 21:41:51 cg Exp $'
   345     ^ '$Header: /cvs/stx/stx/libcomp/ConstantNode.st,v 1.39 2006-08-07 22:37:58 cg Exp $'
   346 ! !
   346 ! !