IRBytecodeGenerator emits lineno instructions only when lineno differs from the last one
authorJan Vrany <jan.vrany@fit.cvut.cz>
Tue, 02 Dec 2008 09:43:42 +0000
changeset 7 0de2eaa86456
parent 6 49a61123c743
child 8 203df4f28793
IRBytecodeGenerator emits lineno instructions only when lineno differs from the last one
IRBytecodeGenerator.st
stx_goodies_newcompiler.st
--- a/IRBytecodeGenerator.st	Tue Dec 02 08:14:54 2008 +0000
+++ b/IRBytecodeGenerator.st	Tue Dec 02 09:43:42 2008 +0000
@@ -139,6 +139,8 @@
 
 line: line
 
+    lastLine = line ifTrue:[^self].
+    
     lastLine := line.
 
     (line < 256) 
@@ -152,6 +154,7 @@
                 nextPut: line]
 
     "Created: / 02-12-2008 / 09:02:30 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    "Modified: / 02-12-2008 / 10:38:20 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
 
 popTop
--- a/stx_goodies_newcompiler.st	Tue Dec 02 08:14:54 2008 +0000
+++ b/stx_goodies_newcompiler.st	Tue Dec 02 09:43:42 2008 +0000
@@ -22,7 +22,7 @@
         #'stx:libwidg'    "ScrollableView - referenced by IRMethod>>inspector2TabIRCode "
     )
 
-    "Modified: / 02-12-2008 / 09:13:21 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    "Modified: / 02-12-2008 / 10:42:50 / Jan Vrany <vranyj1@fel.cvut.cz>"
 ! !
 
 !stx_goodies_newcompiler class methodsFor:'description - contents'!
@@ -65,7 +65,7 @@
         IRTempStore
     )
 
-    "Modified: / 02-12-2008 / 09:13:21 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    "Modified: / 02-12-2008 / 10:42:49 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
 
 extensionMethodNames
@@ -75,7 +75,7 @@
         Class bindingOf:
     )
 
-    "Modified: / 02-12-2008 / 09:13:21 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    "Modified: / 02-12-2008 / 10:42:50 / Jan Vrany <vranyj1@fel.cvut.cz>"
 ! !
 
 !stx_goodies_newcompiler class methodsFor:'description - project information'!