cvs commit: ponie/src/pmc perl5cargo_cult.pmc

cvsuser     04/10/14 06:59:13

  Modified:    perl     sv.h
               src/pmc  perl5cargo_cult.pmc
  Log:
  Move SvRELEASE_IVX into the PMC code
  
  Revision  Changes    Path
  1.27      +2 -4      ponie/perl/sv.h
  
  Index: sv.h
  ===================================================================
  RCS file: /cvs/public/ponie/perl/sv.h,v
  retrieving revision 1.26
  retrieving revision 1.27
  diff -u -w -r1.26 -r1.27
  --- sv.h	13 Oct 2004 22:14:20 -0000	1.26
  +++ sv.h	14 Oct 2004 13:59:12 -0000	1.27
  @@ -592,8 +592,7 @@
   
   #define SvOKp(sv)		(SvFLAGS(sv) & (SVp_IOK|SVp_NOK|SVp_POK))
   #define SvIOKp(sv)		((U32)Parrot_PMC_get_intval_intkey(PL_Parrot,MUMBLE(sv), Ponie_I_SVp_IOK))
  -#define SvIOKp_on(sv)		(SvRELEASE_IVX(sv), \
  -				 Parrot_PMC_set_intval_intkey(PL_Parrot,MUMBLE(sv), Ponie_I_SVp_IOK, 1))
  +#define SvIOKp_on(sv)		Parrot_PMC_set_intval_intkey(PL_Parrot,MUMBLE(sv), Ponie_I_SVp_IOK, 1)
   #define SvNOKp(sv)		((U32)Parrot_PMC_get_intval_intkey(PL_Parrot,MUMBLE(sv), Ponie_I_SVp_NOK))
   #define SvNOKp_on(sv)		Parrot_PMC_set_intval_intkey(PL_Parrot,MUMBLE(sv), Ponie_I_SVp_NOK, 1)
   #define SvPOKp(sv)		(SvFLAGS(sv) & SVp_POK)
  @@ -601,8 +600,7 @@
   				 SvFLAGS(sv) |= SVp_POK)
   
   #define SvIOK(sv)		((U32)Parrot_PMC_get_intval_intkey(PL_Parrot,MUMBLE(sv), Ponie_I_SVf_IOK))
  -#define SvIOK_on(sv)		(SvRELEASE_IVX(sv), \
  -				 Parrot_PMC_set_intval_intkey(PL_Parrot,MUMBLE(sv), Ponie_I_SVpf_IOK, 1))
  +#define SvIOK_on(sv)		Parrot_PMC_set_intval_intkey(PL_Parrot,MUMBLE(sv), Ponie_I_SVpf_IOK, 1)
   #define SvIOK_off(sv)		Parrot_PMC_set_intval_intkey(PL_Parrot,MUMBLE(sv), Ponie_I_SVpf_IOK, 0)
   #define SvIOK_only(sv)		((void)SvOK_off(sv), \
   				    SvFLAGS(sv) |= (SVf_IOK|SVp_IOK))
  
  
  
  1.16      +4 -4      ponie/src/pmc/perl5cargo_cult.pmc
  
  Index: perl5cargo_cult.pmc
  ===================================================================
  RCS file: /cvs/public/ponie/src/pmc/perl5cargo_cult.pmc,v
  retrieving revision 1.15
  retrieving revision 1.16
  diff -u -w -r1.15 -r1.16
  --- perl5cargo_cult.pmc	13 Oct 2004 22:14:20 -0000	1.15
  +++ perl5cargo_cult.pmc	14 Oct 2004 13:59:13 -0000	1.16
  @@ -1,7 +1,7 @@
   /* Perl5QQQ.pmc -*- c -*-
    *  Copyright: 2001-2004 The Perl Foundation.  All Rights Reserved.
    *  CVS Info
  - *     $Id: perl5cargo_cult.pmc,v 1.15 2004/10/13 22:14:20 nicholas Exp $
  + *     $Id: perl5cargo_cult.pmc,v 1.16 2004/10/14 13:59:13 nicholas Exp $
    *  Overview:
    *     These are the vtable functions for the Perl5QQQ base class
    *  Data Structure and Algorithms:
  @@ -101,7 +101,7 @@
   	case Ponie_I_SVp_IOK:
   	    (((struct STRUCT_SV *)PMC_struct_val(SELF))->sv_flags) &= ~SVp_IOK;
   	    if (value) {
  -		/* FIXME SvRELEASE_IVX(sv); */
  +		SvRELEASE_IVX(MUMBLE(SELF));
   		(((struct STRUCT_SV *)PMC_struct_val(SELF))->sv_flags)
   		    |= SVp_IOK;
   	    }
  @@ -109,7 +109,7 @@
   	case Ponie_I_SVf_IOK:
   	    (((struct STRUCT_SV *)PMC_struct_val(SELF))->sv_flags) &= ~SVf_IOK;
   	    if (value) {
  -		/* FIXME SvRELEASE_IVX(sv); */
  +		SvRELEASE_IVX(MUMBLE(SELF));
   		(((struct STRUCT_SV *)PMC_struct_val(SELF))->sv_flags)
   		    |= SVf_IOK;
   	    }
  @@ -118,7 +118,7 @@
   	    (((struct STRUCT_SV *)PMC_struct_val(SELF))->sv_flags)
   		&= ~(SVp_IOK|SVf_IOK);
   	    if (value) {
  -		/* FIXME SvRELEASE_IVX(sv); */
  +		SvRELEASE_IVX(MUMBLE(SELF));
   		(((struct STRUCT_SV *)PMC_struct_val(SELF))->sv_flags)
   		    |= (SVp_IOK|SVf_IOK);
   	    }