cvsuser 04/02/25 13:15:37
Modified: src objects.c
Log:
Down to three failed object tests
Revision Changes Path
1.41 +5 -6 parrot/src/objects.c
Index: objects.c
===================================================================
RCS file: /cvs/public/parrot/src/objects.c,v
retrieving revision 1.40
retrieving revision 1.41
diff -u -w -r1.40 -r1.41
--- objects.c 25 Feb 2004 20:49:45 -0000 1.40
+++ objects.c 25 Feb 2004 21:15:37 -0000 1.41
@@ -1,6 +1,6 @@
/*
Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-$Id: objects.c,v 1.40 2004/02/25 20:49:45 dan Exp $
+$Id: objects.c,v 1.41 2004/02/25 21:15:37 dan Exp $
=head1 NAME
@@ -121,7 +121,6 @@
}
}
-
/* Now append our own. To make things easier, we make sure we
always appear in the offset list, even if we don't have any
attributes. That way the append code for adding attributes to a
@@ -133,7 +132,6 @@
{
PMC *attribs;
INTVAL attr_count;
-
attribs = VTABLE_get_pmc_keyed_int(interpreter, obj_array,
PCD_CLASS_ATTRIBUTES);
attr_count = VTABLE_elements(interpreter, attribs);
@@ -155,7 +153,6 @@
}
}
-
/* And replace what was in there with the new ones */
VTABLE_set_pmc_keyed_int(interpreter, obj_array, PCD_ATTRIBUTES,
attr_offset_hash);
@@ -255,6 +252,10 @@
VTABLE_set_pmc_keyed_int(interpreter, child_class_array, PCD_ATTRIBUTES,
temp_pmc);
+ /* But we have no attributes of our own. Yet */
+ temp_pmc = pmc_new(interpreter, enum_class_Array);
+ VTABLE_set_pmc_keyed_int(interpreter, child_class_array, PCD_CLASS_ATTRIBUTES,
temp_pmc);
+
Parrot_class_register(interpreter, child_class_name, child_class);
return child_class;
@@ -504,7 +505,6 @@
current_class_array,
current_offset)) {
already_in = 1;
- puts("Already there");
}
}
@@ -521,7 +521,6 @@
current_size + 1);
VTABLE_set_pmc_keyed_int(interpreter, current_class_array,
current_size, add_on_class_obj);
-
/* And then go put all the parent class' parents on the list,
if they're not there already */
for (add_on_offset = 0; add_on_offset < add_on_count;
