equal
deleted
inserted
replaced
231 aStream nextPut:code. ^ self |
231 aStream nextPut:code. ^ self |
232 ]. |
232 ]. |
233 |
233 |
234 "/ kludge for backward compatibility |
234 "/ kludge for backward compatibility |
235 aCompiler isNil ifTrue:[ |
235 aCompiler isNil ifTrue:[ |
236 self halt. |
236 self halt:'strange literal constant'. |
237 aStream nextPut:#pushLit; nextPut:value. |
237 aStream nextPut:#pushLit; nextPut:value. |
238 ^ self. |
238 ^ self. |
239 ]. |
239 ]. |
240 |
240 |
241 self emitPushLiteral:value on:aStream for:aCompiler |
241 self emitPushLiteral:value on:aStream for:aCompiler |
328 ! ! |
328 ! ! |
329 |
329 |
330 !ConstantNode class methodsFor:'documentation'! |
330 !ConstantNode class methodsFor:'documentation'! |
331 |
331 |
332 version |
332 version |
333 ^ '$Header: /cvs/stx/stx/libcomp/ConstantNode.st,v 1.42 2007-03-05 12:34:37 cg Exp $' |
333 ^ '$Header: /cvs/stx/stx/libcomp/ConstantNode.st,v 1.43 2008-10-20 15:10:47 cg Exp $' |
334 ! ! |
334 ! ! |