cvs commit: ponie/src/pmc perl5cargo_cult.pmc

cvsuser     05/05/04 04:06:44

  Modified:    perl     sv.c sv.h
               src/pmc  perl5cargo_cult.pmc
  Log:
  Rename Ponie_P_NEWRV_HACK to Ponie_P_NEWSVRV
  
  Revision  Changes    Path
  1.84      +2 -2      ponie/perl/sv.c
  
  Index: sv.c
  ===================================================================
  RCS file: /cvs/public/ponie/perl/sv.c,v
  retrieving revision 1.83
  retrieving revision 1.84
  diff -u -r1.83 -r1.84
  --- sv.c	4 May 2005 10:12:44 -0000	1.83
  +++ sv.c	4 May 2005 11:06:43 -0000	1.84
  @@ -7356,8 +7356,8 @@
   	/* FIXME. A downgrade upgrade.  */
   	sv_clear(rv);
   	SvANY_set(rv, 0);
  -	Parrot_PMC_set_pointer_intkey(PL_Parrot, MUMBLE(rv), Ponie_P_NEWRV_HACK,
  -				      0);
  +	Parrot_PMC_set_pointer_intkey(PL_Parrot, MUMBLE(rv), Ponie_P_NEWSVRV,
  +				      classname);
   	SvFLAGS(rv) = 0;
   	SvREFCNT_set(rv, refcnt);
       }
  
  
  
  1.84      +1 -1      ponie/perl/sv.h
  
  Index: sv.h
  ===================================================================
  RCS file: /cvs/public/ponie/perl/sv.h,v
  retrieving revision 1.83
  retrieving revision 1.84
  diff -u -r1.83 -r1.84
  --- sv.h	2 May 2005 22:12:06 -0000	1.83
  +++ sv.h	4 May 2005 11:06:44 -0000	1.84
  @@ -249,7 +249,7 @@
     Ponie_P_CLEAR,		/* Free SvANY and things hanging from it */
     Ponie_P_FREESCALAR_COMMON,	/* Common legacy code for freeing scalars */
     Ponie_P_UNGLOB,		/* Special things for sv_unglob */
  -  Ponie_P_NEWRV_HACK,		/* Special things for newSVrv */
  +  Ponie_P_NEWSVRV,		/* newSVrv */
     Ponie_P_REPLACE,		/* Special things for sv_replace */
     Ponie_P_PINE_FOR_FJORDS,	/* Free all internal storage and play dead */
     Ponie_P_MAX
  
  
  
  1.62      +2 -2      ponie/src/pmc/perl5cargo_cult.pmc
  
  Index: perl5cargo_cult.pmc
  ===================================================================
  RCS file: /cvs/public/ponie/src/pmc/perl5cargo_cult.pmc,v
  retrieving revision 1.61
  retrieving revision 1.62
  diff -u -r1.61 -r1.62
  --- perl5cargo_cult.pmc	4 May 2005 10:12:44 -0000	1.61
  +++ perl5cargo_cult.pmc	4 May 2005 11:06:44 -0000	1.62
  @@ -581,7 +581,7 @@
                   data->xpv_pv = NULL;
               }
               break;
  -        case Ponie_P_NEWRV_HACK:
  +        case Ponie_P_NEWSVRV:
               SELF->vtable = Parrot_base_vtables[PL_pmcname[SVt_NULL]];
               break;
           case Ponie_P_REPLACE: