[svn:parrot] r44402 - in branches/boehm_gc_2: . src/pmc t/codingstd t/compilers/imcc/reg t/examples t/library t/oo t/op t/pmc
bacek at svn.parrot.org
bacek at svn.parrot.org
Tue Feb 23 19:51:25 UTC 2010
Author: bacek
Date: Tue Feb 23 19:51:20 2010
New Revision: 44402
URL: https://trac.parrot.org/parrot/changeset/44402
Log:
Merge branch 'master' into boehm2
Added:
branches/boehm_gc_2/t/compilers/imcc/reg/spill_old.t
Modified:
branches/boehm_gc_2/MANIFEST
branches/boehm_gc_2/src/pmc/fixedstringarray.pmc
branches/boehm_gc_2/t/codingstd/trailing_space.t
branches/boehm_gc_2/t/compilers/imcc/reg/spill.t
branches/boehm_gc_2/t/examples/tutorial.t
branches/boehm_gc_2/t/library/configure.t
branches/boehm_gc_2/t/library/md5.t
branches/boehm_gc_2/t/library/parrotlib.t
branches/boehm_gc_2/t/library/protoobject.t
branches/boehm_gc_2/t/library/rand.t
branches/boehm_gc_2/t/library/tcl_glob.t
branches/boehm_gc_2/t/library/uuid.t
branches/boehm_gc_2/t/oo/attributes.t
branches/boehm_gc_2/t/oo/inheritance.t
branches/boehm_gc_2/t/op/00ff-dos.t
branches/boehm_gc_2/t/op/00ff-unix.t
branches/boehm_gc_2/t/op/64bit.t
branches/boehm_gc_2/t/op/arithmetics.t
branches/boehm_gc_2/t/op/arithmetics_pmc.t
branches/boehm_gc_2/t/op/box.t
branches/boehm_gc_2/t/op/cc_params.t
branches/boehm_gc_2/t/op/comp.t
branches/boehm_gc_2/t/op/errorson.t
branches/boehm_gc_2/t/op/fetch.t
branches/boehm_gc_2/t/op/gc-leaky.t
branches/boehm_gc_2/t/op/gc.t
branches/boehm_gc_2/t/op/inf_nan.t
branches/boehm_gc_2/t/op/literal.t
branches/boehm_gc_2/t/op/number.t
branches/boehm_gc_2/t/op/sprintf2.t
branches/boehm_gc_2/t/op/string.t
branches/boehm_gc_2/t/op/string_cmp.t
branches/boehm_gc_2/t/op/string_mem.t
branches/boehm_gc_2/t/op/time.t
branches/boehm_gc_2/t/op/trans.t
branches/boehm_gc_2/t/op/vivify.t
branches/boehm_gc_2/t/pmc/arrayiterator.t
branches/boehm_gc_2/t/pmc/bigint.t
branches/boehm_gc_2/t/pmc/complex.t
branches/boehm_gc_2/t/pmc/continuation.t
branches/boehm_gc_2/t/pmc/default.t
branches/boehm_gc_2/t/pmc/env.t
branches/boehm_gc_2/t/pmc/exception.t
branches/boehm_gc_2/t/pmc/fixedbooleanarray.t
branches/boehm_gc_2/t/pmc/fixedintegerarray.t
branches/boehm_gc_2/t/pmc/fixedpmcarray.t
branches/boehm_gc_2/t/pmc/fixedstringarray.t
branches/boehm_gc_2/t/pmc/handle.t
branches/boehm_gc_2/t/pmc/hashiterator.t
branches/boehm_gc_2/t/pmc/hashiteratorkey.t
branches/boehm_gc_2/t/pmc/imageio.t
branches/boehm_gc_2/t/pmc/imageiosize.t
branches/boehm_gc_2/t/pmc/integer.t
branches/boehm_gc_2/t/pmc/lexinfo.t
branches/boehm_gc_2/t/pmc/lexpad.t
branches/boehm_gc_2/t/pmc/namespace.t
branches/boehm_gc_2/t/pmc/objects.t
branches/boehm_gc_2/t/pmc/opcode.t
branches/boehm_gc_2/t/pmc/oplib.t
branches/boehm_gc_2/t/pmc/orderedhashiterator.t
branches/boehm_gc_2/t/pmc/packfile.t
branches/boehm_gc_2/t/pmc/packfileannotation.t
branches/boehm_gc_2/t/pmc/packfileannotations.t
branches/boehm_gc_2/t/pmc/packfileconstanttable.t
branches/boehm_gc_2/t/pmc/packfiledirectory.t
branches/boehm_gc_2/t/pmc/packfilefixupentry.t
branches/boehm_gc_2/t/pmc/packfilefixuptable.t
branches/boehm_gc_2/t/pmc/packfilerawsegment.t
branches/boehm_gc_2/t/pmc/packfilesegment.t
branches/boehm_gc_2/t/pmc/parrotinterpreter.t
branches/boehm_gc_2/t/pmc/prop.t
branches/boehm_gc_2/t/pmc/scalar.t
branches/boehm_gc_2/t/pmc/scheduler.t
branches/boehm_gc_2/t/pmc/string.t
branches/boehm_gc_2/t/pmc/stringiterator.t
Modified: branches/boehm_gc_2/MANIFEST
==============================================================================
--- branches/boehm_gc_2/MANIFEST Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/MANIFEST Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,7 +1,7 @@
# ex: set ro:
# $Id$
#
-# generated by tools/dev/mk_manifest_and_skip.pl Sat Feb 20 18:21:54 2010 UT
+# generated by tools/dev/mk_manifest_and_skip.pl Tue Feb 23 18:31:24 2010 UT
#
# See below for documentation on the format of this file.
#
@@ -1565,6 +1565,7 @@
t/compilers/imcc/imcpasm/pcc.t [test]
t/compilers/imcc/reg/alloc.t [test]
t/compilers/imcc/reg/spill.t [test]
+t/compilers/imcc/reg/spill_old.t [test]
t/compilers/imcc/syn/clash.t [test]
t/compilers/imcc/syn/const.t [test]
t/compilers/imcc/syn/errors.t [test]
Modified: branches/boehm_gc_2/src/pmc/fixedstringarray.pmc
==============================================================================
--- branches/boehm_gc_2/src/pmc/fixedstringarray.pmc Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/src/pmc/fixedstringarray.pmc Tue Feb 23 19:51:20 2010 (r44402)
@@ -183,6 +183,20 @@
return SELF.elements();
}
+/*
+
+=item C<FLOATVAL get_number()>
+
+Returns the number of elements in the array.
+
+=cut
+
+*/
+
+ VTABLE FLOATVAL get_number() {
+ const INTVAL e = SELF.elements();
+ return (FLOATVAL)e;
+ }
/*
Modified: branches/boehm_gc_2/t/codingstd/trailing_space.t
==============================================================================
--- branches/boehm_gc_2/t/codingstd/trailing_space.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/codingstd/trailing_space.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -36,7 +36,6 @@
=cut
my $DIST = Parrot::Distribution->new;
-
my @files = @ARGV ? <@ARGV> : (
$DIST->get_c_language_files(),
$DIST->get_make_language_files(),
@@ -74,6 +73,7 @@
src/nci/core_thunks.c
src/nci/extra_thunks.c
t/examples/pir.t
-t/perl/Parrot_Test.t
+t/examples/tutorial.t
t/library/getopt_obj.t
+t/perl/Parrot_Test.t
t/run/options.t
Modified: branches/boehm_gc_2/t/compilers/imcc/reg/spill.t
==============================================================================
--- branches/boehm_gc_2/t/compilers/imcc/reg/spill.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/compilers/imcc/reg/spill.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,718 +1,372 @@
-#!perl
-# Copyright (C) 2001-2008, Parrot Foundation.
+#!parrot
+# Copyright (C) 2001-2010, Parrot Foundation.
# $Id$
-use strict;
-use warnings;
-use lib qw( . lib ../lib ../../lib );
-use Parrot::Test tests => 9;
+.sub main :main
+ .include 'test_more.pir'
+ plan(78)
+
+ test_allocate_1()
+ test_spill_1()
+ test_pcc_arg_overflow_1()
+ test_spill_4()
+.end
-pir_output_is( <<'CODE', <<'OUT', "allocate 1" );
+.sub test_allocate_1
#
# Test the ability of the register allocator to
# generate spills.
#
-.sub test :main
- $I0 = 0
- $I1 = 1
- $I2 = 2
- $I3 = 3
- $I4 = 4
- $I5 = 5
- $I6 = 6
- $I7 = 7
- $I8 = 8
- $I9 = 9
-
- $I10 = 10
- $I11 = 11
- $I12 = 12
- $I13 = 13
- $I14 = 14
- $I15 = 15
- $I16 = 16
- $I17 = 17
- $I18 = 18
- $I19 = 19
-
- $I20 = 20
- $I21 = 21
- $I22 = 22
- $I23 = 23
- $I24 = 24
- $I25 = 25
- $I26 = 26
- $I27 = 27
- $I28 = 28
- $I29 = 29
-
- $I30 = 30
- $I31 = 31
- $I32 = 32
- $I33 = 33
- $I34 = 34
- $I35 = 35
- $I36 = 36
- $I37 = 37
- $I38 = 38
- $I39 = 39
-
- $I40 = 40
-
- print $I0
- print "\n"
- print $I10
- print "\n"
- print $I20
- print "\n"
- print $I30
- print "\n"
- print $I40
- print "\n"
+ $I0 = 0
+ $I1 = 1
+ $I2 = 2
+ $I3 = 3
+ $I4 = 4
+ $I5 = 5
+ $I6 = 6
+ $I7 = 7
+ $I8 = 8
+ $I9 = 9
+
+ $I10 = 10
+ $I11 = 11
+ $I12 = 12
+ $I13 = 13
+ $I14 = 14
+ $I15 = 15
+ $I16 = 16
+ $I17 = 17
+ $I18 = 18
+ $I19 = 19
+
+ $I20 = 20
+ $I21 = 21
+ $I22 = 22
+ $I23 = 23
+ $I24 = 24
+ $I25 = 25
+ $I26 = 26
+ $I27 = 27
+ $I28 = 28
+ $I29 = 29
+
+ $I30 = 30
+ $I31 = 31
+ $I32 = 32
+ $I33 = 33
+ $I34 = 34
+ $I35 = 35
+ $I36 = 36
+ $I37 = 37
+ $I38 = 38
+ $I39 = 39
+
+ $I40 = 40
+
+ is($I0, 0, "allocate 1")
+ is($I10, 10, "allocate 1")
+ is($I20, 20, "allocate 1")
+ is($I30, 30, "allocate 1")
+ is($I40, 40, "allocate 1")
- end
.end
-CODE
-0
-10
-20
-30
-40
-OUT
-pir_output_is( <<'CODE', <<'OUT', "spill 1" );
+.sub test_spill_1
#
# Test the ability of the register allocator to
# generate spills.
#
-.sub test :main
- $I0 = 0
- $I1 = 1
- $I2 = 2
- $I3 = 3
- $I4 = 4
- $I5 = 5
- $I6 = 6
- $I7 = 7
- $I8 = 8
- $I9 = 9
-
- $I10 = 10
- $I11 = 11
- $I12 = 12
- $I13 = 13
- $I14 = 14
- $I15 = 15
- $I16 = 16
- $I17 = 17
- $I18 = 18
- $I19 = 19
-
- $I20 = 20
- $I21 = 21
- $I22 = 22
- $I23 = 23
- $I24 = 24
- $I25 = 25
- $I26 = 26
- $I27 = 27
- $I28 = 28
- $I29 = 29
-
- $I30 = 30
- $I31 = 31
- $I32 = 32
- $I33 = 33
- $I34 = 34
- $I35 = 35
- $I36 = 36
- $I37 = 37
- $I38 = 38
- $I39 = 39
-
- $I40 = $I0 + $I1
- $I41 = $I2 + $I3
- $I42 = $I4 + $I5
- $I43 = $I6 + $I7
- $I44 = $I8 + $I9
-
- $I50 = $I10 + $I11
- $I51 = $I12 + $I13
- $I52 = $I14 + $I15
- $I53 = $I16 + $I17
- $I54 = $I18 + $I19
-
- $I60 = $I20 + $I21
- $I61 = $I22 + $I23
- $I62 = $I24 + $I25
- $I63 = $I26 + $I27
- $I64 = $I28 + $I29
-
- $I70 = $I30 + $I31
- $I71 = $I32 + $I33
- $I72 = $I34 + $I35
- $I73 = $I36 + $I37
- $I74 = $I38 + $I39
-
- print $I0
- print $I1
- print $I2
- print $I3
- print $I4
- print $I5
- print $I6
- print $I7
- print $I8
- print $I9
- print "\n"
- print $I10
- print $I11
- print $I12
- print $I13
- print $I14
- print $I15
- print $I16
- print $I17
- print $I18
- print $I19
- print "\n"
- print $I20
- print $I21
- print $I22
- print $I23
- print $I24
- print $I25
- print $I26
- print $I27
- print $I28
- print $I29
- print "\n"
- print $I30
- print $I31
- print $I32
- print $I33
- print $I34
- print $I35
- print $I36
- print $I37
- print $I38
- print $I39
- print "\n"
- print $I40
- print $I41
- print $I42
- print $I43
- print $I44
- print "\n"
- print $I50
- print $I51
- print $I52
- print $I53
- print $I54
- print "\n"
- print $I60
- print $I61
- print $I62
- print $I63
- print $I64
- print "\n"
- print $I70
- print $I71
- print $I72
- print $I73
- print $I74
- print "\n"
- end
+ $I0 = 0
+ $I1 = 1
+ $I2 = 2
+ $I3 = 3
+ $I4 = 4
+ $I5 = 5
+ $I6 = 6
+ $I7 = 7
+ $I8 = 8
+ $I9 = 9
+
+ $I10 = 10
+ $I11 = 11
+ $I12 = 12
+ $I13 = 13
+ $I14 = 14
+ $I15 = 15
+ $I16 = 16
+ $I17 = 17
+ $I18 = 18
+ $I19 = 19
+
+ $I20 = 20
+ $I21 = 21
+ $I22 = 22
+ $I23 = 23
+ $I24 = 24
+ $I25 = 25
+ $I26 = 26
+ $I27 = 27
+ $I28 = 28
+ $I29 = 29
+
+ $I30 = 30
+ $I31 = 31
+ $I32 = 32
+ $I33 = 33
+ $I34 = 34
+ $I35 = 35
+ $I36 = 36
+ $I37 = 37
+ $I38 = 38
+ $I39 = 39
+
+ $I40 = $I0 + $I1
+ $I41 = $I2 + $I3
+ $I42 = $I4 + $I5
+ $I43 = $I6 + $I7
+ $I44 = $I8 + $I9
+
+ $I50 = $I10 + $I11
+ $I51 = $I12 + $I13
+ $I52 = $I14 + $I15
+ $I53 = $I16 + $I17
+ $I54 = $I18 + $I19
+
+ $I60 = $I20 + $I21
+ $I61 = $I22 + $I23
+ $I62 = $I24 + $I25
+ $I63 = $I26 + $I27
+ $I64 = $I28 + $I29
+
+ $I70 = $I30 + $I31
+ $I71 = $I32 + $I33
+ $I72 = $I34 + $I35
+ $I73 = $I36 + $I37
+ $I74 = $I38 + $I39
+
+ is($I0, 0, 'spill 1')
+ is($I1, 1, 'spill 1')
+ is($I2, 2, 'spill 1')
+ is($I3, 3, 'spill 1')
+ is($I4, 4, 'spill 1')
+ is($I5, 5, 'spill 1')
+ is($I6, 6, 'spill 1')
+ is($I7, 7, 'spill 1')
+ is($I8, 8, 'spill 1')
+ is($I9, 9, 'spill 1')
+ is($I10, 10, 'spill 1')
+ is($I11, 11, 'spill 1')
+ is($I12, 12, 'spill 1')
+ is($I13, 13, 'spill 1')
+ is($I14, 14, 'spill 1')
+ is($I15, 15, 'spill 1')
+ is($I16, 16, 'spill 1')
+ is($I17, 17, 'spill 1')
+ is($I18, 18, 'spill 1')
+ is($I19, 19, 'spill 1')
+ is($I20, 20, 'spill 1')
+ is($I21, 21, 'spill 1')
+ is($I22, 22, 'spill 1')
+ is($I23, 23, 'spill 1')
+ is($I24, 24, 'spill 1')
+ is($I25, 25, 'spill 1')
+ is($I26, 26, 'spill 1')
+ is($I27, 27, 'spill 1')
+ is($I28, 28, 'spill 1')
+ is($I29, 29, 'spill 1')
+ is($I30, 30, 'spill 1')
+ is($I31, 31, 'spill 1')
+ is($I32, 32, 'spill 1')
+ is($I33, 33, 'spill 1')
+ is($I34, 34, 'spill 1')
+ is($I35, 35, 'spill 1')
+ is($I36, 36, 'spill 1')
+ is($I37, 37, 'spill 1')
+ is($I38, 38, 'spill 1')
+ is($I39, 39, 'spill 1')
+ is($I40, 1, 'spill 1')
+ is($I41, 5, 'spill 1')
+ is($I42, 9, 'spill 1')
+ is($I43, 13, 'spill 1')
+ is($I44, 17, 'spill 1')
+ is($I50, 21, 'spill 1')
+ is($I51, 25, 'spill 1')
+ is($I52, 29, 'spill 1')
+ is($I53, 33, 'spill 1')
+ is($I54, 37, 'spill 1')
+ is($I60, 41, 'spill 1')
+ is($I61, 45, 'spill 1')
+ is($I62, 49, 'spill 1')
+ is($I63, 53, 'spill 1')
+ is($I64, 57, 'spill 1')
+ is($I70, 61, 'spill 1')
+ is($I71, 65, 'spill 1')
+ is($I72, 69, 'spill 1')
+ is($I73, 73, 'spill 1')
+ is($I74, 77, 'spill 1')
.end
-CODE
-0123456789
-10111213141516171819
-20212223242526272829
-30313233343536373839
-1591317
-2125293337
-4145495357
-6165697377
-OUT
-pir_output_is( <<'CODE', <<'OUT', "pcc arg overflow 1" );
+.sub test_pcc_arg_overflow_1
#
# Test the ability of the register allocator in
# combination with PCC calling convention and overflow arguments.
# Slightly redundant with tests in t/syn/pcc.t but please leave.
#
-.sub test :main
- _foo(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40)
- end
+ _foo(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40)
.end
+
.sub _foo
- .param int i1
- .param int i2
- .param int i3
- .param int i4
- .param int i5
- .param int i6
- .param int i7
- .param int i8
- .param int i9
- .param int i10
- .param int i11
- .param int i12
- .param int i13
- .param int i14
- .param int i15
- .param int i16
- .param int i17
- .param int i18
- .param int i19
- .param int i20
- .param int i21
- .param int i22
- .param int i23
- .param int i24
- .param int i25
- .param int i26
- .param int i27
- .param int i28
- .param int i29
- .param int i30
- .param int i31
- .param int i32
- .param int i33
- .param int i34
- .param int i35
- .param int i36
- .param int i37
- .param int i38
- .param int i39
- .param int i40
- print i1
- print "\n"
- print i2
- print "\n"
- print i3
- print "\n"
- print i4
- print "\n"
- print i5
- print "\n"
- print i10
- print "\n"
- print i15
- print "\n"
- print i20
- print "\n"
- print i25
- print "\n"
- print i30
- print "\n"
- print i35
- print "\n"
- print i40
- print "\n"
- end
+ .param int i1
+ .param int i2
+ .param int i3
+ .param int i4
+ .param int i5
+ .param int i6
+ .param int i7
+ .param int i8
+ .param int i9
+ .param int i10
+ .param int i11
+ .param int i12
+ .param int i13
+ .param int i14
+ .param int i15
+ .param int i16
+ .param int i17
+ .param int i18
+ .param int i19
+ .param int i20
+ .param int i21
+ .param int i22
+ .param int i23
+ .param int i24
+ .param int i25
+ .param int i26
+ .param int i27
+ .param int i28
+ .param int i29
+ .param int i30
+ .param int i31
+ .param int i32
+ .param int i33
+ .param int i34
+ .param int i35
+ .param int i36
+ .param int i37
+ .param int i38
+ .param int i39
+ .param int i40
+ is(i1, 1, 'pcc arg overflow 1')
+ is(i2, 2, 'pcc arg overflow 1')
+ is(i3, 3, 'pcc arg overflow 1')
+ is(i4, 4, 'pcc arg overflow 1')
+ is(i5, 5, 'pcc arg overflow 1')
+ is(i10, 10, 'pcc arg overflow 1')
+ is(i15, 15, 'pcc arg overflow 1')
+ is(i20, 20, 'pcc arg overflow 1')
+ is(i25, 25, 'pcc arg overflow 1')
+ is(i30, 30, 'pcc arg overflow 1')
+ is(i35, 35, 'pcc arg overflow 1')
+ is(i40, 40, 'pcc arg overflow 1')
.end
-CODE
-1
-2
-3
-4
-5
-10
-15
-20
-25
-30
-35
-40
-OUT
-pir_output_is( <<'CODE', <<'OUT', "spill 4" );
+.sub test_spill_4
#
# Another spill test
#
-.sub test :main
- $I0 = 0
- $I1 = 1
- $I2 = 2
- $I3 = 3
- $I4 = 4
- $I5 = 5
- $I6 = 6
- $I7 = 7
- $I8 = 8
- $I9 = 9
-
- $I10 = 10
- $I11 = 11
- $I12 = 12
- $I13 = 13
- $I14 = 14
- $I15 = 15
- $I16 = 16
- $I17 = 17
- $I18 = 18
- $I19 = 19
-
- $I20 = 20
- $I21 = 21
- $I22 = 22
- $I23 = 23
- $I24 = 24
- $I25 = 25
- $I26 = 26
- $I27 = 27
- $I28 = 28
- $I29 = 29
-
- $I30 = 30
- $I31 = 31
- $I32 = 32
- $I33 = 33
- $I34 = 34
- $I35 = 35
- $I36 = 36
- $I37 = 37
- $I38 = 38
- $I39 = 39
-
- if $I0 != 0 goto err
- if $I1 != 1 goto err
- if $I2 != 2 goto err
- if $I3 != 3 goto err
- if $I4 != 4 goto err
- if $I5 != 5 goto err
- if $I6 != 6 goto err
- if $I7 != 7 goto err
- if $I8 != 8 goto err
- if $I9 != 9 goto err
- if $I10 != 10 goto err
- if $I11 != 11 goto err
- if $I12 != 12 goto err
- if $I13 != 13 goto err
- if $I14 != 14 goto err
- if $I15 != 15 goto err
- if $I16 != 16 goto err
- if $I17 != 17 goto err
- if $I18 != 18 goto err
- if $I19 != 19 goto err
- if $I20 != 20 goto err
- if $I21 != 21 goto err
- if $I22 != 22 goto err
- if $I23 != 23 goto err
- if $I24 != 24 goto err
- if $I25 != 25 goto err
- if $I26 != 26 goto err
- if $I27 != 27 goto err
- if $I28 != 28 goto err
- if $I29 != 29 goto err
- if $I30 != 30 goto err
- if $I31 != 31 goto err
- if $I32 != 32 goto err
- if $I33 != 33 goto err
- if $I34 != 34 goto err
- if $I35 != 35 goto err
- if $I36 != 36 goto err
- if $I37 != 37 goto err
- if $I38 != 38 goto err
- if $I39 != 39 goto err
-
- print "ok\n"
- end
-err:
- print "nok\n"
- end
-.end
-CODE
-ok
-OUT
-
-pir_output_is( <<'CODE', <<'OUT', "bug #32996" );
-
-.namespace ["Foo"]
-
-.sub __biginit :main
- $S0 = "Foo"
- newclass $P0, $S0
- $P1 = new $S0
- $P1.'method1'()
- $P1.'method2'()
-
- $P2 = new $S0
- $P2.'method1'()
- $P2.'method2'()
-
- $P3 = new $S0
- $P3.'method1'()
- $P3.'method2'()
-
- $P4 = new $S0
- $P4.'method1'()
- $P4.'method2'()
-
- $P5 = new $S0
- $P5.'method1'()
- $P5.'method2'()
-
- $P6 = new $S0
- $P6.'method1'()
- $P6.'method2'()
-
- $P7 = new $S0
- $P7.'method1'()
- $P7.'method2'()
-
- $P8 = new $S0
- $P8.'method1'()
- $P8.'method2'()
-
- $P9 = new $S0
- $P9.'method1'()
- $P9.'method2'()
-
- $P10 = new $S0
- $P10.'method1'()
- $P10.'method2'()
-
- $P11 = new $S0
- $P11.'method1'()
- $P11.'method2'()
-
- $P12 = new $S0
- $P12.'method1'()
- $P12.'method2'()
-
- $P13 = new $S0
- $P13.'method1'()
- $P13.'method2'()
-
- $P14 = new $S0
- $P14.'method1'()
- $P14.'method2'()
-
- $P15 = new $S0
- $P15.'method1'()
- $P15.'method2'()
-
- $P1.'method1'()
- $P1.'method2'()
- $P2.'method1'()
- $P2.'method2'()
- $P3.'method1'()
- $P3.'method2'()
- $P4.'method1'()
- $P4.'method2'()
- $P5.'method1'()
- $P5.'method2'()
- $P6.'method1'()
- $P6.'method2'()
- $P7.'method1'()
- $P7.'method2'()
- $P8.'method1'()
- $P8.'method2'()
- $P9.'method1'()
- $P9.'method2'()
- $P10.'method1'()
- $P10.'method2'()
- $P11.'method1'()
- $P11.'method2'()
- $P12.'method1'()
- $P12.'method2'()
- $P13.'method1'()
- $P13.'method2'()
- $P14.'method1'()
- $P14.'method2'()
- $P15.'method1'()
- $P15.'method2'()
-
- end
-.end
+ $I0 = 0
+ $I1 = 1
+ $I2 = 2
+ $I3 = 3
+ $I4 = 4
+ $I5 = 5
+ $I6 = 6
+ $I7 = 7
+ $I8 = 8
+ $I9 = 9
+
+ $I10 = 10
+ $I11 = 11
+ $I12 = 12
+ $I13 = 13
+ $I14 = 14
+ $I15 = 15
+ $I16 = 16
+ $I17 = 17
+ $I18 = 18
+ $I19 = 19
+
+ $I20 = 20
+ $I21 = 21
+ $I22 = 22
+ $I23 = 23
+ $I24 = 24
+ $I25 = 25
+ $I26 = 26
+ $I27 = 27
+ $I28 = 28
+ $I29 = 29
+
+ $I30 = 30
+ $I31 = 31
+ $I32 = 32
+ $I33 = 33
+ $I34 = 34
+ $I35 = 35
+ $I36 = 36
+ $I37 = 37
+ $I38 = 38
+ $I39 = 39
+
+ if $I0 != 0 goto err
+ if $I1 != 1 goto err
+ if $I2 != 2 goto err
+ if $I3 != 3 goto err
+ if $I4 != 4 goto err
+ if $I5 != 5 goto err
+ if $I6 != 6 goto err
+ if $I7 != 7 goto err
+ if $I8 != 8 goto err
+ if $I9 != 9 goto err
+ if $I10 != 10 goto err
+ if $I11 != 11 goto err
+ if $I12 != 12 goto err
+ if $I13 != 13 goto err
+ if $I14 != 14 goto err
+ if $I15 != 15 goto err
+ if $I16 != 16 goto err
+ if $I17 != 17 goto err
+ if $I18 != 18 goto err
+ if $I19 != 19 goto err
+ if $I20 != 20 goto err
+ if $I21 != 21 goto err
+ if $I22 != 22 goto err
+ if $I23 != 23 goto err
+ if $I24 != 24 goto err
+ if $I25 != 25 goto err
+ if $I26 != 26 goto err
+ if $I27 != 27 goto err
+ if $I28 != 28 goto err
+ if $I29 != 29 goto err
+ if $I30 != 30 goto err
+ if $I31 != 31 goto err
+ if $I32 != 32 goto err
+ if $I33 != 33 goto err
+ if $I34 != 34 goto err
+ if $I35 != 35 goto err
+ if $I36 != 36 goto err
+ if $I37 != 37 goto err
+ if $I38 != 38 goto err
+ if $I39 != 39 goto err
-.sub method1 :method
- print "In method 1\n"
- .begin_return
- .end_return
-.end
-
-.sub method2 :method
- print "In method 2\n"
- .begin_return
- .end_return
-.end
-CODE
-In method 1
-In method 2
-In method 1
-In method 2
-In method 1
-In method 2
-In method 1
-In method 2
-In method 1
-In method 2
-In method 1
-In method 2
-In method 1
-In method 2
-In method 1
-In method 2
-In method 1
-In method 2
-In method 1
-In method 2
-In method 1
-In method 2
-In method 1
-In method 2
-In method 1
-In method 2
-In method 1
-In method 2
-In method 1
-In method 2
-In method 1
-In method 2
-In method 1
-In method 2
-In method 1
-In method 2
-In method 1
-In method 2
-In method 1
-In method 2
-In method 1
-In method 2
-In method 1
-In method 2
-In method 1
-In method 2
-In method 1
-In method 2
-In method 1
-In method 2
-In method 1
-In method 2
-In method 1
-In method 2
-In method 1
-In method 2
-In method 1
-In method 2
-In method 1
-In method 2
-OUT
-
-sub repeat {
- my ( $template, $count, %substs ) = @_;
- my ( $code, $n, $start );
- foreach ( split( /\n/, $template ) ) {
- $n = $count;
- $start = 0;
- if (/^(.*)=(\w+)=(.*)/) {
- my ( $pre, $key, $post ) = ( $1, $2, $3 );
- if ( $key eq 'ARGS' ) {
- my @params;
- for my $i ( 0 .. $n - 1 ) {
- ( my $new = $substs{$key} ) =~ s/\<index\>/$i/g;
- push @params, $new;
- }
- $code .= $pre . join( ',', @params ) . "$post\n";
- next;
- }
- $start = $n / 2 if ( $key eq 'TESTS2' );
- for my $i ( $start .. $n - 1 ) {
- ( my $new = $substs{$key} ) =~ s/\<index\>/$i/g;
- $code .= "$pre$new$post\n";
- }
- }
- else {
- $code .= "$_\n";
- }
- }
-
- return $code;
-}
-my $template2 = <<'TEMPLATE';
-.sub _main
- =LOCALS=
- =INITS=
- _sub(=ARGS=)
- =TESTS2=
- end
-fail:
- print "failed\n"
- end
-.end
-.sub _sub
- =PARAMS=
- =TESTS=
- print "all params ok\n"
+ ok(1, 'spill 4')
.return()
-fail:
- print "failed\n"
- end
+ err:
+ ok(0, 'spill 4')
.end
-TEMPLATE
-
-my $code = repeat(
- $template2, 18,
- LOCALS => ".local pmc a<index>\n\ta<index> = new 'Integer'",
- INITS => 'a<index> = <index>',
- ARGS => 'a<index>',
- PARAMS => '.param pmc a<index>',
- TESTS => "set \$I0, a<index>\nne \$I0, <index>, fail",
- TESTS2 => "set \$I0, a<index>\nne \$I0, <index>, fail"
-);
-
-pir_output_is( $code, <<'OUT', "overflow pmcs 18 spill" );
-all params ok
-OUT
-
-$code = repeat(
- $template2, 22,
- LOCALS => ".local pmc a<index>\n\ta<index> = new 'Integer'",
- INITS => 'a<index> = <index>',
- ARGS => 'a<index>',
- PARAMS => '.param pmc a<index>',
- TESTS => "set \$I0, a<index>\nne \$I0, <index>, fail",
- TESTS2 => "set \$I0, a<index>\nne \$I0, <index>, fail"
-);
-
-pir_output_is( $code, <<'OUT', "overflow pmcs 22 spill" );
-all params ok
-OUT
-
-$code = repeat(
- $template2, 40,
- LOCALS => ".local pmc a<index>\n\ta<index> = new 'Integer'",
- INITS => 'a<index> = <index>',
- ARGS => 'a<index>',
- PARAMS => '.param pmc a<index>',
- TESTS => "set \$I0, a<index>\nne \$I0, <index>, fail",
- TESTS2 => "set \$I0, a<index>\nne \$I0, <index>, fail"
-);
-
-pir_output_is( $code, <<'OUT', "overflow pmcs 40 spill" );
-all params ok
-OUT
-
-$code = repeat(
- $template2, 60,
- LOCALS => ".local pmc a<index>\n\ta<index> = new 'Integer'",
- INITS => 'a<index> = <index>',
- ARGS => 'a<index>',
- PARAMS => '.param pmc a<index>',
- TESTS => "set \$I0, a<index>\nne \$I0, <index>, fail",
- TESTS2 => "set \$I0, a<index>\nne \$I0, <index>, fail"
-);
-
-pir_output_is( $code, <<'OUT', "overflow pmcs 60 spill" );
-all params ok
-OUT
# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
+# mode: pir
# fill-column: 100
# End:
-# vim: expandtab shiftwidth=4:
+# vim: expandtab shiftwidth=4 ft=pir:
Added: branches/boehm_gc_2/t/compilers/imcc/reg/spill_old.t
==============================================================================
--- /dev/null 00:00:00 1970 (empty, because file is newly added)
+++ branches/boehm_gc_2/t/compilers/imcc/reg/spill_old.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -0,0 +1,298 @@
+#!perl
+# Copyright (C) 2001-2008, Parrot Foundation.
+# $Id: spill.t 37201 2009-03-08 12:07:48Z fperrad $
+
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Parrot::Test tests => 5;
+
+pir_output_is( <<'CODE', <<'OUT', "bug #32996" );
+
+.namespace ["Foo"]
+
+.sub __biginit :main
+ $S0 = "Foo"
+ newclass $P0, $S0
+ $P1 = new $S0
+ $P1.'method1'()
+ $P1.'method2'()
+
+ $P2 = new $S0
+ $P2.'method1'()
+ $P2.'method2'()
+
+ $P3 = new $S0
+ $P3.'method1'()
+ $P3.'method2'()
+
+ $P4 = new $S0
+ $P4.'method1'()
+ $P4.'method2'()
+
+ $P5 = new $S0
+ $P5.'method1'()
+ $P5.'method2'()
+
+ $P6 = new $S0
+ $P6.'method1'()
+ $P6.'method2'()
+
+ $P7 = new $S0
+ $P7.'method1'()
+ $P7.'method2'()
+
+ $P8 = new $S0
+ $P8.'method1'()
+ $P8.'method2'()
+
+ $P9 = new $S0
+ $P9.'method1'()
+ $P9.'method2'()
+
+ $P10 = new $S0
+ $P10.'method1'()
+ $P10.'method2'()
+
+ $P11 = new $S0
+ $P11.'method1'()
+ $P11.'method2'()
+
+ $P12 = new $S0
+ $P12.'method1'()
+ $P12.'method2'()
+
+ $P13 = new $S0
+ $P13.'method1'()
+ $P13.'method2'()
+
+ $P14 = new $S0
+ $P14.'method1'()
+ $P14.'method2'()
+
+ $P15 = new $S0
+ $P15.'method1'()
+ $P15.'method2'()
+
+ $P1.'method1'()
+ $P1.'method2'()
+ $P2.'method1'()
+ $P2.'method2'()
+ $P3.'method1'()
+ $P3.'method2'()
+ $P4.'method1'()
+ $P4.'method2'()
+ $P5.'method1'()
+ $P5.'method2'()
+ $P6.'method1'()
+ $P6.'method2'()
+ $P7.'method1'()
+ $P7.'method2'()
+ $P8.'method1'()
+ $P8.'method2'()
+ $P9.'method1'()
+ $P9.'method2'()
+ $P10.'method1'()
+ $P10.'method2'()
+ $P11.'method1'()
+ $P11.'method2'()
+ $P12.'method1'()
+ $P12.'method2'()
+ $P13.'method1'()
+ $P13.'method2'()
+ $P14.'method1'()
+ $P14.'method2'()
+ $P15.'method1'()
+ $P15.'method2'()
+
+ end
+.end
+
+.sub method1 :method
+ print "In method 1\n"
+ .begin_return
+ .end_return
+.end
+
+.sub method2 :method
+ print "In method 2\n"
+ .begin_return
+ .end_return
+.end
+CODE
+In method 1
+In method 2
+In method 1
+In method 2
+In method 1
+In method 2
+In method 1
+In method 2
+In method 1
+In method 2
+In method 1
+In method 2
+In method 1
+In method 2
+In method 1
+In method 2
+In method 1
+In method 2
+In method 1
+In method 2
+In method 1
+In method 2
+In method 1
+In method 2
+In method 1
+In method 2
+In method 1
+In method 2
+In method 1
+In method 2
+In method 1
+In method 2
+In method 1
+In method 2
+In method 1
+In method 2
+In method 1
+In method 2
+In method 1
+In method 2
+In method 1
+In method 2
+In method 1
+In method 2
+In method 1
+In method 2
+In method 1
+In method 2
+In method 1
+In method 2
+In method 1
+In method 2
+In method 1
+In method 2
+In method 1
+In method 2
+In method 1
+In method 2
+In method 1
+In method 2
+OUT
+
+sub repeat {
+ my ( $template, $count, %substs ) = @_;
+ my ( $code, $n, $start );
+ foreach ( split( /\n/, $template ) ) {
+ $n = $count;
+ $start = 0;
+ if (/^(.*)=(\w+)=(.*)/) {
+ my ( $pre, $key, $post ) = ( $1, $2, $3 );
+ if ( $key eq 'ARGS' ) {
+ my @params;
+ for my $i ( 0 .. $n - 1 ) {
+ ( my $new = $substs{$key} ) =~ s/\<index\>/$i/g;
+ push @params, $new;
+ }
+ $code .= $pre . join( ',', @params ) . "$post\n";
+ next;
+ }
+ $start = $n / 2 if ( $key eq 'TESTS2' );
+ for my $i ( $start .. $n - 1 ) {
+ ( my $new = $substs{$key} ) =~ s/\<index\>/$i/g;
+ $code .= "$pre$new$post\n";
+ }
+ }
+ else {
+ $code .= "$_\n";
+ }
+ }
+
+ return $code;
+}
+my $template2 = <<'TEMPLATE';
+.sub _main
+ =LOCALS=
+ =INITS=
+ _sub(=ARGS=)
+ =TESTS2=
+ end
+fail:
+ print "failed\n"
+ end
+.end
+.sub _sub
+ =PARAMS=
+ =TESTS=
+ print "all params ok\n"
+ .return()
+fail:
+ print "failed\n"
+ end
+.end
+TEMPLATE
+
+my $code = repeat(
+ $template2, 18,
+ LOCALS => ".local pmc a<index>\n\ta<index> = new 'Integer'",
+ INITS => 'a<index> = <index>',
+ ARGS => 'a<index>',
+ PARAMS => '.param pmc a<index>',
+ TESTS => "set \$I0, a<index>\nne \$I0, <index>, fail",
+ TESTS2 => "set \$I0, a<index>\nne \$I0, <index>, fail"
+);
+
+pir_output_is( $code, <<'OUT', "overflow pmcs 18 spill" );
+all params ok
+OUT
+
+$code = repeat(
+ $template2, 22,
+ LOCALS => ".local pmc a<index>\n\ta<index> = new 'Integer'",
+ INITS => 'a<index> = <index>',
+ ARGS => 'a<index>',
+ PARAMS => '.param pmc a<index>',
+ TESTS => "set \$I0, a<index>\nne \$I0, <index>, fail",
+ TESTS2 => "set \$I0, a<index>\nne \$I0, <index>, fail"
+);
+
+pir_output_is( $code, <<'OUT', "overflow pmcs 22 spill" );
+all params ok
+OUT
+
+$code = repeat(
+ $template2, 40,
+ LOCALS => ".local pmc a<index>\n\ta<index> = new 'Integer'",
+ INITS => 'a<index> = <index>',
+ ARGS => 'a<index>',
+ PARAMS => '.param pmc a<index>',
+ TESTS => "set \$I0, a<index>\nne \$I0, <index>, fail",
+ TESTS2 => "set \$I0, a<index>\nne \$I0, <index>, fail"
+);
+
+pir_output_is( $code, <<'OUT', "overflow pmcs 40 spill" );
+all params ok
+OUT
+
+$code = repeat(
+ $template2, 60,
+ LOCALS => ".local pmc a<index>\n\ta<index> = new 'Integer'",
+ INITS => 'a<index> = <index>',
+ ARGS => 'a<index>',
+ PARAMS => '.param pmc a<index>',
+ TESTS => "set \$I0, a<index>\nne \$I0, <index>, fail",
+ TESTS2 => "set \$I0, a<index>\nne \$I0, <index>, fail"
+);
+
+pir_output_is( $code, <<'OUT', "overflow pmcs 60 spill" );
+all params ok
+OUT
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: branches/boehm_gc_2/t/examples/tutorial.t
==============================================================================
--- branches/boehm_gc_2/t/examples/tutorial.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/examples/tutorial.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -85,7 +85,7 @@
##Note extra whitespace after 3rd hello
'21_string_ops_repeat.pir' => << 'END_EXPECTED',
-Hello Hello Hello
+Hello Hello Hello
END_EXPECTED
'22_string_ops_length.pir' => << 'END_EXPECTED',
Modified: branches/boehm_gc_2/t/library/configure.t
==============================================================================
--- branches/boehm_gc_2/t/library/configure.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/library/configure.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#!parrot
-# Copyright (C) 2009, Parrot Foundation.
+# Copyright (C) 2009-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -159,8 +159,7 @@
# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
+# mode: pir
# fill-column: 100
# End:
-# vim: expandtab shiftwidth=4:
+# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/library/md5.t
==============================================================================
--- branches/boehm_gc_2/t/library/md5.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/library/md5.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#!parrot
-# Copyright (C) 2001-2009, Parrot Foundation.
+# Copyright (C) 2001-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -682,8 +682,7 @@
.end
# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
+# mode: pir
# fill-column: 100
# End:
-# vim: expandtab shiftwidth=4 filetype=pir:
+# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/library/parrotlib.t
==============================================================================
--- branches/boehm_gc_2/t/library/parrotlib.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/library/parrotlib.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#!parrot
-# Copyright (C) 2001-2009, Parrot Foundation.
+# Copyright (C) 2001-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -107,8 +107,7 @@
=cut
# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
+# mode: pir
# fill-column: 100
# End:
-# vim: expandtab shiftwidth=4 filetype=pir:
+# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/library/protoobject.t
==============================================================================
--- branches/boehm_gc_2/t/library/protoobject.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/library/protoobject.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#!parrot
-# Copyright (C) 2001-2009, Parrot Foundation.
+# Copyright (C) 2001-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -146,8 +146,7 @@
# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
+# mode: pir
# fill-column: 100
# End:
-# vim: expandtab shiftwidth=4 filetype=pir:
+# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/library/rand.t
==============================================================================
--- branches/boehm_gc_2/t/library/rand.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/library/rand.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#!parrot
-# Copyright (C) 2009, Parrot Foundation.
+# Copyright (C) 2009-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -55,8 +55,7 @@
# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
+# mode: pir
# fill-column: 100
# End:
-# vim: expandtab shiftwidth=4:
+# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/library/tcl_glob.t
==============================================================================
--- branches/boehm_gc_2/t/library/tcl_glob.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/library/tcl_glob.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#!./parrot
-# Copyright (C) 2008, Parrot Foundation.
+# Copyright (C) 2008-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -106,3 +106,9 @@
.return(boolean)
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/library/uuid.t
==============================================================================
--- branches/boehm_gc_2/t/library/uuid.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/library/uuid.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#!parrot
-# Copyright (C) 2008-2009, Parrot Foundation.
+# Copyright (C) 2008-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -124,8 +124,7 @@
# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
+# mode: pir
# fill-column: 100
# End:
-# vim: expandtab shiftwidth=4 filetype=pir:
+# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/oo/attributes.t
==============================================================================
--- branches/boehm_gc_2/t/oo/attributes.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/oo/attributes.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#! parrot
-# Copyright (C) 2008, Parrot Foundation.
+# Copyright (C) 2008-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -71,3 +71,9 @@
is(message, "No such attribute 'data'", 'class attribute deleted')
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/oo/inheritance.t
==============================================================================
--- branches/boehm_gc_2/t/oo/inheritance.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/oo/inheritance.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#! parrot
-# Copyright (C) 2008, Parrot Foundation.
+# Copyright (C) 2008-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -121,3 +121,9 @@
ok( $I1, 'diamond')
fail:
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/op/00ff-dos.t
==============================================================================
--- branches/boehm_gc_2/t/op/00ff-dos.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/op/00ff-dos.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#!parrot
-# Copyright (C) 2001-2009, Parrot Foundation.
+# Copyright (C) 2001-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -42,8 +42,7 @@
.end
# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
+# mode: pir
# fill-column: 100
# End:
-# vim: expandtab shiftwidth=4 filetype=pir:
+# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/op/00ff-unix.t
==============================================================================
--- branches/boehm_gc_2/t/op/00ff-unix.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/op/00ff-unix.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#!parrot
-# Copyright (C) 2001-2009, Parrot Foundation.
+# Copyright (C) 2001-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -32,8 +32,7 @@
.end
# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
+# mode: pir
# fill-column: 100
# End:
-# vim: expandtab shiftwidth=4 filetype=pir:
+# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/op/64bit.t
==============================================================================
--- branches/boehm_gc_2/t/op/64bit.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/op/64bit.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -64,7 +64,6 @@
# Local Variables:
# mode: pir
-# cperl-indent-level: 4
# fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/op/arithmetics.t
==============================================================================
--- branches/boehm_gc_2/t/op/arithmetics.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/op/arithmetics.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#!parrot
-# Copyright (C) 2001-2009, Parrot Foundation.
+# Copyright (C) 2001-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -567,7 +567,6 @@
# Local Variables:
# mode: pir
-# cperl-indent-level: 4
# fill-column: 100
# End:
-# vim: expandtab shiftwidth=4 ft=pir :
+# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/op/arithmetics_pmc.t
==============================================================================
--- branches/boehm_gc_2/t/op/arithmetics_pmc.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/op/arithmetics_pmc.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#!parrot
-# Copyright (C) 2001-2009, Parrot Foundation.
+# Copyright (C) 2001-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -391,7 +391,6 @@
# Local Variables:
# mode: pir
-# cperl-indent-level: 4
# fill-column: 100
# End:
-# vim: expandtab shiftwidth=4 ft=pir :
+# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/op/box.t
==============================================================================
--- branches/boehm_gc_2/t/op/box.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/op/box.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#!parrot
-# Copyright (C) 2008-2009, Parrot Foundation.
+# Copyright (C) 2008-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -176,8 +176,7 @@
.end
# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
+# mode: pir
# fill-column: 100
# End:
-# vim: expandtab shiftwidth=4:
+# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/op/cc_params.t
==============================================================================
--- branches/boehm_gc_2/t/op/cc_params.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/op/cc_params.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -120,7 +120,6 @@
# Local Variables:
# mode: pir
-# cperl-indent-level: 4
# fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/op/comp.t
==============================================================================
--- branches/boehm_gc_2/t/op/comp.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/op/comp.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#!parrot
-# Copyright (C) 2001-2009, Parrot Foundation.
+# Copyright (C) 2001-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -160,8 +160,7 @@
.end
# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
+# mode: pir
# fill-column: 100
# End:
-# vim: expandtab shiftwidth=4 filetype=pir:
+# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/op/errorson.t
==============================================================================
--- branches/boehm_gc_2/t/op/errorson.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/op/errorson.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -42,7 +42,6 @@
# Local Variables:
# mode: pir
-# cperl-indent-level: 4
# fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/op/fetch.t
==============================================================================
--- branches/boehm_gc_2/t/op/fetch.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/op/fetch.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#!parrot
-# Copyright (C) 2009, Parrot Foundation.
+# Copyright (C) 2009-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -102,7 +102,6 @@
# Local Variables:
# mode: pir
-# cperl-indent-level: 4
# fill-column: 100
# End:
-# vim: expandtab shiftwidth=4 ft=pir :
+# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/op/gc-leaky.t
==============================================================================
--- branches/boehm_gc_2/t/op/gc-leaky.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/op/gc-leaky.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -70,4 +70,4 @@
# mode: pir
# fill-column: 100
# End:
-# vim: expandtab shiftwidth=4:
+# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/op/gc.t
==============================================================================
--- branches/boehm_gc_2/t/op/gc.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/op/gc.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#! parrot
-# Copyright (C) 2001-2009, Parrot Foundation.
+# Copyright (C) 2001-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -550,8 +550,7 @@
F<examples/benchmarks/primes2.py>.
# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
+# mode: pir
# fill-column: 100
# End:
-# vim: expandtab shiftwidth=4 filetype=pir:
+# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/op/inf_nan.t
==============================================================================
--- branches/boehm_gc_2/t/op/inf_nan.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/op/inf_nan.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#! parrot
-# Copyright (C) 2009, Parrot Foundation.
+# Copyright (C) 2009-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -500,8 +500,7 @@
.end
# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
+# mode: pir
# fill-column: 100
# End:
-# vim: expandtab shiftwidth=4 filetype=pir:
+# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/op/literal.t
==============================================================================
--- branches/boehm_gc_2/t/op/literal.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/op/literal.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#!parrot
-# Copyright (C) 2001-2005, Parrot Foundation.
+# Copyright (C) 2001-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -33,7 +33,6 @@
# Local Variables:
# mode: pir
-# cperl-indent-level: 4
# fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/op/number.t
==============================================================================
--- branches/boehm_gc_2/t/op/number.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/op/number.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#!parrot
-# Copyright (C) 2001-2009, Parrot Foundation.
+# Copyright (C) 2001-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -935,7 +935,6 @@
# Local Variables:
# mode: pir
-# cperl-indent-level: 4
# fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/op/sprintf2.t
==============================================================================
--- branches/boehm_gc_2/t/op/sprintf2.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/op/sprintf2.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#! parrot
-# Copyright (C) 2001-2009, Parrot Foundation.
+# Copyright (C) 2001-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -120,7 +120,6 @@
# Local Variables:
# mode: pir
-# cperl-indent-level: 4
# fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/op/string.t
==============================================================================
--- branches/boehm_gc_2/t/op/string.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/op/string.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#!parrot
-# Copyright (C) 2001-2009, Parrot Foundation.
+# Copyright (C) 2001-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -2177,7 +2177,6 @@
# Local Variables:
# mode: pir
-# cperl-indent-level: 4
# fill-column: 100
# End:
-# vim: expandtab shiftwidth=4 ft=pir :
+# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/op/string_cmp.t
==============================================================================
--- branches/boehm_gc_2/t/op/string_cmp.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/op/string_cmp.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#! parrot
-# Copyright (C) 2001-2009, Parrot Foundation.
+# Copyright (C) 2001-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -1166,7 +1166,6 @@
# Local Variables:
# mode: pir
-# cperl-indent-level: 4
# fill-column: 100
# End:
-# vim: expandtab shiftwidth=4 ft=pir :
+# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/op/string_mem.t
==============================================================================
--- branches/boehm_gc_2/t/op/string_mem.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/op/string_mem.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#!./parrot
-# Copyright (C) 2008, Parrot Foundation.
+# Copyright (C) 2008-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -151,4 +151,4 @@
# mode: pir
# fill-column: 100
# End:
-# vim: expandtab shiftwidth=4:
+# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/op/time.t
==============================================================================
--- branches/boehm_gc_2/t/op/time.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/op/time.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#!parrot
-# Copyright (C) 2001-2009, Parrot Foundation.
+# Copyright (C) 2001-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -165,8 +165,7 @@
# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
+# mode: pir
# fill-column: 100
# End:
-# vim: expandtab shiftwidth=4 filetype=pir:
+# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/op/trans.t
==============================================================================
--- branches/boehm_gc_2/t/op/trans.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/op/trans.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -125,3 +125,9 @@
is($N0, 1.557408, "tan(1)", epsilon)
.end
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4 ft=pir:
+
Modified: branches/boehm_gc_2/t/op/vivify.t
==============================================================================
--- branches/boehm_gc_2/t/op/vivify.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/op/vivify.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#!parrot
-# Copyright (C) 2009, Parrot Foundation.
+# Copyright (C) 2009-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -134,7 +134,6 @@
# Local Variables:
# mode: pir
-# cperl-indent-level: 4
# fill-column: 100
# End:
-# vim: expandtab shiftwidth=4 ft=pir :
+# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/pmc/arrayiterator.t
==============================================================================
--- branches/boehm_gc_2/t/pmc/arrayiterator.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/pmc/arrayiterator.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#! parrot
-# Copyright (C) 2001-2009, Parrot Foundation.
+# Copyright (C) 2001-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -132,10 +132,8 @@
DONE:
.end
-
# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
+# mode: pir
# fill-column: 100
# End:
-# vim: expandtab shiftwidth=4:
+# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/pmc/bigint.t
==============================================================================
--- branches/boehm_gc_2/t/pmc/bigint.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/pmc/bigint.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -987,7 +987,6 @@
# Local Variables:
# mode: pir
-# cperl-indent-level: 4
# fill-column: 100
# End:
-# vim: expandtab shiftwidth=4 filetype=pir:
+# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/pmc/complex.t
==============================================================================
--- branches/boehm_gc_2/t/pmc/complex.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/pmc/complex.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#! parrot
-# Copyright (C) 2001-2009, Parrot Foundation.
+# Copyright (C) 2001-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -1178,8 +1178,7 @@
# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
+# mode: pir
# fill-column: 100
# End:
-# vim: expandtab shiftwidth=4 filetype=pir:
+# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/pmc/continuation.t
==============================================================================
--- branches/boehm_gc_2/t/pmc/continuation.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/pmc/continuation.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#! parrot
-# Copyright (C) 2006-2007, Parrot Foundation.
+# Copyright (C) 2006-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -45,7 +45,6 @@
# Local Variables:
# mode: pir
-# cperl-indent-level: 4
# fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/pmc/default.t
==============================================================================
--- branches/boehm_gc_2/t/pmc/default.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/pmc/default.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#!parrot
-# Copyright (C) 2006-2009, Parrot Foundation.
+# Copyright (C) 2006-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -45,8 +45,7 @@
.end
# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
+# mode: pir
# fill-column: 100
# End:
-# vim: expandtab shiftwidth=4:
+# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/pmc/env.t
==============================================================================
--- branches/boehm_gc_2/t/pmc/env.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/pmc/env.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#! parrot
-# Copyright (C) 2001-2008, Parrot Foundation.
+# Copyright (C) 2001-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -184,7 +184,6 @@
# Local Variables:
# mode: pir
-# cperl-indent-level: 4
# fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/pmc/exception.t
==============================================================================
--- branches/boehm_gc_2/t/pmc/exception.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/pmc/exception.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#! parrot
-# Copyright (C) 2009, Parrot Foundation.
+# Copyright (C) 2009-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -172,8 +172,7 @@
.end
# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
+# mode: pir
# fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/pmc/fixedbooleanarray.t
==============================================================================
--- branches/boehm_gc_2/t/pmc/fixedbooleanarray.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/pmc/fixedbooleanarray.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#! parrot
-# Copyright (C) 2001-2009, Parrot Foundation.
+# Copyright (C) 2001-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -334,8 +334,7 @@
# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
+# mode: pir
# fill-column: 100
# End:
-# vim: expandtab shiftwidth=4:
+# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/pmc/fixedintegerarray.t
==============================================================================
--- branches/boehm_gc_2/t/pmc/fixedintegerarray.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/pmc/fixedintegerarray.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -237,8 +237,7 @@
# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
+# mode: pir
# fill-column: 100
# End:
-# vim: expandtab shiftwidth=4:
+# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/pmc/fixedpmcarray.t
==============================================================================
--- branches/boehm_gc_2/t/pmc/fixedpmcarray.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/pmc/fixedpmcarray.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#! parrot
-# Copyright (C) 2001-2009, Parrot Foundation.
+# Copyright (C) 2001-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -667,8 +667,7 @@
.end
# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
+# mode: pir
# fill-column: 100
# End:
-# vim: expandtab shiftwidth=4:
+# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/pmc/fixedstringarray.t
==============================================================================
--- branches/boehm_gc_2/t/pmc/fixedstringarray.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/pmc/fixedstringarray.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#! parrot
-# Copyright (C) 2001-2009, Parrot Foundation.
+# Copyright (C) 2001-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -19,7 +19,7 @@
.sub 'main' :main
.include 'test_more.pir'
- plan(44)
+ plan(46)
'test_set_size'() # 2 tests
'test_reset_size'() # 1 test
@@ -37,6 +37,7 @@
'test_get_string'() # 1 test
'test_equality'() # 5 tests
'test_gc'() # 4 tests
+ 'test_number'() # 2 tests
.end
.sub 'test_set_size'
@@ -364,9 +365,20 @@
.end
+.sub 'test_number'
+ .local pmc fsa
+ fsa = new ['FixedStringArray']
+ fsa = 3
+
+ $I0 = fsa
+ is($I0, 3, "get_integer returns correct size")
+ $N0 = fsa
+ is($N0, 3.0, "get_number returns correct size")
+.end
+
+
# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
+# mode: pir
# fill-column: 100
# End:
-# vim: expandtab shiftwidth=4:
+# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/pmc/handle.t
==============================================================================
--- branches/boehm_gc_2/t/pmc/handle.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/pmc/handle.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#! parrot
-# Copyright (C) 2001-2008, Parrot Foundation.
+# Copyright (C) 2001-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -29,8 +29,7 @@
.end
# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
+# mode: pir
# fill-column: 100
# End:
-# vim: expandtab shiftwidth=4:
+# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/pmc/hashiterator.t
==============================================================================
--- branches/boehm_gc_2/t/pmc/hashiterator.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/pmc/hashiterator.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#! parrot
-# Copyright (C) 2001-2008, Parrot Foundation.
+# Copyright (C) 2001-2010, Parrot Foundation.
# $Id$
=head1 NAME
Modified: branches/boehm_gc_2/t/pmc/hashiteratorkey.t
==============================================================================
--- branches/boehm_gc_2/t/pmc/hashiteratorkey.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/pmc/hashiteratorkey.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#!./parrot
-# Copyright (C) 2001-2006, Parrot Foundation.
+# Copyright (C) 2001-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -37,8 +37,7 @@
# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
+# mode: pir
# fill-column: 100
# End:
-# vim: expandtab shiftwidth=4:
+# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/pmc/imageio.t
==============================================================================
--- branches/boehm_gc_2/t/pmc/imageio.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/pmc/imageio.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -76,4 +76,4 @@
# mode: pir
# fill-column: 100
# End:
-# vim: expandtab shiftwidth=4 ft=pir
+# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/pmc/imageiosize.t
==============================================================================
--- branches/boehm_gc_2/t/pmc/imageiosize.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/pmc/imageiosize.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -71,4 +71,4 @@
# mode: pir
# fill-column: 100
# End:
-# vim: expandtab shiftwidth=4 ft=pir
+# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/pmc/integer.t
==============================================================================
--- branches/boehm_gc_2/t/pmc/integer.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/pmc/integer.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#!parrot
-# Copyright (C) 2001-2009, Parrot Foundation.
+# Copyright (C) 2001-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -416,8 +416,7 @@
.end
# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
+# mode: pir
# fill-column: 100
# End:
-# vim: expandtab shiftwidth=4:
+# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/pmc/lexinfo.t
==============================================================================
--- branches/boehm_gc_2/t/pmc/lexinfo.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/pmc/lexinfo.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -72,7 +72,6 @@
# Local Variables:
# mode: pir
-# cperl-indent-level: 4
# fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/pmc/lexpad.t
==============================================================================
--- branches/boehm_gc_2/t/pmc/lexpad.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/pmc/lexpad.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#! parrot
-# Copyright (C) 2006-2007, Parrot Foundation.
+# Copyright (C) 2006-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -70,7 +70,6 @@
# Local Variables:
# mode: pir
-# cperl-indent-level: 4
# fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/pmc/namespace.t
==============================================================================
--- branches/boehm_gc_2/t/pmc/namespace.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/pmc/namespace.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#! parrot
-# Copyright (C) 2006-2007, Parrot Foundation.
+# Copyright (C) 2006-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -701,3 +701,9 @@
.sub 'baz'
.return("MyHLL")
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/pmc/objects.t
==============================================================================
--- branches/boehm_gc_2/t/pmc/objects.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/pmc/objects.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#! parrot
-# Copyright (C) 2001-2009, Parrot Foundation.
+# Copyright (C) 2001-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -1790,8 +1790,7 @@
# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
+# mode: pir
# fill-column: 100
# End:
-# vim: expandtab shiftwidth=4 filetype=pir:
+# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/pmc/opcode.t
==============================================================================
--- branches/boehm_gc_2/t/pmc/opcode.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/pmc/opcode.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#! parrot
-# Copyright (C) 2001-2009, Parrot Foundation.
+# Copyright (C) 2001-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -27,3 +27,9 @@
ok(1)
create_end:
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/pmc/oplib.t
==============================================================================
--- branches/boehm_gc_2/t/pmc/oplib.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/pmc/oplib.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#! parrot
-# Copyright (C) 2001-2009, Parrot Foundation.
+# Copyright (C) 2001-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -32,3 +32,9 @@
end:
.end
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4 ft=pir:
+
Modified: branches/boehm_gc_2/t/pmc/orderedhashiterator.t
==============================================================================
--- branches/boehm_gc_2/t/pmc/orderedhashiterator.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/pmc/orderedhashiterator.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#!./parrot
-# Copyright (C) 2001-2006, Parrot Foundation.
+# Copyright (C) 2001-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -41,8 +41,7 @@
# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
+# mode: pir
# fill-column: 100
# End:
-# vim: expandtab shiftwidth=4:
+# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/pmc/packfile.t
==============================================================================
--- branches/boehm_gc_2/t/pmc/packfile.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/pmc/packfile.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#! parrot
-# Copyright (C) 2006-2009, Parrot Foundation.
+# Copyright (C) 2006-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -308,8 +308,7 @@
# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
+# mode: pir
# fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/pmc/packfileannotation.t
==============================================================================
--- branches/boehm_gc_2/t/pmc/packfileannotation.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/pmc/packfileannotation.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -50,8 +50,7 @@
.end
# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
+# mode: pir
# fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/pmc/packfileannotations.t
==============================================================================
--- branches/boehm_gc_2/t/pmc/packfileannotations.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/pmc/packfileannotations.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -150,8 +150,7 @@
.end
# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
+# mode: pir
# fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/pmc/packfileconstanttable.t
==============================================================================
--- branches/boehm_gc_2/t/pmc/packfileconstanttable.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/pmc/packfileconstanttable.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#!parrot
-# Copyright (C) 2009, Parrot Foundation.
+# Copyright (C) 2009-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -195,8 +195,7 @@
.end
# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
+# mode: pir
# fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/pmc/packfiledirectory.t
==============================================================================
--- branches/boehm_gc_2/t/pmc/packfiledirectory.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/pmc/packfiledirectory.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#! parrot
-# Copyright (C) 2009, Parrot Foundation.
+# Copyright (C) 2009-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -143,8 +143,7 @@
.end
# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
+# mode: pir
# fill-column: 100
# End:
-# vim: expandtab shiftwidth=4:
+# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/pmc/packfilefixupentry.t
==============================================================================
--- branches/boehm_gc_2/t/pmc/packfilefixupentry.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/pmc/packfilefixupentry.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#! parrot
-# Copyright (C) 2009, Parrot Foundation.
+# Copyright (C) 2009-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -82,8 +82,7 @@
.end
# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
+# mode: pir
# fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/pmc/packfilefixuptable.t
==============================================================================
--- branches/boehm_gc_2/t/pmc/packfilefixuptable.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/pmc/packfilefixuptable.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#!parrot
-# Copyright (C) 2009, Parrot Foundation.
+# Copyright (C) 2009-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -62,8 +62,7 @@
.end
# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
+# mode: pir
# fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/pmc/packfilerawsegment.t
==============================================================================
--- branches/boehm_gc_2/t/pmc/packfilerawsegment.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/pmc/packfilerawsegment.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#!parrot
-# Copyright (C) 2009, Parrot Foundation.
+# Copyright (C) 2009-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -110,8 +110,7 @@
# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
+# mode: pir
# fill-column: 100
# End:
-# vim: expandtab shiftwidth=4:
+# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/pmc/packfilesegment.t
==============================================================================
--- branches/boehm_gc_2/t/pmc/packfilesegment.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/pmc/packfilesegment.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#!parrot
-# Copyright (C) 2009, Parrot Foundation.
+# Copyright (C) 2009-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -26,8 +26,7 @@
.end
# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
+# mode: pir
# fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/pmc/parrotinterpreter.t
==============================================================================
--- branches/boehm_gc_2/t/pmc/parrotinterpreter.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/pmc/parrotinterpreter.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -116,8 +116,7 @@
.end
# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
+# mode: pir
# fill-column: 100
# End:
-# vim: expandtab shiftwidth=4:
+# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/pmc/prop.t
==============================================================================
--- branches/boehm_gc_2/t/pmc/prop.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/pmc/prop.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#! parrot
-# Copyright (C) 2001-2005, Parrot Foundation.
+# Copyright (C) 2001-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -134,7 +134,6 @@
# Local Variables:
# mode: pir
-# cperl-indent-level: 4
# fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/pmc/scalar.t
==============================================================================
--- branches/boehm_gc_2/t/pmc/scalar.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/pmc/scalar.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#! parrot
-# Copyright (C) 2006-2007, Parrot Foundation.
+# Copyright (C) 2006-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -26,8 +26,7 @@
.end
# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
+# mode: pir
# fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/pmc/scheduler.t
==============================================================================
--- branches/boehm_gc_2/t/pmc/scheduler.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/pmc/scheduler.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#! parrot
-# Copyright (C) 2007, Parrot Foundation.
+# Copyright (C) 2007-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -116,7 +116,6 @@
# Local Variables:
# mode: pir
-# cperl-indent-level: 4
# fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/pmc/string.t
==============================================================================
--- branches/boehm_gc_2/t/pmc/string.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/pmc/string.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#! parrot
-# Copyright (C) 2001-2008, Parrot Foundation.
+# Copyright (C) 2001-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -1052,8 +1052,7 @@
.end
# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
+# mode: pir
# fill-column: 100
# End:
-# vim: expandtab shiftwidth=4 filetype=pir:
+# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/boehm_gc_2/t/pmc/stringiterator.t
==============================================================================
--- branches/boehm_gc_2/t/pmc/stringiterator.t Tue Feb 23 19:49:15 2010 (r44401)
+++ branches/boehm_gc_2/t/pmc/stringiterator.t Tue Feb 23 19:51:20 2010 (r44402)
@@ -1,5 +1,5 @@
#! parrot
-# Copyright (C) 2001-2008, Parrot Foundation.
+# Copyright (C) 2001-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -97,8 +97,7 @@
.end
# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
+# mode: pir
# fill-column: 100
# End:
-# vim: expandtab shiftwidth=4 filetype=pir:
+# vim: expandtab shiftwidth=4 ft=pir:
More information about the parrot-commits
mailing list