cvs commit: ponie/perl sv.h

cvsuser     04/06/25 12:38:22

  Modified:    perl     sv.h
  Log:
  Change order of set keyed to match parrot changes
  
  Revision  Changes    Path
  1.24      +3 -3      ponie/perl/sv.h
  
  Index: sv.h
  ===================================================================
  RCS file: /cvs/public/ponie/perl/sv.h,v
  retrieving revision 1.23
  retrieving revision 1.24
  diff -u -w -r1.23 -r1.24
  --- sv.h	24 Jun 2004 14:31:34 -0000	1.23
  +++ sv.h	25 Jun 2004 19:38:22 -0000	1.24
  @@ -590,7 +590,7 @@
   #define SvIOKp_on(sv)		(SvRELEASE_IVX(sv), \
   				    SvFLAGS(sv) |= SVp_IOK)
   #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), 1, 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)
   #define SvPOKp_on(sv)		(assert_not_ROK(sv)			\
   				 SvFLAGS(sv) |= SVp_POK)
  @@ -615,8 +615,8 @@
   #define SvIsUV_off(sv)		(SvFLAGS(sv) &= ~SVf_IVisUV)
   
   #define SvNOK(sv)		((U32)Parrot_PMC_get_intval_intkey(PL_Parrot,MUMBLE(sv), Ponie_I_SVf_NOK))
  -#define SvNOK_on(sv)		Parrot_PMC_set_intval_intkey(PL_Parrot,MUMBLE(sv), 1, Ponie_I_SVpf_NOK)
  -#define SvNOK_off(sv)		Parrot_PMC_set_intval_intkey(PL_Parrot,MUMBLE(sv), 0, Ponie_I_SVpf_NOK)
  +#define SvNOK_on(sv)		Parrot_PMC_set_intval_intkey(PL_Parrot,MUMBLE(sv), Ponie_I_SVpf_NOK, 1)
  +#define SvNOK_off(sv)		Parrot_PMC_set_intval_intkey(PL_Parrot,MUMBLE(sv), Ponie_I_SVpf_NOK, 0)
   #define SvNOK_only(sv)		((void)SvOK_off(sv), \
   				    SvFLAGS(sv) |= (SVf_NOK|SVp_NOK))