cvsuser 05/03/28 13:02:43
Modified: src debug.c embed.c hash.c
Log:
Use a ResizableStringArray instead of an PerlArray for command line args
of 'pdb'. I think that 'pdb' still works, but there seem to be no tests yet.
Revision Changes Path
1.136 +3 -3 parrot/src/debug.c
Index: debug.c
===================================================================
RCS file: /cvs/public/parrot/src/debug.c,v
retrieving revision 1.135
retrieving revision 1.136
diff -u -r1.135 -r1.136
--- debug.c 25 Mar 2005 10:19:57 -0000 1.135
+++ debug.c 28 Mar 2005 21:02:43 -0000 1.136
@@ -1,6 +1,6 @@
/*
-Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-$Id: debug.c,v 1.135 2005/03/25 10:19:57 leo Exp $
+Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
+$Id: debug.c,v 1.136 2005/03/28 21:02:43 bernhard Exp $
=head1 NAME
@@ -880,7 +880,7 @@
imcc_init(interpreter);
/* set the user arguments */
- userargv = pmc_new(interpreter, enum_class_PerlArray);
+ userargv = pmc_new(interpreter, enum_class_ResizableStringArray);
REG_PMC(5) = userargv;
while (command && *command) {
1.128 +4 -5 parrot/src/embed.c
Index: embed.c
===================================================================
RCS file: /cvs/public/parrot/src/embed.c,v
retrieving revision 1.127
retrieving revision 1.128
diff -u -r1.127 -r1.128
--- embed.c 25 Mar 2005 10:19:58 -0000 1.127
+++ embed.c 28 Mar 2005 21:02:43 -0000 1.128
@@ -1,6 +1,6 @@
/*
Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-$Id: embed.c,v 1.127 2005/03/25 10:19:58 leo Exp $
+$Id: embed.c,v 1.128 2005/03/28 21:02:43 bernhard Exp $
=head1 NAME
@@ -379,7 +379,7 @@
=item C<static void
setup_argv(Interp *interpreter, int argc, char ** argv)>
-Sets up the C<ARGV> array in P5.
+Sets up the C<ARGS> array in P5.
=cut
@@ -397,6 +397,7 @@
argc);
}
+ /* XXX @ARGS should propably be a ResizableStringArray */
userargv = pmc_new_noinit(interpreter, enum_class_SArray);
/* immediately anchor pmc to root set */
REG_PMC(5) = userargv;
@@ -737,9 +738,7 @@
PIO_eprintf(interpreter, " ***\n");
}
- /* Set up @ARGS (or whatever this language calls it).
- XXX Should this be Array or PerlArray? */
-
+ /* Set up @ARGS (or whatever this language calls it) in P5. */
setup_argv(interpreter, argc, argv);
#if EXEC_CAPABLE
1.89 +2 -2 parrot/src/hash.c
Index: hash.c
===================================================================
RCS file: /cvs/public/parrot/src/hash.c,v
retrieving revision 1.88
retrieving revision 1.89
diff -u -r1.88 -r1.89
--- hash.c 25 Feb 2005 08:40:54 -0000 1.88
+++ hash.c 28 Mar 2005 21:02:43 -0000 1.89
@@ -1,6 +1,6 @@
/*
Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-$Id: hash.c,v 1.88 2005/02/25 08:40:54 leo Exp $
+$Id: hash.c,v 1.89 2005/03/28 21:02:43 bernhard Exp $
=head1 NAME
@@ -12,7 +12,7 @@
linked list, each containing a C<STRING> key and a value. The value is
currently stored as a C<HASH_ENTRY>, which maybe makes sense for some
hashes but probably doesn't for what they're currently used for, which
-is PerlHash and Hash PMCs (since those should probably just be hashes of
C<STRING>s
+is PerlHash and Hash PMCs (since those should probably just be hashes of
C<STRING>s
mapping to PMCs.)
To minimize memory overhead, buckets are carved out of a pool that is
