diff -r 425fc425516b -r 2f66de89a89b AssignmentNode.st --- 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 $' ! !