Emit #lineno16 byte codes only, if line number really changes
authorStefan Vogel <sv@exept.de>
Fri, 10 May 2013 15:35:07 +0200
changeset 3163 a404d6ce2caf
parent 3162 d7d32920c1b4
child 3164 f11d0862c65e
Emit #lineno16 byte codes only, if line number really changes
AssignmentNode.st
--- a/AssignmentNode.st	Fri May 10 15:35:02 2013 +0200
+++ b/AssignmentNode.st	Fri May 10 15:35:07 2013 +0200
@@ -220,7 +220,7 @@
         expression codeOn:aStream inBlock:b for:aCompiler.
 
         selLitIdx := aCompiler addLiteral:#value:.
-        self emitSendLiteralIndex:selLitIdx numArgs:1 line:(lineNr ? 1) on:aStream.
+        self emitSendLiteralIndex:selLitIdx numArgs:1 line:(lineNr ? 1) on:aStream for:aCompiler.
         aStream nextPut:#drop.
 
         forValue ifTrue:[
@@ -231,7 +231,7 @@
                 self emitPushLiteralIndex:litIdx on:aStream for:aCompiler.
 
                 selLitIdx := aCompiler addLiteral:#value.
-                self emitSendLiteralIndex:selLitIdx numArgs:0 line:(lineNr ? 1) on:aStream.
+                self emitSendLiteralIndex:selLitIdx numArgs:0 line:(lineNr ? 1) on:aStream for:aCompiler.
             ]
         ].
         ^ self
@@ -347,9 +347,10 @@
 !AssignmentNode class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/AssignmentNode.st,v 1.43 2011-07-27 14:59:43 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/AssignmentNode.st,v 1.44 2013-05-10 13:35:07 stefan Exp $'
 !
 
 version_SVN
-    ^ '§ Id §'
+    ^ '$ Id $'
 ! !
+