cvs commit: ponie/src/pmc perl5cargo_cult.pmc

cvsuser     04/05/07 16:29:29

  Modified:    src/pmc  perl5cargo_cult.pmc
  Log:
  Advice from Leo on how to be much kinder to the GC system
  
  Revision  Changes    Path
  1.6       +5 -5      ponie/src/pmc/perl5cargo_cult.pmc
  
  Index: perl5cargo_cult.pmc
  ===================================================================
  RCS file: /cvs/public/ponie/src/pmc/perl5cargo_cult.pmc,v
  retrieving revision 1.5
  retrieving revision 1.6
  diff -u -w -r1.5 -r1.6
  --- perl5cargo_cult.pmc	5 May 2004 21:08:26 -0000	1.5
  +++ perl5cargo_cult.pmc	7 May 2004 23:29:29 -0000	1.6
  @@ -1,7 +1,7 @@
   /* Perl5QQQ.pmc -*- c -*-
    *  Copyright: 2001-2004 The Perl Foundation.  All Rights Reserved.
    *  CVS Info
  - *     $Id: perl5cargo_cult.pmc,v 1.5 2004/05/05 21:08:26 nicholas Exp $
  + *     $Id: perl5cargo_cult.pmc,v 1.6 2004/05/07 23:29:29 nicholas Exp $
    *  Overview:
    *     These are the vtable functions for the Perl5QQQ base class
    *  Data Structure and Algorithms:
  @@ -33,11 +33,11 @@
       NV    	xnv_nv;		/* numeric value, if any */
   };
   
  -pmclass Perl5QQQ need_ext {
  +pmclass Perl5QQQ {
   
       void init () {	
           PObj_active_destroy_SET(SELF);
  -	PMC_data(SELF) = malloc(sizeof(struct xqqq));
  +	PMC_struct_val(SELF) = malloc(sizeof(struct xqqq));
       }
   
   
  @@ -47,7 +47,7 @@
   
   
       void* get_pointer() {
  -        return PMC_data(SELF);
  +        return PMC_struct_val(SELF);
       }
   
       void init_pmc_props (PMC* initializer, PMC* properties) {
  @@ -60,7 +60,7 @@
       }
   
       void destroy () {
  -        free(PMC_data(SELF));
  +        free(PMC_struct_val(SELF));
       }
   
       PMC* getprop (STRING* key) {