equal
deleted
inserted
replaced
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 "{ Package: 'stx:libcomp' }" |
12 "{ Package: 'stx:libcomp' }" |
|
13 |
|
14 "{ NameSpace: Smalltalk }" |
13 |
15 |
14 PrimaryNode subclass:#ConstantNode |
16 PrimaryNode subclass:#ConstantNode |
15 instanceVariableNames:'' |
17 instanceVariableNames:'' |
16 classVariableNames:'TrueNode FalseNode NilNode Const0Node Const1Node Float0Node' |
18 classVariableNames:'TrueNode FalseNode NilNode Const0Node Const1Node Float0Node' |
17 poolDictionaries:'' |
19 poolDictionaries:'' |
291 store:aValue |
293 store:aValue |
292 "not reached - parser checks for this" |
294 "not reached - parser checks for this" |
293 |
295 |
294 self error:'store not allowed'. |
296 self error:'store not allowed'. |
295 ^ aValue |
297 ^ aValue |
|
298 ! |
|
299 |
|
300 value |
|
301 "for compatibility with RB-AST" |
|
302 ^ value |
296 ! ! |
303 ! ! |
297 |
304 |
298 !ConstantNode methodsFor:'printing & storing'! |
305 !ConstantNode methodsFor:'printing & storing'! |
299 |
306 |
300 displayOn:aGCOrStream |
307 displayOn:aGCOrStream |
378 ! ! |
385 ! ! |
379 |
386 |
380 !ConstantNode class methodsFor:'documentation'! |
387 !ConstantNode class methodsFor:'documentation'! |
381 |
388 |
382 version_CVS |
389 version_CVS |
383 ^ '$Header: /cvs/stx/stx/libcomp/ConstantNode.st,v 1.52 2014-07-12 05:41:49 cg Exp $' |
390 ^ '$Header$' |
384 ! |
391 ! |
385 |
392 |
386 version_SVN |
393 version_SVN |
387 ^ '$ Id $' |
394 ^ '$ Id $' |
388 ! ! |
395 ! ! |