equal
deleted
inserted
replaced
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 <= 255 ifTrue:[ |
245 aStream nextPut:#pushLitS; nextPut:index |
245 aStream nextPut:#pushLitS; nextPut:index |
246 ] ifFalse:[ |
246 ] ifFalse:[ |
247 index < 256 ifTrue:[ |
247 index <= 16rFFFF ifTrue:[ |
248 aStream nextPut:#pushLitL; nextPut:index; nextPut:0 |
248 aStream nextPut:#pushLitL; nextPut:index; nextPut:0 |
249 ] ifFalse:[ |
249 ] ifFalse:[ |
250 aStream nextPut:#pushLitVL; nextPut:0; nextPut:index; nextPut:0; nextPut:0; nextPut:0 |
250 aStream nextPut:#pushLitVL; nextPut:0; nextPut:index; nextPut:0; nextPut:0; nextPut:0 |
251 ] |
251 ] |
252 ]. |
252 ]. |
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.39 2006-08-07 22:37:58 cg Exp $' |
345 ^ '$Header: /cvs/stx/stx/libcomp/ConstantNode.st,v 1.40 2006-08-08 17:49:14 cg Exp $' |
346 ! ! |
346 ! ! |