cvsuser 02/11/08 02:15:20
Modified: classes array.pmc multiarray.pmc
Log:
removed dulicate clone
Revision Changes Path
1.43 +2 -2 parrot/classes/array.pmc
Index: array.pmc
===================================================================
RCS file: /cvs/public/parrot/classes/array.pmc,v
retrieving revision 1.42
retrieving revision 1.43
diff -u -w -r1.42 -r1.43
--- array.pmc 2 Nov 2002 02:06:17 -0000 1.42
+++ array.pmc 8 Nov 2002 10:15:20 -0000 1.43
@@ -1,7 +1,7 @@
/* array.pmc
* Copyright: (When this is determined...it will go here)
* CVS Info
- * $Id: array.pmc,v 1.42 2002/11/02 02:06:17 josh Exp $
+ * $Id: array.pmc,v 1.43 2002/11/08 10:15:20 leo Exp $
* Overview:
* These are the vtable functions for the Array base class
* Data Structure and Algorithms:
@@ -113,7 +113,7 @@
PMC* clone () {
PMC* dest;
- dest = pmc_new(INTERP, enum_class_Array);
+ dest = new_pmc_header(INTERP);
dest->flags |= PMC_custom_mark_FLAG;
dest->vtable = SELF->vtable;
dest->data = list_clone(INTERP, (List *) SELF->data);
1.8 +3 -11 parrot/classes/multiarray.pmc
Index: multiarray.pmc
===================================================================
RCS file: /cvs/public/parrot/classes/multiarray.pmc,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -w -r1.7 -r1.8
--- multiarray.pmc 27 Oct 2002 11:58:00 -0000 1.7
+++ multiarray.pmc 8 Nov 2002 10:15:20 -0000 1.8
@@ -1,7 +1,7 @@
/* Multiarray.pmc
* Copyright: (When this is determined...it will go here)
* CVS Info
- * $Id: multiarray.pmc,v 1.7 2002/10/27 11:58:00 leo Exp $
+ * $Id: multiarray.pmc,v 1.8 2002/11/08 10:15:20 leo Exp $
* Overview:
* These are the vtable functions for the Multiarray base class
* Data Structure and Algorithms:
@@ -48,23 +48,15 @@
pmclass MultiArray extends Array {
void init () {
+ /* override default in Array - no init */
}
+
INTVAL type () {
return enum_class_MultiArray;
}
STRING* name() {
return whoami;
- }
-
- PMC* clone () {
- PMC* dest;
-
- dest = new_pmc_header(INTERP);
- dest->flags |= PMC_custom_mark_FLAG;
- dest->vtable = SELF->vtable;
- dest->data = list_clone(INTERP, (List *) SELF->data);
- return dest;
}
INTVAL get_integer_keyed (PMC* key) {
