Permalink
Browse files

Ok to put subs directly in the NameSpace again.

Revert workaround added for parrot's TT#1672/TT#389
  • Loading branch information...
1 parent 5a4d0d5 commit 9a5ce3fb7d1de1b6cbe3d40c17db8f019185f490 @coke coke committed Mar 3, 2011
Showing with 1 addition and 12 deletions.
  1. +0 −1 runtime/builtin/namespace.pir
  2. +0 −2 runtime/conversions.pir
  3. +1 −6 runtime/tcllib.pir
  4. +0 −1 runtime/variables.pir
  5. +0 −2 src/grammar/expr/past2pir.tg
@@ -119,7 +119,6 @@ bad_args:
.local pmc colons, split, name
colons = get_root_global ['_tcl'], 'colons'
- colons = colons[0]
split = get_root_global ['parrot'; 'PGE'; 'Util'], 'split'
name = argv[0]
@@ -207,10 +207,8 @@ Given a string namespace, return an array of names.
depth_set:
.local pmc colons, split
colons = get_root_global ['_tcl'], 'colons'
- colons = colons[0]
split = get_root_global ['parrot'; 'PGE'; 'Util'], 'split'
-
.local pmc ns_name
ns_name = split(colons, name)
$I0 = elements ns_name
View
@@ -225,11 +225,7 @@ got_platform:
.local pmc p6rule, colons
p6rule = compreg 'PGE::Perl6Regex'
colons = p6rule('\:\:+')
- # XXX Workaround TT #1672 - put this sub into a TclList
- # and pop it out each time we want to invoke it.
- $P1 = new 'TclList'
- $P1[0] = colons
- set_root_global ['_tcl'], 'colons', $P1
+ set_hll_global 'colons', colons
# register the TCL compiler.
$P1 = get_root_global ['_tcl'], 'compileTcl'
@@ -240,7 +236,6 @@ got_platform:
set_global 'compiled_num', $P1
.end
-
.HLL 'parrot'
.include 'src/grammar/expr/expression.pir'
.include 'src/grammar/expr/parse.pir'
@@ -406,7 +406,6 @@ root_global_var:
absolute = 1
.local pmc colons, split
colons = get_root_global ['_tcl'], 'colons'
- colons = colons[0]
split = get_root_global ['parrot'; 'PGE'; 'Util'], 'split'
ns = split(colons, name)
@@ -262,7 +262,6 @@ transform pir (PAST::StaticCommand) {
.local pmc split, colons
split = get_root_global ['parrot'; 'PGE'; 'Util'], 'split'
colons = get_root_global ['_tcl'], 'colons'
- colons = colons[0]
$P0 = split(colons, name)
$S1 = pop $P0
@@ -389,7 +388,6 @@ transform pir (PAST::DynamicCommand) {
$S0 = %1
.local pmc colons, split
colons = get_root_global ['_tcl'], 'colons'
- colons = colons[0]
split = get_root_global ['parrot'; 'PGE'; 'Util'], 'split'
$P0 = split(colons, $S0)
$S0 = ""

0 comments on commit 9a5ce3f

Please sign in to comment.