Author: jquelin
Date: Wed Oct 3 09:40:57 2007
New Revision: 21785
Modified:
branches/pdd15oo/languages/perl5/t/sparse_perlarray.t
Log:
more find_type removal
Modified: branches/pdd15oo/languages/perl5/t/sparse_perlarray.t
==============================================================================
--- branches/pdd15oo/languages/perl5/t/sparse_perlarray.t (original)
+++ branches/pdd15oo/languages/perl5/t/sparse_perlarray.t Wed Oct 3
09:40:57 2007
@@ -39,8 +39,7 @@
ne I9, 0, lp1
# force GC => 142 DOD + 142 collects / 10^5 accesses
loadlib P20, 'perl_group'
- find_type I21, 'PerlArray'
- new P1,I21
+ P1 = new 'PerlArray'
set P1[I0], I0
concat S0, S1, S1
set S2, S0
@@ -83,8 +82,7 @@
# force GC => 124 DOD + 124 collects / 10^5 accesses
# need .PerlArray here - it auto extends - intlist doesnt
loadlib P20, 'perl_group'
- find_type I21, 'PerlArray'
- new P1,I21
+ P1 = new 'PerlArray'
set P1[I0], I0
concat S0, S1, S1
set S2, S0
@@ -130,8 +128,7 @@
ne I9, 0, lp1
# force GC => 142 DOD + 142 collects / 10^5 accesses
loadlib P20, 'perl_group'
- find_type I21, 'PerlArray'
- new P1,I21
+ P1 = new 'PerlArray'
set P1[I0], I0
concat S0, S1, S1
set S2, S0
@@ -175,8 +172,7 @@
ne I9, 0, lp1
# force GC => 142 DOD + 142 collects / 10^5 accesses
loadlib P20, 'perl_group'
- find_type I21, 'PerlArray'
- new P1,I21
+ P1 = new 'PerlArray'
set P1[I0], I0
concat S0, S1, S1
set S2, S0
