diff options
| author | Jim Cromie <jcromie@cpan.org> | 2004-05-09 23:28:11 -0600 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-05-14 16:30:07 +0000 |
| commit | cc02ea560c8a37fafefc4084ece79bdf6aceb9b8 (patch) | |
| tree | d376d954caa94102a9e7bf584efe405fcea88719 /ext/B/t/optree_varinit.t | |
| parent | 88037a85d6a4b105a485a30b7ae673eff41a9098 (diff) | |
| download | perl-cc02ea560c8a37fafefc4084ece79bdf6aceb9b8.tar.gz | |
Re: more B::Concise stuff (PATCH - updated)
Message-ID: <409F674B.2000506@divsol.com>
p4raw-id: //depot/perl@22820
Diffstat (limited to 'ext/B/t/optree_varinit.t')
| -rw-r--r-- | ext/B/t/optree_varinit.t | 13 |
1 files changed, 2 insertions, 11 deletions
diff --git a/ext/B/t/optree_varinit.t b/ext/B/t/optree_varinit.t index 25129793f3..dd1ef92416 100644 --- a/ext/B/t/optree_varinit.t +++ b/ext/B/t/optree_varinit.t @@ -30,12 +30,10 @@ checkOptree ( name => '-exec sub {my $a}', bcopts => '-exec', code => sub {my $a}, expect => <<'EOT_EOT', expect_nt => <<'EONT_EONT'); -# goto - # 1 <;> nextstate(main 49 optree.t:52) v # 2 <0> padsv[$a:49,50] M/LVINTRO # 3 <1> leavesub[1 ref] K/REFC,1 EOT_EOT -# goto - # 1 <;> nextstate(main 49 optree.t:45) v # 2 <0> padsv[$a:49,50] M/LVINTRO # 3 <1> leavesub[1 ref] K/REFC,1 @@ -45,12 +43,10 @@ checkOptree ( name => 'sub {our $a}', bcopts => '-exec', code => sub {our $a}, expect => <<'EOT_EOT', expect_nt => <<'EONT_EONT'); - goto - 1 <;> nextstate(main 21 optree.t:47) v 2 <#> gvsv[*a] s/OURINTR 3 <1> leavesub[1 ref] K/REFC,1 EOT_EOT -# goto - # 1 <;> nextstate(main 51 optree.t:56) v # 2 <$> gvsv(*a) s/OURINTR # 3 <1> leavesub[1 ref] K/REFC,1 @@ -60,12 +56,10 @@ checkOptree ( name => 'sub {local $a}', bcopts => '-exec', code => sub {local $a}, expect => <<'EOT_EOT', expect_nt => <<'EONT_EONT'); - goto - 1 <;> nextstate(main 23 optree.t:57) v 2 <#> gvsv[*a] s/LVINTRO 3 <1> leavesub[1 ref] K/REFC,1 EOT_EOT -# goto - # 1 <;> nextstate(main 53 optree.t:67) v # 2 <$> gvsv(*a) s/LVINTRO # 3 <1> leavesub[1 ref] K/REFC,1 @@ -242,10 +236,9 @@ EONT_EONT checkOptree ( name => 'sub {my $a=()}', code => sub {my $a=()}, - todo => 'optimize', + todo => 'apparently done, by patch #?', bcopts => '-exec', expect => <<'EOT_EOT', expect_nt => <<'EONT_EONT'); - goto - 1 <;> nextstate(main -439 optree.t:105) v 2 <0> stub sP 3 <0> padsv[$a:-439,-438] sRM*/LVINTRO @@ -282,14 +275,12 @@ checkOptree ( name => 'sub {local $a=()}', #todo => 'probly not worth doing', bcopts => '-exec', expect => <<'EOT_EOT', expect_nt => <<'EONT_EONT'); - goto - 1 <;> nextstate(main 33 optree.t:190) v 2 <0> stub sP 3 <#> gvsv[*a] s/LVINTRO 4 <2> sassign sKS/2 5 <1> leavesub[1 ref] K/REFC,1 EOT_EOT -# goto - # 1 <;> nextstate(main 63 optree.t:225) v # 2 <0> stub sP # 3 <$> gvsv(*a) s/LVINTRO @@ -299,7 +290,7 @@ EONT_EONT checkOptree ( name => 'my $a=()', prog => 'my $a=()', - todo => 'optimize ? its one of the idioms', + todo => 'apparently done, by patch #?', bcopts => '-exec', expect => <<'EOT_EOT', expect_nt => <<'EONT_EONT'); 1 <0> enter |