cvs commit: ponie/src/pmc perl5pvcv.pmc perl5pvfm.pmc perl5pvio.pmc

cvsuser     05/04/30 02:20:19

  Modified:    src/pmc  perl5pvcv.pmc perl5pvfm.pmc perl5pvio.pmc
  Log:
  Inline the zeroing code within the PMCs
  
  Revision  Changes    Path
  1.3       +2 -2      ponie/src/pmc/perl5pvcv.pmc
  
  Index: perl5pvcv.pmc
  ===================================================================
  RCS file: /cvs/public/ponie/src/pmc/perl5pvcv.pmc,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- perl5pvcv.pmc	29 Apr 2005 23:47:21 -0000	1.2
  +++ perl5pvcv.pmc	30 Apr 2005 09:20:19 -0000	1.3
  @@ -25,7 +25,7 @@
                   SV *sv = MUMBLE(SELF);
   
   		SvANY(sv) = new_XPVCV();
  -		zero_xpvcv(sv);
  +                Zero(SvANY(sv), 1, XPVCV);
   		assert (!val->sv_is_rv);
   		SvPV_set(sv, val->pv);
   		Parrot_PMC_set_pointer_intkey(PL_Parrot,MUMBLE(sv),
  
  
  
  1.3       +2 -2      ponie/src/pmc/perl5pvfm.pmc
  
  Index: perl5pvfm.pmc
  ===================================================================
  RCS file: /cvs/public/ponie/src/pmc/perl5pvfm.pmc,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- perl5pvfm.pmc	29 Apr 2005 23:47:21 -0000	1.2
  +++ perl5pvfm.pmc	30 Apr 2005 09:20:19 -0000	1.3
  @@ -26,7 +26,7 @@
                   SV *sv = MUMBLE(SELF);
                   
                   SvANY(sv) = new_XPVFM();
  -		zero_xpvfm(sv);
  +                Zero(SvANY(sv), 1, XPVFM);
                   if (val->sv_is_rv) {
                       SvRV_set(sv, val->rv);
                       Parrot_PMC_set_pointer_intkey(PL_Parrot,MUMBLE(sv),
  
  
  
  1.3       +2 -2      ponie/src/pmc/perl5pvio.pmc
  
  Index: perl5pvio.pmc
  ===================================================================
  RCS file: /cvs/public/ponie/src/pmc/perl5pvio.pmc,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- perl5pvio.pmc	29 Apr 2005 23:47:21 -0000	1.2
  +++ perl5pvio.pmc	30 Apr 2005 09:20:19 -0000	1.3
  @@ -26,7 +26,7 @@
                   SV *sv = MUMBLE(SELF);
                   
                   SvANY(sv) = new_XPVIO();
  -		zero_xpvio(sv);
  +                Zero(SvANY(sv), 1, XPVIO);
                   if (val->sv_is_rv) {
                       SvRV_set(sv, val->rv);
                       Parrot_PMC_set_pointer_intkey(PL_Parrot,MUMBLE(sv),