--- a/RegressionTests__CompilerTests2.st Fri Apr 12 22:00:08 2013 +0200
+++ b/RegressionTests__CompilerTests2.st Sat Apr 13 10:17:13 2013 +0200
@@ -13,9 +13,11 @@
!CompilerTests2 methodsFor:'private'!
currentLineNumber
- ^thisContext sender lineNumber
+ thisContext fixAllLineNumbers.
+ ^thisContext sender lineNumber.
"Created: / 12-04-2013 / 21:20:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 13-04-2013 / 10:12:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
method_lineno_002
@@ -467,15 +469,18 @@
| m002 m300 l |
m002 := self class >> #method_lineno_002.
- ParserFlags withSTCCompilation:#always do:[
- self class compile: 'STC_', m002 source classified: 'private - *dynamic*'
+ ChangeSet withoutUpdatingChangesDo:[
+ ParserFlags withSTCCompilation:#always do:[
+ self class compile: 'STC_', m002 source classified: 'private - *dynamic*'
+ ].
].
m300 := self class >> #method_lineno_300.
- ParserFlags withSTCCompilation:#always do:[
- self class compile: 'STC_', m300 source classified: 'private - *dynamic*'
+ ChangeSet withoutUpdatingChangesDo:[
+ ParserFlags withSTCCompilation:#always do:[
+ self class compile: 'STC_', m300 source classified: 'private - *dynamic*'
+ ].
].
-
[
self assert: (l := self STC_method_lineno_002) == 2.
self assert: (l := self STC_method_lineno_300) == 300.
@@ -486,6 +491,7 @@
]
"Created: / 12-04-2013 / 21:50:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 13-04-2013 / 10:13:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!CompilerTests2 class methodsFor:'documentation'!