AssignmentNode.st
changeset 386 2f66de89a89b
parent 381 f1366b7aa598
child 479 d78183973ade
--- 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 $'
 ! !