--- a/RegressionTests__CompilerTests2.st Thu Aug 22 14:03:53 2013 +0200
+++ b/RegressionTests__CompilerTests2.st Thu Aug 22 21:43:34 2013 +0200
@@ -138,6 +138,31 @@
"Created: / 20-08-2013 / 10:11:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
+method_argAndVarNames_05
+ | b |
+
+ b := [:len |
+ 1 to: len do:[:i|
+ | local1 local2 |
+
+ local1 := #local1.
+ local2 := 42.
+
+ i == 1 ifTrue:[
+ argAndVarNames := thisContext argAndVarNames asArray.
+ ]
+ ]
+ ].
+
+ b value: 5
+
+ "
+ CompilerTests2 basicNew method_argAndVarNames_05
+ "
+
+ "Created: / 22-08-2013 / 15:48:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
method_lineno_002
1 factorial. ^self currentLineNumber
@@ -685,6 +710,18 @@
]
"Created: / 20-08-2013 / 10:12:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+test_argAndVarNames_05
+
+ #(bc jit stc) do:[:mode |
+ argAndVarNames := nil.
+ self compile: (self class >> #method_argAndVarNames_05) source mode: mode.
+ self perform: (mode , '_method_argAndVarNames_05') asSymbol.
+ self assert: argAndVarNames = #(len i local1 local2)
+ ]
+
+ "Created: / 22-08-2013 / 15:49:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!CompilerTests2 methodsFor:'tests - line numbers'!