[svn:parrot] r40516 - branches/auto_attrs/src/pmc

[NotFound at svn.parrot.org]

Author: NotFound
Date: Thu Aug 13 08:51:43 2009
New Revision: 40516
URL: https://trac.parrot.org/parrot/changeset/40516

Log:
set auto_attrs on LexPad PMC

Modified:
   branches/auto_attrs/src/pmc/lexpad.pmc

Modified: branches/auto_attrs/src/pmc/lexpad.pmc
==============================================================================
--- branches/auto_attrs/src/pmc/lexpad.pmc	Thu Aug 13 07:09:36 2009	(r40515)
+++ branches/auto_attrs/src/pmc/lexpad.pmc	Thu Aug 13 08:51:43 2009	(r40516)
@@ -26,7 +26,7 @@
  * pmc_val    ... LexInfo
  */
 
-pmclass LexPad provides hash no_ro {
+pmclass LexPad provides hash no_ro auto_attrs {
     ATTR PMC                   *lexinfo;
     ATTR struct Parrot_Context *ctx;
 
@@ -78,18 +78,7 @@
 
 */
     VTABLE void init_pmc(PMC *lexinfo) {
-        Parrot_LexPad_attributes * const attrs =
-            mem_allocate_zeroed_typed(Parrot_LexPad_attributes);
-
-        PObj_active_destroy_SET(SELF);
-
-        attrs->lexinfo = lexinfo;
-        PMC_data(SELF) = attrs;
-    }
-
-    VTABLE void destroy() {
-        mem_sys_free(PMC_data(SELF));
-        PMC_data(SELF) = NULL;
+        SET_ATTR_lexinfo(INTERP, SELF, lexinfo);
     }
 
     VTABLE void set_pointer(void *ctx) {