equal
deleted
inserted
replaced
20 AssignmentNode comment:' |
20 AssignmentNode comment:' |
21 |
21 |
22 COPYRIGHT (c) 1989 by Claus Gittinger |
22 COPYRIGHT (c) 1989 by Claus Gittinger |
23 All Rights Reserved |
23 All Rights Reserved |
24 |
24 |
25 $Header: /cvs/stx/stx/libcomp/AssignmentNode.st,v 1.3 1993-10-13 02:41:00 claus Exp $ |
25 $Header: /cvs/stx/stx/libcomp/AssignmentNode.st,v 1.4 1993-12-11 01:05:14 claus Exp $ |
26 '! |
26 '! |
27 |
27 |
28 !AssignmentNode class methodsFor:'instance creation'! |
28 !AssignmentNode class methodsFor:'instance creation'! |
29 |
29 |
30 variable:v expression:e |
30 variable:v expression:e |
64 (sel == #+) ifTrue:[ |
64 (sel == #+) ifTrue:[ |
65 aStream nextPut:#incMethodVar |
65 aStream nextPut:#incMethodVar |
66 ] ifFalse:[ |
66 ] ifFalse:[ |
67 aStream nextPut:#decMethodVar |
67 aStream nextPut:#decMethodVar |
68 ]. |
68 ]. |
|
69 aStream nextPut:(expression lineNumber). |
69 aStream nextPut:(variable index). |
70 aStream nextPut:(variable index). |
70 ^ self |
71 ^ self |
71 ] |
72 ] |
72 ] |
73 ] |
73 ] |
74 ] |