cvsuser 05/01/04 05:11:52
Modified: classes fixedpmcarray.pmc
Log:
properly destroy PMCArrays
Revision Changes Path
1.28 +3 -2 parrot/classes/fixedpmcarray.pmc
Index: fixedpmcarray.pmc
===================================================================
RCS file: /cvs/public/parrot/classes/fixedpmcarray.pmc,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -r1.27 -r1.28
--- fixedpmcarray.pmc 30 Dec 2004 00:13:00 -0000 1.27
+++ fixedpmcarray.pmc 4 Jan 2005 13:11:52 -0000 1.28
@@ -1,6 +1,6 @@
/*
Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-$Id: fixedpmcarray.pmc,v 1.27 2004/12/30 00:13:00 scog Exp $
+$Id: fixedpmcarray.pmc,v 1.28 2005/01/04 13:11:52 leo Exp $
=head1 NAME
@@ -175,6 +175,8 @@
void init () {
PMC_int_val(SELF) = 0;
+ PObj_active_destroy_SET(SELF);
+ PObj_data_is_PMC_array_SET(SELF);
}
/*
@@ -466,7 +468,6 @@
for(i = 0; i < size; i++)
data[i] = PMCNULL;
PMC_data(SELF) = data;
- PObj_data_is_PMC_array_SET(SELF);
}
void set_pmc(PMC *value) {
