Author: jkeenan
Date: Tue Aug 28 20:04:28 2007
New Revision: 20897
Added:
branches/datadump/src/dynpmc/rational.pmc (props changed)
- copied unchanged from r20895,
/tags/datadump-20894/src/dynpmc/rational.pmc
branches/datadump/t/configure/031_base.t (props changed)
- copied unchanged from r20895,
/tags/datadump-20894/t/configure/031_base.t
branches/datadump/t/configure/032_data.t (contents, props changed)
- copied, changed from r20895, /tags/datadump-20894/t/configure/032_data.t
branches/datadump/t/configure/033_step.t (props changed)
- copied unchanged from r20895,
/tags/datadump-20894/t/configure/033_step.t
branches/datadump/t/configure/034_step.t (props changed)
- copied unchanged from r20895,
/tags/datadump-20894/t/configure/034_step.t
branches/datadump/t/configure/035_step.t (props changed)
- copied unchanged from r20895,
/tags/datadump-20894/t/configure/035_step.t
branches/datadump/t/configure/036_config_steps.t (props changed)
- copied unchanged from r20895,
/tags/datadump-20894/t/configure/036_config_steps.t
branches/datadump/t/configure/105-init_hints.01.t (props changed)
- copied unchanged from r20895,
/tags/datadump-20894/t/configure/105-init_hints.01.t
branches/datadump/t/configure/105-init_hints.02.t (props changed)
- copied unchanged from r20895,
/tags/datadump-20894/t/configure/105-init_hints.02.t
branches/datadump/t/configure/105-init_hints.03.t (props changed)
- copied unchanged from r20895,
/tags/datadump-20894/t/configure/105-init_hints.03.t
branches/datadump/t/configure/107-inter_progs.01.t (props changed)
- copied unchanged from r20895,
/tags/datadump-20894/t/configure/107-inter_progs.01.t
branches/datadump/t/configure/107-inter_progs.02.t (props changed)
- copied unchanged from r20895,
/tags/datadump-20894/t/configure/107-inter_progs.02.t
branches/datadump/t/configure/testlib/Tie/
- copied from r20895, /tags/datadump-20894/t/configure/testlib/Tie/
branches/datadump/t/configure/testlib/Tie/Filehandle/
- copied from r20895,
/tags/datadump-20894/t/configure/testlib/Tie/Filehandle/
branches/datadump/t/configure/testlib/Tie/Filehandle/Preempt/
- copied from r20895,
/tags/datadump-20894/t/configure/testlib/Tie/Filehandle/Preempt/
branches/datadump/t/configure/testlib/Tie/Filehandle/Preempt/Stdin.pm
(props changed)
- copied unchanged from r20895,
/tags/datadump-20894/t/configure/testlib/Tie/Filehandle/Preempt/Stdin.pm
branches/datadump/t/dynpmc/rational.t (props changed)
- copied unchanged from r20895, /tags/datadump-20894/t/dynpmc/rational.t
Removed:
branches/datadump/src/dynpmc/quantumreg.pmc
branches/datadump/t/configure/base.t
branches/datadump/t/configure/config_steps.t
branches/datadump/t/configure/data.t
branches/datadump/t/configure/step.t
branches/datadump/t/dynpmc/quantumreg.t
Modified:
branches/datadump/MANIFEST
branches/datadump/compilers/imcc/optimizer.c
branches/datadump/compilers/imcc/pbc.c
branches/datadump/compilers/past-pm/PAST/Node.pir
branches/datadump/config/gen/makefiles/dynpmc.in
branches/datadump/config/init/hints.pm
branches/datadump/examples/tutorial/22_string_ops_length.pir
branches/datadump/languages/APL/src/pmc/ (props changed)
branches/datadump/languages/WMLScript/pmc/ (props changed)
branches/datadump/languages/cardinal/src/pmc/ (props changed)
branches/datadump/languages/dotnet/ops/ (props changed)
branches/datadump/languages/ecmascript/src/ (props changed)
branches/datadump/languages/lisp/lisp.pir
branches/datadump/languages/lisp/t/arithmetics.t
branches/datadump/languages/lisp/types.pir
branches/datadump/languages/lua/pmc/ (props changed)
branches/datadump/languages/perl5/src/pmc/ (props changed)
branches/datadump/languages/tcl/src/ (props changed)
branches/datadump/lib/Parrot/Configure/Test.pm
branches/datadump/src/debug.c
branches/datadump/src/extend.c
branches/datadump/src/inter_call.c
branches/datadump/src/pmc_freeze.c
branches/datadump/t/configure/002-messages.t
branches/datadump/t/configure/003-steplist.t
branches/datadump/t/configure/004-configure.t
branches/datadump/t/configure/005-run_one_step.t
branches/datadump/t/configure/006-bad_step.t
branches/datadump/t/configure/007-verbose_two.t
branches/datadump/t/configure/008-verbose_step_number.t
branches/datadump/t/configure/009-verbose_step_regex.t
branches/datadump/t/configure/010-verbose_step_number_not_called.t
branches/datadump/t/configure/011-no_description.t
branches/datadump/t/configure/012-verbose.t
branches/datadump/t/configure/013-die.t
branches/datadump/t/configure/014-params.t
branches/datadump/t/configure/015-no_return.t
branches/datadump/t/configure/016-no_return_but_result.t
branches/datadump/t/configure/017-revision_no_DEVELOPING.t
branches/datadump/t/configure/018-revision.t
branches/datadump/t/configure/019-version.t
branches/datadump/t/configure/020-version.t
branches/datadump/t/configure/021-version.t
branches/datadump/t/configure/022-version.t
branches/datadump/t/configure/023-version.t
branches/datadump/t/configure/024-version.t
branches/datadump/t/configure/025-options_test.t
branches/datadump/t/configure/026-options_test.t
branches/datadump/t/configure/027-option_or_data.t
branches/datadump/t/configure/028-option_or_data.t
branches/datadump/t/configure/029-option_or_data.t
branches/datadump/t/configure/030-option_or_data.t
branches/datadump/t/configure/101-init_manifest.01.t
branches/datadump/t/configure/101-init_manifest.02.t
branches/datadump/t/configure/102-init_defaults.01.t
branches/datadump/t/configure/102-init_defaults.02.t
branches/datadump/t/configure/103-init_install.t
branches/datadump/t/configure/104-init_miniparrot.t
branches/datadump/t/configure/106-init_headers.t
branches/datadump/t/examples/shootout.t
branches/datadump/t/op/calling.t
branches/datadump/t/op/cmp-nonbranch.t
branches/datadump/t/op/comp.t
branches/datadump/t/op/gc.t
branches/datadump/t/op/globals.t
branches/datadump/t/op/interp.t
branches/datadump/t/op/jit.t
branches/datadump/t/op/lexicals.t
branches/datadump/t/op/spawnw.t
branches/datadump/t/op/stacks.t
branches/datadump/t/op/string.t
branches/datadump/t/postconfigure/02-data_slurp.t
branches/datadump/t/postconfigure/03-revision_no_DEVELOPING.t
branches/datadump/t/postconfigure/04-revision.t
branches/datadump/t/postconfigure/05-trace.t
branches/datadump/t/postconfigure/06-data_slurp_temp.t
Log:
Refreshing datadump branch with recent submissions to trunk (r20870-20894).
Modified: branches/datadump/MANIFEST
==============================================================================
--- branches/datadump/MANIFEST (original)
+++ branches/datadump/MANIFEST Tue Aug 28 20:04:28 2007
@@ -1,7 +1,7 @@
# ex: set ro:
# $Id$
#
-# generated by tools/dev/mk_manifest_and_skip.pl Sun Aug 26 18:50:56 2007 UT
+# generated by tools/dev/mk_manifest_and_skip.pl Tue Aug 28 12:48:30 2007 UT
#
# See tools/dev/install_files.pl for documentation on the
# format of this file.
@@ -2548,7 +2548,7 @@
src/dynpmc/main.pasm []
src/dynpmc/match.pmc []
src/dynpmc/matchrange.pmc []
-src/dynpmc/quantumreg.pmc []
+src/dynpmc/rational.pmc []
src/dynpmc/rotest.pmc []
src/dynpmc/subproxy.pmc []
src/embed.c []
@@ -2903,18 +2903,26 @@
t/configure/028-option_or_data.t []
t/configure/029-option_or_data.t []
t/configure/030-option_or_data.t []
+t/configure/031_base.t []
+t/configure/032_data.t []
+t/configure/033_step.t []
+t/configure/034_step.t []
+t/configure/035_step.t []
+t/configure/036_config_steps.t []
t/configure/101-init_manifest.01.t []
t/configure/101-init_manifest.02.t []
t/configure/102-init_defaults.01.t []
t/configure/102-init_defaults.02.t []
t/configure/103-init_install.t []
t/configure/104-init_miniparrot.t []
+t/configure/105-init_hints.01.t []
+t/configure/105-init_hints.02.t []
+t/configure/105-init_hints.03.t []
t/configure/106-init_headers.t []
-t/configure/base.t []
-t/configure/config_steps.t []
-t/configure/data.t []
-t/configure/step.t []
+t/configure/107-inter_progs.01.t []
+t/configure/107-inter_progs.02.t []
t/configure/testlib/Make_VERSION_File.pm []
+t/configure/testlib/Tie/Filehandle/Preempt/Stdin.pm []
t/configure/testlib/init/alpha.pm []
t/configure/testlib/init/beta.pm []
t/configure/testlib/init/delta.pm []
@@ -2932,7 +2940,7 @@
t/dynpmc/dynlexpad.t []
t/dynpmc/foo.t []
t/dynpmc/gdbmhash.t []
-t/dynpmc/quantumreg.t []
+t/dynpmc/rational.t []
t/dynpmc/sub.t []
t/dynpmc/subclass_with_pir_method.t []
t/examples/japh.t []
Modified: branches/datadump/compilers/imcc/optimizer.c
==============================================================================
--- branches/datadump/compilers/imcc/optimizer.c (original)
+++ branches/datadump/compilers/imcc/optimizer.c Tue Aug 28 20:04:28 2007
@@ -1088,6 +1088,7 @@
if (found) {
Instruction *tmp;
SymReg *regs[3], *r;
+ int reg_index;
/* cond_op has 2 or 3 args */
PARROT_ASSERT(args <= 3);
@@ -1109,8 +1110,12 @@
regs[count] = cond->r[count];
}
- regs[get_branch_regno(cond)] =
- mk_label_address(interp, str_dup(label));
+ reg_index = get_branch_regno(cond);
+ if (reg_index == -1) {
+ real_exception(interp, NULL, 1,
+ "Negative branch register address detected");
+ }
+ regs[reg_index] = mk_label_address(interp, str_dup(label));
tmp = INS(interp, unit, (const char*)neg_op, "", regs, args, 0, 0);
IMCC_debug(interp, DEBUG_OPT1,
Modified: branches/datadump/compilers/imcc/pbc.c
==============================================================================
--- branches/datadump/compilers/imcc/pbc.c (original)
+++ branches/datadump/compilers/imcc/pbc.c Tue Aug 28 20:04:28 2007
@@ -503,16 +503,14 @@
}
if (!s1) {
int op, col;
- SymReg *nam;
+ SymReg *nam = mk_const(interp, str_dup(fixup->name),
+ fixup->type & VT_ENCODED ? 'U' : 'S');
op = interp->op_lib->op_code("find_name_p_sc", 1);
PARROT_ASSERT(op);
interp->code->base.data[addr] = op;
- nam = mk_const(interp, str_dup(fixup->name),
- fixup->type & VT_ENCODED ? 'U' : 'S');
-
if (nam->color >= 0)
col = nam->color;
else
Modified: branches/datadump/compilers/past-pm/PAST/Node.pir
==============================================================================
--- branches/datadump/compilers/past-pm/PAST/Node.pir (original)
+++ branches/datadump/compilers/past-pm/PAST/Node.pir Tue Aug 28 20:04:28 2007
@@ -332,7 +332,7 @@
=item vtype([value])
Get/set the type of the value (as a Parrot class identifier).
-For example, a string value might use C<.String>, or an
+For example, a string value might use C<'String'>, or an
integer might use a language-specific C<['MyInt']> class.
=cut
Modified: branches/datadump/config/gen/makefiles/dynpmc.in
==============================================================================
--- branches/datadump/config/gen/makefiles/dynpmc.in (original)
+++ branches/datadump/config/gen/makefiles/dynpmc.in Tue Aug 28 20:04:28 2007
@@ -10,8 +10,6 @@
#
# gdbmhash is only built when 'libgdbm.so' is available
#
-# There is no config probe for libquantum yet, so add 'quantumreg' manually if
desired
-#
PMCS = \
dynlexpad \
foo \
@@ -19,6 +17,7 @@
#CONDITIONED_LINE(has_gdbm):gdbmhash \
match \
matchrange \
+ rational \
subproxy
BUILD = $(PERL) @build_dir@/tools/build/dynpmc.pl
Modified: branches/datadump/config/init/hints.pm
==============================================================================
--- branches/datadump/config/init/hints.pm (original)
+++ branches/datadump/config/init/hints.pm Tue Aug 28 20:04:28 2007
@@ -48,13 +48,14 @@
$hints = "init::hints::local";
print "$hints " if $verbose;
eval "use $hints";
+
unless ($@) {
$hints->runstep( $conf, @_ ) if $hints->can('runstep');
$hints_used++;
}
- if ( $hints_used == 0 ) {
- print "(no hints) " if $verbose;
+ if ( $hints_used == 0 and $verbose ) {
+ print "(no hints) ";
}
print "]" if $verbose;
Modified: branches/datadump/examples/tutorial/22_string_ops_length.pir
==============================================================================
--- branches/datadump/examples/tutorial/22_string_ops_length.pir
(original)
+++ branches/datadump/examples/tutorial/22_string_ops_length.pir Tue Aug
28 20:04:28 2007
@@ -1,3 +1,10 @@
+=head1 String Operations (continued)
+
+To find the length of a string in PIR, use the length function.
+
+=cut
+
+
.sub main :main
$S0 = "Hello"
Modified: branches/datadump/languages/lisp/lisp.pir
==============================================================================
--- branches/datadump/languages/lisp/lisp.pir (original)
+++ branches/datadump/languages/lisp/lisp.pir Tue Aug 28 20:04:28 2007
@@ -23,6 +23,11 @@
.const int SESCAPE_CHAR = 5
.const int MESCAPE_CHAR = 6
+.sub _init_common_lisp :init
+ $P1 = loadlib 'rational' # The rational PMC is needed
for 'LispRational'
+.end
+
+
.include 'include/macros.pir'
.include 'types.pir'
.include 'read.pir'
@@ -39,7 +44,7 @@
.local pmc retv # return value of function calls
.local int res
- load_bytecode "PGE.pbc" # Parrot Grammar engine
+ load_bytecode 'PGE.pbc' # Parrot Grammar engine
# compile a couple of regexes that are needed in validate.pir
.local pmc p6rule
Modified: branches/datadump/languages/lisp/t/arithmetics.t
==============================================================================
--- branches/datadump/languages/lisp/t/arithmetics.t (original)
+++ branches/datadump/languages/lisp/t/arithmetics.t Tue Aug 28 20:04:28 2007
@@ -18,7 +18,7 @@
use lib "$FindBin::Bin/../lib", "$FindBin::Bin/../../../lib";
# core Perl modules
-use Test::More tests => 5;
+use Test::More tests => 6;
# Parrot modules
use Parrot::Test;
Modified: branches/datadump/languages/lisp/types.pir
==============================================================================
--- branches/datadump/languages/lisp/types.pir (original)
+++ branches/datadump/languages/lisp/types.pir Tue Aug 28 20:04:28 2007
@@ -42,6 +42,8 @@
addattribute class, "internal"
addattribute class, "name"
+ class = subclass "Rational", "LispRational"
+
class = newclass "LispReadtable"
addattribute class, "table"
addattribute class, "case"
Modified: branches/datadump/lib/Parrot/Configure/Test.pm
==============================================================================
--- branches/datadump/lib/Parrot/Configure/Test.pm (original)
+++ branches/datadump/lib/Parrot/Configure/Test.pm Tue Aug 28 20:04:28 2007
@@ -11,7 +11,7 @@
use Carp;
*ok = *Test::More::ok;
*isa_ok = *Test::More::isa_ok;
-use lib qw( . lib ../lib ../../lib );
+use lib qw( lib );
use Parrot::Configure;
my $stepnum = -1;
Modified: branches/datadump/src/debug.c
==============================================================================
--- branches/datadump/src/debug.c (original)
+++ branches/datadump/src/debug.c Tue Aug 28 20:04:28 2007
@@ -925,7 +925,12 @@
/* Allocate the new break point */
newbreak = mem_allocate_typed(PDB_breakpoint_t);
- skip_command(command);
+ if (command) {
+ skip_command(command);
+ }
+ else {
+ real_exception(interp, NULL, 1, "NULL command passed to
PDB_set_break");
+ }
condition = NULL;
/* if there is another argument to break, besides the line number,
Modified: branches/datadump/src/extend.c
==============================================================================
--- branches/datadump/src/extend.c (original)
+++ branches/datadump/src/extend.c Tue Aug 28 20:04:28 2007
@@ -84,7 +84,7 @@
FUNCDOC: Parrot_PMC_get_pointer_intkey
-Return the keyed, signed integer value of the value in the PMC.
+Return a pointer to the PMC indicated by an integer key.
*/
Modified: branches/datadump/src/inter_call.c
==============================================================================
--- branches/datadump/src/inter_call.c (original)
+++ branches/datadump/src/inter_call.c Tue Aug 28 20:04:28 2007
@@ -1463,6 +1463,10 @@
arg_ret_cnt[seen_arrow]++;
max_regs[REGNO_PMC]++;
}
+ else {
+ real_exception(interp, NULL, 1,
+ "NULL PMC passed into Parrot_PCCINVOKE");
+ }
/* first loop through signature to get sizing info */
for (x = signature; *x != '\0'; x++) {
Modified: branches/datadump/src/pmc_freeze.c
==============================================================================
--- branches/datadump/src/pmc_freeze.c (original)
+++ branches/datadump/src/pmc_freeze.c Tue Aug 28 20:04:28 2007
@@ -1425,6 +1425,10 @@
again:
for (; (int)list_length(interp, todo);) {
current = *(PMC**)list_shift(interp, todo, enum_type_PMC);
+ if (!current) {
+ real_exception(interp, NULL, 1,
+ "NULL current PMC in visit_loop_todo_list");
+ }
VTABLE_visit(interp, current, info);
if (thawing) {
if (current == info->thaw_result)
Modified: branches/datadump/t/configure/002-messages.t
==============================================================================
--- branches/datadump/t/configure/002-messages.t (original)
+++ branches/datadump/t/configure/002-messages.t Tue Aug 28 20:04:28 2007
@@ -7,7 +7,7 @@
use warnings;
use Carp;
use Test::More tests => 10;
-use lib qw( . lib ../lib ../../lib );
+use lib qw( lib );
use_ok(
'Parrot::Configure::Messages', qw|
print_introduction
Modified: branches/datadump/t/configure/003-steplist.t
==============================================================================
--- branches/datadump/t/configure/003-steplist.t (original)
+++ branches/datadump/t/configure/003-steplist.t Tue Aug 28 20:04:28 2007
@@ -7,7 +7,7 @@
use warnings;
use Test::More tests => 4;
use Carp;
-use lib qw( . lib ../lib ../../lib );
+use lib qw( lib );
use_ok('Parrot::Configure::Step::List', qw|
get_steps_list
| );
Modified: branches/datadump/t/configure/004-configure.t
==============================================================================
--- branches/datadump/t/configure/004-configure.t (original)
+++ branches/datadump/t/configure/004-configure.t Tue Aug 28 20:04:28 2007
@@ -8,7 +8,7 @@
use Test::More tests => 30;
use Carp;
-use lib qw( . lib ../lib ../../lib );
+use lib qw( lib );
use Parrot::Configure;
use Parrot::Configure::Options qw( process_options );
use_ok('Parrot::Configure::Step::List', qw|
Modified: branches/datadump/t/configure/005-run_one_step.t
==============================================================================
--- branches/datadump/t/configure/005-run_one_step.t (original)
+++ branches/datadump/t/configure/005-run_one_step.t Tue Aug 28 20:04:28 2007
@@ -8,7 +8,7 @@
use Test::More tests => 22;
use Carp;
-use lib qw( . lib ../lib ../../lib t/configure/testlib );
+use lib qw( lib t/configure/testlib );
use Parrot::Configure;
use Parrot::Configure::Options qw( process_options );
use Parrot::IO::Capture::Mini;
Modified: branches/datadump/t/configure/006-bad_step.t
==============================================================================
--- branches/datadump/t/configure/006-bad_step.t (original)
+++ branches/datadump/t/configure/006-bad_step.t Tue Aug 28 20:04:28 2007
@@ -8,7 +8,7 @@
use Test::More tests => 12;
use Carp;
-use lib qw( . lib ../lib ../../lib );
+use lib qw( lib );
use Parrot::Configure;
use Parrot::Configure::Options qw( process_options );
use Parrot::IO::Capture::Mini;
Modified: branches/datadump/t/configure/007-verbose_two.t
==============================================================================
--- branches/datadump/t/configure/007-verbose_two.t (original)
+++ branches/datadump/t/configure/007-verbose_two.t Tue Aug 28 20:04:28 2007
@@ -8,7 +8,7 @@
use Test::More tests => 13;
use Carp;
-use lib qw( . lib ../lib ../../lib t/configure/testlib );
+use lib qw( lib t/configure/testlib );
use Parrot::Configure;
use Parrot::Configure::Options qw( process_options );
use Parrot::IO::Capture::Mini;
Modified: branches/datadump/t/configure/008-verbose_step_number.t
==============================================================================
--- branches/datadump/t/configure/008-verbose_step_number.t (original)
+++ branches/datadump/t/configure/008-verbose_step_number.t Tue Aug 28
20:04:28 2007
@@ -8,7 +8,7 @@
use Test::More tests => 13;
use Carp;
-use lib qw( . lib ../lib ../../lib t/configure/testlib );
+use lib qw( lib t/configure/testlib );
use Parrot::Configure;
use Parrot::Configure::Options qw( process_options );
use Parrot::IO::Capture::Mini;
Modified: branches/datadump/t/configure/009-verbose_step_regex.t
==============================================================================
--- branches/datadump/t/configure/009-verbose_step_regex.t (original)
+++ branches/datadump/t/configure/009-verbose_step_regex.t Tue Aug 28
20:04:28 2007
@@ -8,7 +8,7 @@
use Test::More tests => 13;
use Carp;
-use lib qw( . lib ../lib ../../lib t/configure/testlib );
+use lib qw( lib t/configure/testlib );
use Parrot::Configure;
use Parrot::Configure::Options qw( process_options );
use Parrot::IO::Capture::Mini;
Modified: branches/datadump/t/configure/010-verbose_step_number_not_called.t
==============================================================================
--- branches/datadump/t/configure/010-verbose_step_number_not_called.t
(original)
+++ branches/datadump/t/configure/010-verbose_step_number_not_called.t Tue Aug
28 20:04:28 2007
@@ -8,7 +8,7 @@
use Test::More tests => 13;
use Carp;
-use lib qw( . lib ../lib ../../lib t/configure/testlib );
+use lib qw( lib t/configure/testlib );
use Parrot::Configure;
use Parrot::Configure::Options qw( process_options );
use Parrot::IO::Capture::Mini;
Modified: branches/datadump/t/configure/011-no_description.t
==============================================================================
--- branches/datadump/t/configure/011-no_description.t (original)
+++ branches/datadump/t/configure/011-no_description.t Tue Aug 28 20:04:28 2007
@@ -8,7 +8,7 @@
use Test::More tests => 13;
use Carp;
-use lib qw( . lib ../lib ../../lib t/configure/testlib );
+use lib qw( lib t/configure/testlib );
use Parrot::Configure;
use Parrot::Configure::Options qw( process_options );
use Parrot::IO::Capture::Mini;
Modified: branches/datadump/t/configure/012-verbose.t
==============================================================================
--- branches/datadump/t/configure/012-verbose.t (original)
+++ branches/datadump/t/configure/012-verbose.t Tue Aug 28 20:04:28 2007
@@ -8,7 +8,7 @@
use Test::More tests => 13;
use Carp;
-use lib qw( . lib ../lib ../../lib t/configure/testlib );
+use lib qw( lib t/configure/testlib );
use Parrot::Configure;
use Parrot::Configure::Options qw( process_options );
use Parrot::IO::Capture::Mini;
Modified: branches/datadump/t/configure/013-die.t
==============================================================================
--- branches/datadump/t/configure/013-die.t (original)
+++ branches/datadump/t/configure/013-die.t Tue Aug 28 20:04:28 2007
@@ -8,7 +8,7 @@
use Test::More tests => 13;
use Carp;
-use lib qw( . lib ../lib ../../lib t/configure/testlib );
+use lib qw( lib t/configure/testlib );
use Parrot::Configure;
use Parrot::Configure::Options qw( process_options );
use Parrot::IO::Capture::Mini;
Modified: branches/datadump/t/configure/014-params.t
==============================================================================
--- branches/datadump/t/configure/014-params.t (original)
+++ branches/datadump/t/configure/014-params.t Tue Aug 28 20:04:28 2007
@@ -8,7 +8,7 @@
use Test::More tests => 13;
use Carp;
-use lib qw( . lib ../lib ../../lib t/configure/testlib );
+use lib qw( lib t/configure/testlib );
use Parrot::Configure;
use Parrot::Configure::Options qw( process_options );
use Parrot::IO::Capture::Mini;
Modified: branches/datadump/t/configure/015-no_return.t
==============================================================================
--- branches/datadump/t/configure/015-no_return.t (original)
+++ branches/datadump/t/configure/015-no_return.t Tue Aug 28 20:04:28 2007
@@ -8,7 +8,7 @@
use Test::More tests => 14;
use Carp;
-use lib qw( . lib ../lib ../../lib t/configure/testlib );
+use lib qw( lib t/configure/testlib );
use Parrot::Configure;
use Parrot::Configure::Options qw( process_options );
use Parrot::IO::Capture::Mini;
Modified: branches/datadump/t/configure/016-no_return_but_result.t
==============================================================================
--- branches/datadump/t/configure/016-no_return_but_result.t (original)
+++ branches/datadump/t/configure/016-no_return_but_result.t Tue Aug 28
20:04:28 2007
@@ -8,7 +8,7 @@
use Test::More tests => 11;
use Carp;
-use lib qw( . lib ../lib ../../lib t/configure/testlib );
+use lib qw( lib t/configure/testlib );
use Parrot::Configure;
use Parrot::Configure::Options qw( process_options );
use Parrot::IO::Capture::Mini;
Modified: branches/datadump/t/configure/017-revision_no_DEVELOPING.t
==============================================================================
--- branches/datadump/t/configure/017-revision_no_DEVELOPING.t (original)
+++ branches/datadump/t/configure/017-revision_no_DEVELOPING.t Tue Aug 28
20:04:28 2007
@@ -11,7 +11,7 @@
use_ok( 'Cwd' );
use_ok( 'File::Copy' );
use_ok( 'File::Temp', qw| tempdir | );
-use lib qw( . lib ../lib ../../lib );
+use lib qw( lib );
my ($current, $config);
Modified: branches/datadump/t/configure/018-revision.t
==============================================================================
--- branches/datadump/t/configure/018-revision.t (original)
+++ branches/datadump/t/configure/018-revision.t Tue Aug 28 20:04:28 2007
@@ -11,7 +11,7 @@
use_ok( 'Cwd' );
use_ok( 'File::Copy' );
use_ok( 'File::Temp', qw| tempdir | );
-use lib qw( . lib ../lib ../../lib );
+use lib qw( lib );
use Parrot::Revision;
my ($current, $config);
Modified: branches/datadump/t/configure/019-version.t
==============================================================================
--- branches/datadump/t/configure/019-version.t (original)
+++ branches/datadump/t/configure/019-version.t Tue Aug 28 20:04:28 2007
@@ -11,7 +11,7 @@
use_ok( 'Cwd' );
use_ok( 'File::Copy' );
use_ok( 'File::Temp', qw| tempdir | );
-use lib qw( . lib ../lib ../../lib );
+use lib qw( lib );
use Parrot::BuildUtil;
my $cwd = cwd();
Modified: branches/datadump/t/configure/020-version.t
==============================================================================
--- branches/datadump/t/configure/020-version.t (original)
+++ branches/datadump/t/configure/020-version.t Tue Aug 28 20:04:28 2007
@@ -11,7 +11,7 @@
use_ok( 'Cwd' );
use_ok( 'File::Copy' );
use_ok( 'File::Temp', qw| tempdir | );
-use lib qw( . lib ../lib ../../lib t/configure/testlib );
+use lib qw( lib t/configure/testlib );
use Parrot::BuildUtil;
use_ok( 'Make_VERSION_File', qw| make_VERSION_file |);
Modified: branches/datadump/t/configure/021-version.t
==============================================================================
--- branches/datadump/t/configure/021-version.t (original)
+++ branches/datadump/t/configure/021-version.t Tue Aug 28 20:04:28 2007
@@ -11,7 +11,7 @@
use_ok( 'Cwd' );
use_ok( 'File::Copy' );
use_ok( 'File::Temp', qw| tempdir | );
-use lib qw( . lib ../lib ../../lib t/configure/testlib );
+use lib qw( lib t/configure/testlib );
use Parrot::BuildUtil;
use_ok( 'Make_VERSION_File', qw| make_VERSION_file |);
Modified: branches/datadump/t/configure/022-version.t
==============================================================================
--- branches/datadump/t/configure/022-version.t (original)
+++ branches/datadump/t/configure/022-version.t Tue Aug 28 20:04:28 2007
@@ -11,7 +11,7 @@
use_ok( 'Cwd' );
use_ok( 'File::Copy' );
use_ok( 'File::Temp', qw| tempdir | );
-use lib qw( . lib ../lib ../../lib t/configure/testlib );
+use lib qw( lib t/configure/testlib );
use Parrot::BuildUtil;
use_ok( 'Make_VERSION_File', qw| make_VERSION_file |);
Modified: branches/datadump/t/configure/023-version.t
==============================================================================
--- branches/datadump/t/configure/023-version.t (original)
+++ branches/datadump/t/configure/023-version.t Tue Aug 28 20:04:28 2007
@@ -11,7 +11,7 @@
use_ok( 'Cwd' );
use_ok( 'File::Copy' );
use_ok( 'File::Temp', qw| tempdir | );
-use lib qw( . lib ../lib ../../lib t/configure/testlib );
+use lib qw( lib t/configure/testlib );
use Parrot::BuildUtil;
use_ok( 'Make_VERSION_File', qw| make_VERSION_file |);
Modified: branches/datadump/t/configure/024-version.t
==============================================================================
--- branches/datadump/t/configure/024-version.t (original)
+++ branches/datadump/t/configure/024-version.t Tue Aug 28 20:04:28 2007
@@ -11,7 +11,7 @@
use_ok( 'Cwd' );
use_ok( 'File::Copy' );
use_ok( 'File::Temp', qw| tempdir | );
-use lib qw( . lib ../lib ../../lib t/configure/testlib );
+use lib qw( lib t/configure/testlib );
use Parrot::BuildUtil;
use_ok( 'Make_VERSION_File', qw| make_VERSION_file |);
Modified: branches/datadump/t/configure/025-options_test.t
==============================================================================
--- branches/datadump/t/configure/025-options_test.t (original)
+++ branches/datadump/t/configure/025-options_test.t Tue Aug 28 20:04:28 2007
@@ -10,7 +10,7 @@
use Data::Dumper;
use File::Temp qw( tempdir );
use Test::More tests => 10;
-use lib qw( . lib ../lib ../../lib );
+use lib qw( lib );
use_ok('Parrot::IO::Capture::Mini');
use_ok(
'Parrot::Configure::Options', qw|
Modified: branches/datadump/t/configure/026-options_test.t
==============================================================================
--- branches/datadump/t/configure/026-options_test.t (original)
+++ branches/datadump/t/configure/026-options_test.t Tue Aug 28 20:04:28 2007
@@ -10,7 +10,7 @@
use Data::Dumper;
use File::Temp qw( tempdir );
use Test::More tests => 14;
-use lib qw( . lib ../lib ../../lib );
+use lib qw( lib );
use_ok('Parrot::IO::Capture::Mini');
use_ok(
'Parrot::Configure::Options', qw|
Modified: branches/datadump/t/configure/027-option_or_data.t
==============================================================================
--- branches/datadump/t/configure/027-option_or_data.t (original)
+++ branches/datadump/t/configure/027-option_or_data.t Tue Aug 28 20:04:28 2007
@@ -8,7 +8,7 @@
use Test::More tests => 8;
use Carp;
-use lib qw( . lib ../lib ../../lib );
+use lib qw( lib );
use Parrot::Configure;
use Parrot::Configure::Options qw( process_options );
use_ok('Parrot::Configure::Step::List', qw|
Modified: branches/datadump/t/configure/028-option_or_data.t
==============================================================================
--- branches/datadump/t/configure/028-option_or_data.t (original)
+++ branches/datadump/t/configure/028-option_or_data.t Tue Aug 28 20:04:28 2007
@@ -8,7 +8,7 @@
use Test::More tests => 25;
use Carp;
-use lib qw( . lib ../lib ../../lib );
+use lib qw( lib );
use_ok('config::init::defaults');
use_ok('config::init::install');
use_ok('config::init::hints');
Modified: branches/datadump/t/configure/029-option_or_data.t
==============================================================================
--- branches/datadump/t/configure/029-option_or_data.t (original)
+++ branches/datadump/t/configure/029-option_or_data.t Tue Aug 28 20:04:28 2007
@@ -8,7 +8,7 @@
use Test::More tests => 25;
use Carp;
-use lib qw( . lib ../lib ../../lib );
+use lib qw( lib );
use_ok('config::init::defaults');
use_ok('config::init::install');
use_ok('config::init::hints');
@@ -56,8 +56,11 @@
$ret = $step->runstep($conf);
ok(defined $ret, "$step_name runstep() returned defined value");
-my $val = $conf->option_or_data('cc');
-is($val, $CC, 'option_or_data() returned expected value');
+TODO: {
+ local $TODO = 'not working for all C compilers';
+ my $val = $conf->option_or_data('cc');
+ is($val, $CC, 'option_or_data() returned expected value');
+}
pass("Completed all tests in $0");
Modified: branches/datadump/t/configure/030-option_or_data.t
==============================================================================
--- branches/datadump/t/configure/030-option_or_data.t (original)
+++ branches/datadump/t/configure/030-option_or_data.t Tue Aug 28 20:04:28 2007
@@ -8,7 +8,7 @@
use Test::More tests => 7;
use Carp;
-use lib qw( . lib ../lib ../../lib t/configure/testlib );
+use lib qw( lib t/configure/testlib );
use Parrot::Configure;
use Parrot::Configure::Options qw( process_options );
use Parrot::Configure::Test qw( test_step_thru_runstep);
Copied: branches/datadump/t/configure/032_data.t (from r20895,
/tags/datadump-20894/t/configure/032_data.t)
==============================================================================
--- /tags/datadump-20894/t/configure/032_data.t (original)
+++ branches/datadump/t/configure/032_data.t Tue Aug 28 20:04:28 2007
@@ -164,7 +164,7 @@
{
my $pcd = Parrot::Configure::Data->new;
- my $data = $pcd->dump;
+ my $data = $pcd->dump(q{c}, q{*PConfig});
like( $data, qr/\%PConfig = \(\);/, "->dump() returns nothing if no keys
are set" );
}
@@ -178,7 +178,8 @@
'b' => 2,
'c' => 3,
);
- my $data = $pcd->dump;
+ my $data = $pcd->dump(q{c}, q{*PConfig});
+
like(
$data,
Modified: branches/datadump/t/configure/101-init_manifest.01.t
==============================================================================
--- branches/datadump/t/configure/101-init_manifest.01.t (original)
+++ branches/datadump/t/configure/101-init_manifest.01.t Tue Aug 28
20:04:28 2007
@@ -8,7 +8,7 @@
use Test::More tests => 7;
use Carp;
use Data::Dumper;
-use lib qw( . lib ../lib ../../lib );
+use lib qw( lib );
use_ok('config::init::manifest');
use Parrot::Configure;
use Parrot::Configure::Options qw( process_options );
Modified: branches/datadump/t/configure/101-init_manifest.02.t
==============================================================================
--- branches/datadump/t/configure/101-init_manifest.02.t (original)
+++ branches/datadump/t/configure/101-init_manifest.02.t Tue Aug 28
20:04:28 2007
@@ -11,7 +11,7 @@
use Data::Dumper;
use File::Copy;
use File::Temp qw(tempdir);
-use lib qw( . lib ../lib ../../lib );
+use lib qw( lib );
use_ok('config::init::manifest');
use Parrot::Configure;
use Parrot::Configure::Options qw( process_options );
Modified: branches/datadump/t/configure/102-init_defaults.01.t
==============================================================================
--- branches/datadump/t/configure/102-init_defaults.01.t (original)
+++ branches/datadump/t/configure/102-init_defaults.01.t Tue Aug 28
20:04:28 2007
@@ -8,7 +8,7 @@
use Test::More tests => 6;
use Carp;
use Data::Dumper;
-use lib qw( . lib ../lib ../../lib );
+use lib qw( lib );
use_ok('config::init::defaults');
use Parrot::Configure;
use Parrot::Configure::Options qw( process_options );
Modified: branches/datadump/t/configure/102-init_defaults.02.t
==============================================================================
--- branches/datadump/t/configure/102-init_defaults.02.t (original)
+++ branches/datadump/t/configure/102-init_defaults.02.t Tue Aug 28
20:04:28 2007
@@ -10,7 +10,7 @@
use_ok( 'Cwd' );
use_ok( 'File::Copy' );
use_ok( 'File::Temp', qw| tempdir | );
-use lib qw( . lib ../lib ../../lib );
+use lib qw( lib );
use_ok('config::init::defaults');
use Parrot::Configure;
use Parrot::Configure::Step;
Modified: branches/datadump/t/configure/103-init_install.t
==============================================================================
--- branches/datadump/t/configure/103-init_install.t (original)
+++ branches/datadump/t/configure/103-init_install.t Tue Aug 28 20:04:28 2007
@@ -10,7 +10,7 @@
use Cwd;
use Data::Dumper;
use File::Temp qw(tempdir);
-use lib qw( . lib ../lib ../../lib t/configure/testlib );
+use lib qw( lib t/configure/testlib );
use Parrot::Configure;
use Parrot::Configure::Options qw( process_options );
use_ok('config::init::install');
Modified: branches/datadump/t/configure/104-init_miniparrot.t
==============================================================================
--- branches/datadump/t/configure/104-init_miniparrot.t (original)
+++ branches/datadump/t/configure/104-init_miniparrot.t Tue Aug 28 20:04:28 2007
@@ -7,7 +7,7 @@
use warnings;
use Test::More tests => 22;
use Carp;
-use lib qw( . lib ../lib ../../lib t/configure/testlib );
+use lib qw( lib t/configure/testlib );
use_ok('config::init::defaults');
use_ok('config::init::miniparrot');
use Parrot::Configure;
Modified: branches/datadump/t/configure/106-init_headers.t
==============================================================================
--- branches/datadump/t/configure/106-init_headers.t (original)
+++ branches/datadump/t/configure/106-init_headers.t Tue Aug 28 20:04:28 2007
@@ -7,7 +7,7 @@
use warnings;
use Test::More tests => 2;
use Carp;
-use lib qw( . lib ../lib ../../lib );
+use lib qw( lib );
use_ok('config::init::headers');
Modified: branches/datadump/t/examples/shootout.t
==============================================================================
--- branches/datadump/t/examples/shootout.t (original)
+++ branches/datadump/t/examples/shootout.t Tue Aug 28 20:04:28 2007
@@ -13,7 +13,7 @@
BEGIN { # to be run before declaring the number of tests
$EXT = '.output';
$DIR = "examples/shootout";
- opendir( DIR, $DIR ) or die "can’t opendir $DIR: $!";
+ opendir( DIR, $DIR ) or die "can't opendir $DIR: $!";
@shootouts = grep { -e "$DIR/$_$EXT" } sort grep { /\.pir$/ } readdir(DIR);
closedir DIR;
}
@@ -102,7 +102,8 @@
$ENV{TEST_PROG_ARGS} = $args;
warn "$file $args\n" if $ENV{TEST_VERBOSE};
my @todo;
- @todo = ( todo => 'known GC segfault' ) if $file =~ /regexdna.pir/;
+ # this is an example of todo syntax
+ # @todo = ( todo => 'known GC segfault' ) if $file =~ /regexdna.pir/;
example_output_is( $file, $expected, @todo );
}
Modified: branches/datadump/t/op/calling.t
==============================================================================
--- branches/datadump/t/op/calling.t (original)
+++ branches/datadump/t/op/calling.t Tue Aug 28 20:04:28 2007
@@ -143,7 +143,7 @@
set I16, 77
set N16, 2.3
set S16, "ok 1\n"
- new P16, .Integer
+ new P16, 'Integer'
set P16, 101
set_args "(0, 0, 0, 0, 0, 0, 0)", 42, I16, 4.5, N16, S16, "ok 2\n", P16
get_results "(0, 0, 0, 0)", I16, N16, S16, P16
@@ -173,7 +173,7 @@
set I16, 88
set N16, 5.5
set S16, "ok 3\n"
- new P16, .String
+ new P16, 'String'
set P16, "ok 4\n"
set_returns "(0, 0, 0, 0)", I16, N16, S16, P16
returncc
@@ -193,13 +193,13 @@
pasm_output_is( <<'CODE', <<'OUTPUT', "flatten arg" );
.pcc_sub main:
- new P16, .String
+ new P16, 'String'
set P16, "ok 1\n"
- new P17, .ResizablePMCArray
+ new P17, 'ResizablePMCArray'
push P17, "ok 2\n"
push P17, "ok 3\n"
push P17, "ok 4\n"
- new P18, .String
+ new P18, 'String'
set P18, "ok 5\n"
set_args "(0, 0x20, 0)", P16, P17, P18
find_name P1, "foo"
@@ -225,11 +225,11 @@
pasm_output_is( <<'CODE', <<'OUTPUT', "slurpy param" );
.pcc_sub main:
- new P16, .String
+ new P16, 'String'
set P16, "ok 1\n"
- new P17, .String
+ new P17, 'String'
set P17, "ok 2\n"
- new P18, .String
+ new P18, 'String'
set P18, "ok 3\n"
set_args "(0, 0, 0)", P16, P17, P18
find_name P1, "foo"
@@ -274,23 +274,23 @@
pasm_output_is( <<'CODE', <<'OUTPUT', "flatten + slurpy param" );
.pcc_sub main:
- new P16, .String
+ new P16, 'String'
set P16, "ok 1\n"
- new P19, .ResizablePMCArray
- new P17, .String
+ new P19, 'ResizablePMCArray'
+ new P17, 'String'
set P17, "ok 2\n"
push P19, P17
- new P18, .String
+ new P18, 'String'
set P18, "ok 3\n"
push P19, P18
- new P20, .ResizablePMCArray
- new P17, .String
+ new P20, 'ResizablePMCArray'
+ new P17, 'String'
set P17, "ok 4\n"
push P20, P17
- new P18, .String
+ new P18, 'String'
set P18, "ok 5\n"
push P20, P18
- new P21, .String
+ new P21, 'String'
set P21, "ok 6\n"
set_args "(0, 0x20, 0x20, 0)", P16, P19, P20, P21
find_name P1, "foo"
@@ -1720,7 +1720,7 @@
pasm_output_is( <<'CODE', <<'OUTPUT', "named - 2 flatten" );
.pcc_sub main:
- new P0, .Hash
+ new P0, 'Hash'
set P0['a'], 20
set P0['b'], 10
set_args "(0x220)", P0 # :flatten :named
Modified: branches/datadump/t/op/cmp-nonbranch.t
==============================================================================
--- branches/datadump/t/op/cmp-nonbranch.t (original)
+++ branches/datadump/t/op/cmp-nonbranch.t Tue Aug 28 20:04:28 2007
@@ -1155,8 +1155,8 @@
cmp I2, -2.4, N0
set S0, "Bruhaha"
cmp I3, S0, "Crumbum"
- new P0, .Integer
- new P1, .Integer
+ new P0, 'Integer'
+ new P1, 'Integer'
set P0, 452
set P1, -15
cmp I4, P0, P1
Modified: branches/datadump/t/op/comp.t
==============================================================================
--- branches/datadump/t/op/comp.t (original)
+++ branches/datadump/t/op/comp.t Tue Aug 28 20:04:28 2007
@@ -158,9 +158,9 @@
OUTPUT
pasm_output_is( <<'CODE', <<OUTPUT, "eq_num" );
- new P0, .Float
+ new P0, 'Float'
set P0, -1.2
- new P1, .String
+ new P1, 'String'
set P1, "-1.2"
eq_num P0, P1, OK
print "not "
Modified: branches/datadump/t/op/gc.t
==============================================================================
--- branches/datadump/t/op/gc.t (original)
+++ branches/datadump/t/op/gc.t Tue Aug 28 20:04:28 2007
@@ -43,7 +43,7 @@
pasm_output_is( <<'CODE', '1', "sweep 0, with object that need destroy" );
interpinfo I1, 2 # How many DOD runs have we done already?
- new P0, .Undef
+ new P0, 'Undef'
needs_destroy P0
sweep 0
interpinfo I2, 2 # Should be one more now
@@ -54,9 +54,9 @@
pasm_output_is( <<'CODE', '10', "sweep 0, with object that need
destroy/destroy" );
interpinfo I1, 2 # How many DOD runs have we done already?
- new P0, .Undef
+ new P0, 'Undef'
needs_destroy P0
- new P0, .Undef # kill object
+ new P0, 'Undef' # kill object
sweep 0
interpinfo I2, 2 # Should be one more now
sub I3, I2, I1
@@ -129,7 +129,7 @@
sweepoff
set I0, 0
-LOOP: new P0, .String
+LOOP: new P0, 'String'
set P0, "ABC"
save P0
inc I0
@@ -157,14 +157,14 @@
end
.pcc_sub _rand:
- new P16, .Random
+ new P16, 'Random'
set I5, P16[10]
gt I5, 10, err
lt I5, 0, err
returncc
err:
print "singleton destroyed .Random = ."
- new P16, .Random
+ new P16, 'Random'
typeof S16, P16
print S16
print "\n"
@@ -188,7 +188,7 @@
.sub init :vtable :method
print "init\n"
sweep 1
- new P6, .String
+ new P6, 'String'
set P6, "hi"
self."do_inc"()
sweep 1
@@ -232,7 +232,7 @@
unless_null P12, buffer_ok
find_type I12, "Source::Buffer"
new P12, I12
- new P14, .String
+ new P14, 'String'
set P14, "hello\n"
setprop P12, "buf", P14
setprop P2, "buffer", P12
@@ -328,10 +328,10 @@
lp3:
null I0
set I1, 1000
- new P1, .ResizablePMCArray
+ new P1, 'ResizablePMCArray'
lp1:
- new P2, .ResizablePMCArray
- new P0, .Integer
+ new P2, 'ResizablePMCArray'
+ new P0, 'Integer'
set P0, I0
set P2[0], P0
set P1[I0], P2
@@ -340,8 +340,8 @@
# force marking past P2[0]
sweep 0
not_0:
- new P3, .Undef
- new P4, .Undef
+ new P3, 'Undef'
+ new P4, 'Undef'
inc I0
lt I0, I1, lp1
@@ -380,23 +380,23 @@
lp3:
null I0
set I1, 100
- new P1, .Hash
+ new P1, 'Hash'
lp1:
- new P2, .Hash
- new P0, .Integer
+ new P2, 'Hash'
+ new P0, 'Integer'
set P0, I0
set S0, I0
set P2["first"], P0
set P1[S0], P2
if I0, not_0
- new P0, .Integer
+ new P0, 'Integer'
needs_destroy P0
null P0
# force full sweep
sweep 0
not_0:
- new P3, .Undef
- new P4, .Undef
+ new P3, 'Undef'
+ new P4, 'Undef'
inc I0
lt I0, I1, lp1
@@ -436,33 +436,33 @@
lp3:
null I0
set I1, 100
- new P5, .Ref
- new P0, .Integer
+ new P5, 'Ref'
+ new P0, 'Integer'
needs_destroy P0
# force partial sweep
# ref should now be black
sweep 0
# store white hash in ref - needs a barrier
- new P1, .Hash
+ new P1, 'Hash'
setref P5, P1
null P1
- new P0, .Integer
+ new P0, 'Integer'
needs_destroy P0
null P0
# force full sweep
sweep 0
deref P1, P5
lp1:
- new P0, .Integer
- new P2, .Ref, P0
+ new P0, 'Integer'
+ new P2, 'Ref', P0
set P0, I0
set S0, I0
set P1[S0], P2
if I0, not_0
- new P0, .Integer
+ new P0, 'Integer'
not_0:
- new P3, .Undef
- new P4, .Undef
+ new P3, 'Undef'
+ new P4, 'Undef'
inc I0
lt I0, I1, lp1
@@ -504,33 +504,33 @@
lp3:
null I0
set I1, 10
- new P5, .TQueue
- new P0, .Integer
+ new P5, 'TQueue'
+ new P0, 'Integer'
needs_destroy P0
# force partial sweep
# P5 should now be black
sweep 0
# store white queue P1 in black P5 - needs a barrier
- new P1, .TQueue
+ new P1, 'TQueue'
push P5, P1
null P1
- new P0, .Integer
+ new P0, 'Integer'
needs_destroy P0
# force sweep
sweep 0
shift P1, P5
push P5, P1
lp1:
- new P0, .Integer
+ new P0, 'Integer'
needs_destroy P0
# force sweep
sweep 0
set P0, I0
- new P2, .TQueue
+ new P2, 'TQueue'
push P2, P0
push P1, P2
- new P3, .Undef
- new P4, .Undef
+ new P3, 'Undef'
+ new P4, 'Undef'
inc I0
lt I0, I1, lp1
@@ -707,14 +707,14 @@
OUTPUT
pasm_output_is( <<'CODE', <<'OUT', "reg_stack marking" );
-new P1, .Integer
+new P1, 'Integer'
set P1, 0
-new P3, .Integer
+new P3, 'Integer'
set P3, 0
-new P4, .Integer
+new P4, 'Integer'
set P4, 50
-new P6, .Integer
-new P7, .Integer
+new P6, 'Integer'
+new P7, 'Integer'
LOOP:
save P1
@@ -744,25 +744,25 @@
sweep 1
restore P5
lt P5,1,ret0
-new P6, .Integer
+new P6, 'Integer'
assign P6,P5
dec P6
NLOOP:
le P6, 1, ret1
-new P7, .Integer
+new P7, 'Integer'
cmod P7, P5, P6
eq P7, 0, ret0
dec P6
branch NLOOP
# is prime
ret1:
- new P0, .Integer
+ new P0, 'Integer'
set P0, 1
save P0
restoreall
ret
ret0:
- new P0, .Integer
+ new P0, 'Integer'
set P0, 0
save P0
restoreall
Modified: branches/datadump/t/op/globals.t
==============================================================================
--- branches/datadump/t/op/globals.t (original)
+++ branches/datadump/t/op/globals.t Tue Aug 28 20:04:28 2007
@@ -25,8 +25,8 @@
=cut
pasm_output_is( <<'CODE', '12', "set/get" );
- new P0, .Integer
- new P1, .Integer
+ new P0, 'Integer'
+ new P1, 'Integer'
set P0, 12
set P1, 7
set_global "Integer", P0
@@ -93,8 +93,8 @@
#----------------------------------------------------------------
pasm_output_is( <<'CODE', '12', "Fetch and store" );
- new P0, .Integer
- new P1, .Integer
+ new P0, 'Integer'
+ new P1, 'Integer'
set P0, 12
set P1, 7
store_global "Integer", P0
Modified: branches/datadump/t/op/interp.t
==============================================================================
--- branches/datadump/t/op/interp.t (original)
+++ branches/datadump/t/op/interp.t Tue Aug 28 20:04:28 2007
@@ -28,7 +28,7 @@
skip( "we really shouldn't run just a label - use a sub", 1 );
pasm_output_is( <<'CODE', <<'OUTPUT', "runinterp - new style" );
- new P0, .ParrotInterpreter
+ new P0, 'ParrotInterpreter'
print "calling\n"
# set_addr/invoke ?
runinterp P0, foo
@@ -138,11 +138,11 @@
# This is the behavior as of Parrot 1.4.3
# XXX Should there be a warning?
pasm_output_is( <<'CODE', 'nada:', 'interp - warnings' );
- new P0, .Undef
+ new P0, 'Undef'
set I0, P0
printerr "nada:"
warningson 1
- new P1, .Undef
+ new P1, 'Undef'
set I0, P1
end
CODE
Modified: branches/datadump/t/op/jit.t
==============================================================================
--- branches/datadump/t/op/jit.t (original)
+++ branches/datadump/t/op/jit.t Tue Aug 28 20:04:28 2007
@@ -1009,7 +1009,7 @@
OUTPUT
pasm_output_is( <<'CODE', <<'OUTPUT', "t/op/arithmetic_26: non jit seq w.
branch" );
-new P0, .Integer
+new P0, 'Integer'
set N0, 4000
set P0, 123
div P0, P0, N0
Modified: branches/datadump/t/op/lexicals.t
==============================================================================
--- branches/datadump/t/op/lexicals.t (original)
+++ branches/datadump/t/op/lexicals.t Tue Aug 28 20:04:28 2007
@@ -65,7 +65,7 @@
.pcc_sub main:
.lex '$a', P0
.lex '$b', P0
- new P0, .String
+ new P0, 'String'
set P0, "ok\n"
find_lex P1, '$a'
print P1
Modified: branches/datadump/t/op/spawnw.t
==============================================================================
--- branches/datadump/t/op/spawnw.t (original)
+++ branches/datadump/t/op/spawnw.t Tue Aug 28 20:04:28 2007
@@ -88,7 +88,7 @@
# test array version of spawnw
pasm_output_is( <<'CODE', <<'OUTPUT', "exit code: 0" );
- new P0, .Array
+ new P0, 'Array'
set P0, 3
set P0[0], "perl"
set P0[1], "-e"
@@ -105,7 +105,7 @@
OUTPUT
pasm_output_is( <<'CODE', <<'OUTPUT', "exit code: 123" );
- new P0, .Array
+ new P0, 'Array'
set P0, 3
set P0[0], "perl"
set P0[1], "-e"
@@ -122,7 +122,7 @@
OUTPUT
pasm_output_is( <<'CODE', <<'OUTPUT', "exit code: 3" );
- new P0, .Array
+ new P0, 'Array'
set P0, 3
set P0[0], "perl"
set P0[1], "-e"
@@ -151,7 +151,7 @@
branch loop
end:
$S0 = concat $S0, "}) / 100"
- new args, .ResizablePMCArray
+ new args, 'ResizablePMCArray'
push args, "perl"
push args, "-e"
push args, $S0
Modified: branches/datadump/t/op/stacks.t
==============================================================================
--- branches/datadump/t/op/stacks.t (original)
+++ branches/datadump/t/op/stacks.t Tue Aug 28 20:04:28 2007
@@ -386,10 +386,10 @@
restore S0
print S0
- new P0, .String
+ new P0, 'String'
set P0, "never to escape\\n"
save P0
- new P0, .String
+ new P0, 'String'
set P0, "find themselves caught in a loop\\n"
print P0
restore P0
@@ -414,7 +414,7 @@
set I0, 12
set N0, 0.1
set S0, "Difference Engine #2"
- new P0, .String
+ new P0, 'String'
set P0, "Shalmaneser"
save P0
@@ -512,7 +512,7 @@
save 1.0
save "Foo"
- new P12, .Hash
+ new P12, 'Hash'
set P12["Apple"], "Banana"
save P12
Modified: branches/datadump/t/op/string.t
==============================================================================
--- branches/datadump/t/op/string.t (original)
+++ branches/datadump/t/op/string.t Tue Aug 28 20:04:28 2007
@@ -1748,19 +1748,19 @@
branch MAIN
NEWARYP:
- new P1, .ResizablePMCArray
+ new P1, 'ResizablePMCArray'
set P1[0], P0
ret
NEWARYS:
- new P1, .ResizablePMCArray
+ new P1, 'ResizablePMCArray'
set P1[0], S0
ret
NEWARYI:
- new P1, .ResizablePMCArray
+ new P1, 'ResizablePMCArray'
set P1[0], I0
ret
NEWARYN:
- new P1, .ResizablePMCArray
+ new P1, 'ResizablePMCArray'
set P1[0], N0
ret
PRINTF:
@@ -1795,7 +1795,7 @@
bsr PRINTF
set S1, "1 == %Pd\n"
- new P0, .Integer
+ new P0, 'Integer'
set P0, 1
bsr NEWARYP
bsr PRINTF
@@ -1897,17 +1897,17 @@
ret
MAIN:
- new P3, .String
+ new P3, 'String'
- new P2, .String
+ new P2, 'String'
set P2, "15 is %b\n"
- new P1, .ResizablePMCArray
+ new P1, 'ResizablePMCArray'
set P1[0], 15
bsr PRINTF
- new P2, .String
+ new P2, 'String'
set P2, "128 is %o\n"
- new P1, .ResizablePMCArray
+ new P1, 'ResizablePMCArray'
set P1[0], 128
bsr PRINTF
@@ -2632,7 +2632,7 @@
pasm_output_is( <<'CODE', <<'OUTPUT', 'join' );
_main:
- new P0, .ResizablePMCArray
+ new P0, 'ResizablePMCArray'
join S0, "--", P0
print S0
print "\n"
@@ -2640,7 +2640,7 @@
join S0, "--", P0
print S0
print "\n"
- new P0, .ResizablePMCArray
+ new P0, 'ResizablePMCArray'
push P0, "a"
push P0, "b"
join S0, "--", P0
@@ -2658,7 +2658,7 @@
.sub _main
newclass P0, "Foo"
- new P0, .ResizablePMCArray
+ new P0, 'ResizablePMCArray'
find_type I0, "Foo"
new P1, I0
Modified: branches/datadump/t/postconfigure/02-data_slurp.t
==============================================================================
--- branches/datadump/t/postconfigure/02-data_slurp.t (original)
+++ branches/datadump/t/postconfigure/02-data_slurp.t Tue Aug 28 20:04:28 2007
@@ -8,7 +8,7 @@
use Test::More tests => 30;
use Carp;
-use lib qw( . lib ../lib ../../lib );
+use lib qw( lib );
use Parrot::Configure;
use Parrot::Configure::Options qw( process_options );
use_ok('Parrot::Configure::Step::List', qw|
Modified: branches/datadump/t/postconfigure/03-revision_no_DEVELOPING.t
==============================================================================
--- branches/datadump/t/postconfigure/03-revision_no_DEVELOPING.t
(original)
+++ branches/datadump/t/postconfigure/03-revision_no_DEVELOPING.t Tue Aug
28 20:04:28 2007
@@ -11,7 +11,7 @@
use_ok( 'Cwd' );
use_ok( 'File::Copy' );
use_ok( 'File::Temp', qw| tempdir | );
-use lib qw( . lib ../lib ../../lib );
+use lib qw( lib );
my ($current, $config);
Modified: branches/datadump/t/postconfigure/04-revision.t
==============================================================================
--- branches/datadump/t/postconfigure/04-revision.t (original)
+++ branches/datadump/t/postconfigure/04-revision.t Tue Aug 28 20:04:28 2007
@@ -11,7 +11,7 @@
use_ok( 'Cwd' );
use_ok( 'File::Copy' );
use_ok( 'File::Temp', qw| tempdir | );
-use lib qw( . lib ../lib ../../lib );
+use lib qw( lib );
use Parrot::Revision;
my ($current, $config);
Modified: branches/datadump/t/postconfigure/05-trace.t
==============================================================================
--- branches/datadump/t/postconfigure/05-trace.t (original)
+++ branches/datadump/t/postconfigure/05-trace.t Tue Aug 28 20:04:28 2007
@@ -18,7 +18,7 @@
plan skip_all =>
q{Tests irrelevant unless configuration completed with tracing requested};
}
-use lib qw( . lib ../lib ../../lib );
+use lib qw( lib );
use_ok( 'Parrot::Configure::Trace' );
use Parrot::Configure::Step::List qw( get_steps_list );
Modified: branches/datadump/t/postconfigure/06-data_slurp_temp.t
==============================================================================
--- branches/datadump/t/postconfigure/06-data_slurp_temp.t (original)
+++ branches/datadump/t/postconfigure/06-data_slurp_temp.t Tue Aug 28
20:04:28 2007
@@ -8,7 +8,7 @@
use Test::More tests => 32;
use Carp;
-use lib qw( . lib ../lib ../../lib );
+use lib qw( lib );
use Parrot::Configure;
use Parrot::Configure::Options qw( process_options );
use_ok('Parrot::Configure::Step::List', qw|
