equal
deleted
inserted
replaced
7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
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 |
|
13 'From Smalltalk/X, Version:3.1.10 on 20-sep-1997 at 11:47:04 pm' ! |
12 |
14 |
13 PrimaryNode subclass:#VariableNode |
15 PrimaryNode subclass:#VariableNode |
14 instanceVariableNames:'name token selfValue selfClass index block' |
16 instanceVariableNames:'name token selfValue selfClass index block' |
15 classVariableNames:'' |
17 classVariableNames:'' |
16 poolDictionaries:'' |
18 poolDictionaries:'' |
564 ! ! |
566 ! ! |
565 |
567 |
566 !VariableNode methodsFor:'printing'! |
568 !VariableNode methodsFor:'printing'! |
567 |
569 |
568 displayString |
570 displayString |
|
571 "return a string for display in inspectors etc." |
|
572 |
569 ^ 'InterpreterVariable(' , self printString , ')' |
573 ^ 'InterpreterVariable(' , self printString , ')' |
|
574 |
|
575 "Modified: 20.9.1997 / 11:42:07 / cg" |
570 ! |
576 ! |
571 |
577 |
572 printOn:aStream indent:i |
578 printOn:aStream indent:i |
573 |
579 |
574 (type == #MethodArg "/ actually only a debug-check |
580 (type == #MethodArg "/ actually only a debug-check |
651 ! ! |
657 ! ! |
652 |
658 |
653 !VariableNode class methodsFor:'documentation'! |
659 !VariableNode class methodsFor:'documentation'! |
654 |
660 |
655 version |
661 version |
656 ^ '$Header: /cvs/stx/stx/libcomp/Attic/VarNode.st,v 1.32 1997-07-02 16:54:40 cg Exp $' |
662 ^ '$Header: /cvs/stx/stx/libcomp/Attic/VarNode.st,v 1.33 1997-09-20 21:03:33 cg Exp $' |
657 ! ! |
663 ! ! |