cvs commit: ponie/perl sv.c

cvsuser     04/05/08 03:16:12

  Modified:    perl     sv.c
  Log:
  As Leo correctly inferred, we weren't actually unregistering any PMCs.
  MUMBLE.
  
  Revision  Changes    Path
  1.31      +14 -14    ponie/perl/sv.c
  
  Index: sv.c
  ===================================================================
  RCS file: /cvs/public/ponie/perl/sv.c,v
  retrieving revision 1.30
  retrieving revision 1.31
  diff -u -w -r1.30 -r1.31
  --- sv.c	6 May 2004 14:13:16 -0000	1.30
  +++ sv.c	8 May 2004 10:16:11 -0000	1.31
  @@ -629,7 +629,7 @@
   STATIC void
   S_del_xiv(pTHX_ Parrot_PMC p)
   {
  -  Parrot_unregister_pmc(PL_Parrot, p);
  +  Parrot_unregister_pmc(PL_Parrot, MUMBLE(p));
   }
   
   /* allocate another arena's worth of IV bodies */
  @@ -671,7 +671,7 @@
   STATIC void
   S_del_xnv(pTHX_ Parrot_PMC p)
   {
  -  Parrot_unregister_pmc(PL_Parrot, p);
  +  Parrot_unregister_pmc(PL_Parrot, MUMBLE(p));
   }
   
   
  @@ -719,7 +719,7 @@
   STATIC void
   S_del_xrv(pTHX_ XRV *p)
   {
  -  Parrot_unregister_pmc(PL_Parrot, p);
  +  Parrot_unregister_pmc(PL_Parrot, MUMBLE(p));
   }
   
   /* allocate another arena's worth of struct xrv */
  @@ -766,7 +766,7 @@
   STATIC void
   S_del_xpv(pTHX_ Parrot_PMC p)
   {
  -  Parrot_unregister_pmc(PL_Parrot, p);
  +  Parrot_unregister_pmc(PL_Parrot, MUMBLE(p));
   }
   
   /* allocate another arena's worth of struct xpv */
  @@ -805,7 +805,7 @@
   STATIC void
   S_del_xpviv(pTHX_ Parrot_PMC p)
   {
  -  Parrot_unregister_pmc(PL_Parrot, p);
  +  Parrot_unregister_pmc(PL_Parrot, MUMBLE(p));
   }
   
   /* allocate another arena's worth of struct xpviv */
  @@ -844,7 +844,7 @@
   STATIC void
   S_del_xpvnv(pTHX_ Parrot_PMC p)
   {
  -  Parrot_unregister_pmc(PL_Parrot, p);
  +  Parrot_unregister_pmc(PL_Parrot, MUMBLE(p));
   }
   
   /* allocate another arena's worth of struct xpvnv */
  @@ -883,7 +883,7 @@
   STATIC void
   S_del_xpvcv(pTHX_ Parrot_PMC cv)
   {
  -  Parrot_unregister_pmc(PL_Parrot, cv);
  +  Parrot_unregister_pmc(PL_Parrot, MUMBLE(cv));
   }
   
   void
  @@ -921,7 +921,7 @@
   STATIC void
   S_del_xpvav(pTHX_ Parrot_PMC av)
   {
  -  Parrot_unregister_pmc(PL_Parrot, av);
  +  Parrot_unregister_pmc(PL_Parrot, MUMBLE(av));
   }
   
   /* allocate another arena's worth of struct xpvav */
  @@ -976,7 +976,7 @@
   STATIC void
   S_del_xpvhv(pTHX_ Parrot_PMC p)
   {
  -  Parrot_unregister_pmc(PL_Parrot, p);
  +  Parrot_unregister_pmc(PL_Parrot, MUMBLE(p));
   }
   
   /* allocate another arena's worth of struct xpvhv */
  @@ -1015,7 +1015,7 @@
   STATIC void
   S_del_xpvmg(pTHX_ Parrot_PMC p)
   {
  -  Parrot_unregister_pmc(PL_Parrot, p);
  +  Parrot_unregister_pmc(PL_Parrot, MUMBLE(p));
   }
   
   /* allocate another arena's worth of struct xpvmg */
  @@ -1082,7 +1082,7 @@
   STATIC void
   S_del_xpvlv(pTHX_ Parrot_PMC lval)
   {
  -  Parrot_unregister_pmc(PL_Parrot, lval);
  +  Parrot_unregister_pmc(PL_Parrot, MUMBLE(lval));
   }
   
   /* allocate another arena's worth of struct xpvlv */
  @@ -1121,7 +1121,7 @@
   STATIC void
   S_del_xpvbm(pTHX_ Parrot_PMC p)
   {
  -  Parrot_unregister_pmc(PL_Parrot, p);
  +  Parrot_unregister_pmc(PL_Parrot, MUMBLE(p));
   }
   
   /* allocate another arena's worth of struct xpvbm */
  @@ -1245,7 +1245,7 @@
   STATIC void
   S_del_xpvfm(pTHX_ Parrot_PMC fm)
   {
  -  Parrot_unregister_pmc(PL_Parrot, fm);
  +  Parrot_unregister_pmc(PL_Parrot, MUMBLE(fm));
   }
   
   STATIC Parrot_PMC
  @@ -1259,7 +1259,7 @@
   STATIC void
   S_del_xpvio(pTHX_ Parrot_PMC io)
   {
  -  Parrot_unregister_pmc(PL_Parrot, io);
  +  Parrot_unregister_pmc(PL_Parrot, MUMBLE(io));
   }
   
   MAGIC** Perl_macro_SvMAGIC (pTHX_ SV *sv) {