On Fri, Jun 25, 2004 at 04:35:52PM -0000, Leopold Toetsch wrote:
> ===================================================================
> RCS file: /cvs/public/parrot/classes/perlhash.pmc,v
> retrieving revision 1.74
> retrieving revision 1.75
> diff -u -w -r1.74 -r1.75
> --- perlhash.pmc 25 Jun 2004 10:19:52 -0000 1.74
> +++ perlhash.pmc 25 Jun 2004 16:35:48 -0000 1.75
> @@ -1,6 +1,6 @@
> /*
> Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
> -$Id: perlhash.pmc,v 1.74 2004/06/25 10:19:52 leo Exp $
> +$Id: perlhash.pmc,v 1.75 2004/06/25 16:35:48 leo Exp $
> static void
> fromkeys(Interp *interpreter, PMC *self, PMC *keys, PMC *value)
> {
> @@ -58,6 +72,38 @@
> VTABLE_isa(interpreter, keys,
> const_string(interpreter, "Iterator"))) {
> iter = keys;
> + if (PMC_struct_val(iter)) {
> + PMC *xr = PMC_struct_val(iter);
> + /* check, if we got an xrange iterator */
I think that this change broken things:
classes/perlhash.c: In function `fromkeys':
classes/perlhash.c:63: error: `enum_class_None' undeclared (first use in this function)
classes/perlhash.c:63: error: (Each undeclared identifier is reported only once
classes/perlhash.c:63: error: for each function it appears in.)
make: *** [classes/perlhash.o] Error 1
Was some header file change not committed?
Nicholas Clark
