equal
deleted
inserted
replaced
640 or:[type == #BlockArg |
640 or:[type == #BlockArg |
641 or:[type == #GlobalVariable |
641 or:[type == #GlobalVariable |
642 or:[type == #ClassVariable |
642 or:[type == #ClassVariable |
643 or:[type == #BlockVariable |
643 or:[type == #BlockVariable |
644 or:[type == #PrivateClass |
644 or:[type == #PrivateClass |
645 or:[type == #ClassInstanceVariable]]]]]]]]]) ifTrue:[ |
645 or:[type == #EvaluationContextLocal |
|
646 or:[type == #ClassInstanceVariable]]]]]]]]]]) ifTrue:[ |
646 aStream nextPutAll:name. ^ self |
647 aStream nextPutAll:name. ^ self |
647 ]. |
648 ]. |
648 (type == #ThisContext) ifTrue:[ |
649 (type == #ThisContext) ifTrue:[ |
649 aStream nextPutAll:'thisContext'. ^ self |
650 aStream nextPutAll:'thisContext'. ^ self |
650 ]. |
651 ]. |
651 "not reached" |
652 "not reached" |
652 self halt:'bad type'. |
653 self halt:'bad type'. |
653 |
654 |
654 "Modified: / 17.1.1998 / 02:56:06 / cg" |
655 "Modified: / 17.5.1998 / 00:17:12 / cg" |
655 ! ! |
656 ! ! |
656 |
657 |
657 !VariableNode methodsFor:'queries'! |
658 !VariableNode methodsFor:'queries'! |
658 |
659 |
659 canReuseAsArg:anotherNode |
660 canReuseAsArg:anotherNode |
714 ! ! |
715 ! ! |
715 |
716 |
716 !VariableNode class methodsFor:'documentation'! |
717 !VariableNode class methodsFor:'documentation'! |
717 |
718 |
718 version |
719 version |
719 ^ '$Header: /cvs/stx/stx/libcomp/VariableNode.st,v 1.36 1998-05-16 16:35:18 cg Exp $' |
720 ^ '$Header: /cvs/stx/stx/libcomp/VariableNode.st,v 1.37 1998-05-17 18:15:51 cg Exp $' |
720 ! ! |
721 ! ! |