--- a/AssignNd.st Tue Nov 22 01:23:56 1994 +0100
+++ b/AssignNd.st Mon Nov 28 21:58:48 1994 +0100
@@ -1,6 +1,6 @@
"
COPYRIGHT (c) 1989 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
@@ -19,9 +19,9 @@
AssignmentNode comment:'
COPYRIGHT (c) 1989 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
-$Header: /cvs/stx/stx/libcomp/Attic/AssignNd.st,v 1.7 1994-08-22 12:38:59 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Attic/AssignNd.st,v 1.8 1994-11-28 20:58:48 claus Exp $
'!
!AssignmentNode class methodsFor:'documentation'!
@@ -29,7 +29,7 @@
copyright
"
COPYRIGHT (c) 1989 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
@@ -42,7 +42,7 @@
version
"
-$Header: /cvs/stx/stx/libcomp/Attic/AssignNd.st,v 1.7 1994-08-22 12:38:59 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Attic/AssignNd.st,v 1.8 1994-11-28 20:58:48 claus Exp $
"
!
@@ -92,28 +92,28 @@
|sel arg|
(variable type == #MethodVariable) ifTrue:[
- expression isBinaryMessage ifTrue:[
- sel := expression selector.
- ((sel == #+) or:[sel == #-]) ifTrue:[
- (expression receiver type == #MethodVariable) ifTrue:[
- (expression receiver index == variable index) ifTrue:[
- arg := expression arg1.
- arg isConstant ifTrue:[
- (arg value == 1) ifTrue:[
- (sel == #+) ifTrue:[
- aStream nextPut:#incMethodVar
- ] ifFalse:[
- aStream nextPut:#decMethodVar
- ].
- aStream nextPut:(expression lineNumber).
- aStream nextPut:(variable index).
- ^ self
- ]
- ]
- ]
- ]
- ]
- ]
+ expression isBinaryMessage ifTrue:[
+ sel := expression selector.
+ ((sel == #+) or:[sel == #-]) ifTrue:[
+ (expression receiver type == #MethodVariable) ifTrue:[
+ (expression receiver index == variable index) ifTrue:[
+ arg := expression arg1.
+ arg isConstant ifTrue:[
+ (arg value == 1) ifTrue:[
+ (sel == #+) ifTrue:[
+ aStream nextPut:#incMethodVar
+ ] ifFalse:[
+ aStream nextPut:#decMethodVar
+ ].
+ aStream nextPut:(expression lineNumber).
+ aStream nextPut:(variable index).
+ ^ self
+ ]
+ ]
+ ]
+ ]
+ ]
+ ]
].
expression codeOn:aStream inBlock:b.
variable codeStoreOn:aStream inBlock:b valueNeeded:false