--- a/AssignmentNode.st Mon Oct 21 18:14:04 1996 +0200
+++ b/AssignmentNode.st Mon Oct 21 18:15:08 1996 +0200
@@ -126,6 +126,14 @@
!
codeNormalOn:aStream valueNeeded:forValue inBlock:b for:aCompiler
+ |isSend|
+
+ isSend := expression isMessage.
+ (lineNr notNil
+ and:[isSend not]) ifTrue:[
+ ParseNode codeLineNumber:lineNr on:aStream for:aCompiler
+ ].
+
expression codeOn:aStream inBlock:b for:aCompiler.
expression isBlock ifTrue:[
variable isLocal ifTrue:[
@@ -133,14 +141,15 @@
]
].
- lineNr notNil ifTrue:[
+ (lineNr notNil
+ and:[isSend]) ifTrue:[
ParseNode codeLineNumber:lineNr on:aStream for:aCompiler
].
variable codeStoreOn:aStream inBlock:b valueNeeded:forValue for:aCompiler
"Modified: 4.9.1995 / 14:38:10 / claus"
"Created: 1.3.1996 / 00:41:43 / cg"
- "Modified: 21.10.1996 / 14:45:07 / cg"
+ "Modified: 21.10.1996 / 16:26:33 / cg"
!
codeOn:aStream inBlock:b for:aCompiler
@@ -182,5 +191,5 @@
!AssignmentNode class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/AssignmentNode.st,v 1.21 1996-10-21 14:00:31 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/AssignmentNode.st,v 1.22 1996-10-21 16:14:32 cg Exp $'
! !