IRBytecodeGenerator emits lineno instructions only when lineno differs from the last one
--- 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'!