cvs commit: ponie/src/pmc perl5lv.pmc

cvsuser     03/12/15 05:54:48

  Modified:    src/pmc  perl5lv.pmc
  Log:
  init the data field and add get_pointer
  
  Revision  Changes    Path
  1.4       +10 -2     ponie/src/pmc/perl5lv.pmc
  
  Index: perl5lv.pmc
  ===================================================================
  RCS file: /cvs/public/ponie/src/pmc/perl5lv.pmc,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -w -r1.3 -r1.4
  --- perl5lv.pmc	27 Oct 2003 14:23:53 -0000	1.3
  +++ perl5lv.pmc	15 Dec 2003 13:54:48 -0000	1.4
  @@ -1,7 +1,7 @@
   /* Perl5LV.pmc
    *  Copyright: 2001-2003 The Perl Foundation.  All Rights Reserved.
    *  CVS Info
  - *     $Id: perl5lv.pmc,v 1.3 2003/10/27 14:23:53 sky Exp $
  + *     $Id: perl5lv.pmc,v 1.4 2003/12/15 13:54:48 sky Exp $
    *  Overview:
    *     These are the vtable functions for the Perl5LV base class
    *  Data Structure and Algorithms:
  @@ -15,12 +15,20 @@
   #include "EXTERN.h"
   #include "perl.h"
   
  +
   pmclass Perl5LV need_ext {
   
       void init () {
  +	PMC_data(SELF) = malloc(sizeof(perl5lv_pmc_data));
       }
   
       void init_pmc (PMC* initializer) {
  +	abort();
  +    }
  +
  +
  +    void* get_pointer() {
  +        return PMC_data(SELF);
       }
   
       void init_pmc_props (PMC* initializer, PMC* properties) {