[svn:parrot] r40520 - branches/auto_attrs/src/dynpmc

[NotFound at svn.parrot.org]

Author: NotFound
Date: Thu Aug 13 10:30:42 2009
New Revision: 40520
URL: https://trac.parrot.org/parrot/changeset/40520

Log:
set auto_attrs on DynLexPad PMC

Modified:
   branches/auto_attrs/src/dynpmc/dynlexpad.pmc

Modified: branches/auto_attrs/src/dynpmc/dynlexpad.pmc
==============================================================================
--- branches/auto_attrs/src/dynpmc/dynlexpad.pmc	Thu Aug 13 10:16:54 2009	(r40519)
+++ branches/auto_attrs/src/dynpmc/dynlexpad.pmc	Thu Aug 13 10:30:42 2009	(r40520)
@@ -19,7 +19,7 @@
 
 */
 
-pmclass DynLexPad dynpmc provides lexpad need_ext {
+pmclass DynLexPad dynpmc provides lexpad need_ext auto_attrs {
     ATTR Hash *hash;
     ATTR PMC  *init; /* the PMC used to initialize this DynLexPad */
 
@@ -42,8 +42,7 @@
         Hash *hash;
 
         Parrot_DynLexPad_attributes *attrs =
-            mem_allocate_zeroed_typed(Parrot_DynLexPad_attributes);
-        PMC_data(SELF) = attrs;
+            (Parrot_DynLexPad_attributes *) PMC_data(SELF);
 
         if (VTABLE_elements(interp, lexinfo)) {
             attrs->init = pmc_new_init(interp, enum_class_LexPad, lexinfo);
@@ -188,8 +187,6 @@
             parrot_hash_destroy(interp, PARROT_DYNLEXPAD(SELF)->hash);
             PARROT_DYNLEXPAD(SELF)->hash = NULL;
         }
-        mem_sys_free(PMC_data(SELF));
-        PMC_data(SELF) = NULL;
     }
 /*