cvs commit: ponie/perl sv.h

cvsuser     04/02/29 14:05:43

  Modified:    perl     sv.h
  Log:
  grumble grumble, please not use xxv->xv directly
  
  Revision  Changes    Path
  1.9       +7 -7      ponie/perl/sv.h
  
  Index: sv.h
  ===================================================================
  RCS file: /cvs/public/ponie/perl/sv.h,v
  retrieving revision 1.8
  retrieving revision 1.9
  diff -u -w -r1.8 -r1.9
  --- sv.h	29 Feb 2004 18:02:19 -0000	1.8
  +++ sv.h	29 Feb 2004 22:05:42 -0000	1.9
  @@ -750,7 +750,7 @@
   #define SvCUR(sv) ( * Perl_macro_SvCUR(aTHX_ (SV*) sv))
   #define SvLEN(sv) ( * Perl_macro_SvLEN(aTHX_ (SV*) sv))
   #define SvLENx(sv) SvLEN(sv)
  -#define SvEND(sv)(((XPV*)  SvANY(sv))->xpv_pv + ((XPV*)SvANY(sv))->xpv_cur)
  +#define SvEND(sv)(SvPVX(sv) + SvCUR(sv))
   #define SvENDx(sv) ((PL_Sv = (sv)), SvEND(PL_Sv))
   #define SvMAGIC(sv)	(* Perl_macro_SvMAGIC(aTHX_ (SV*) sv))
   #define SvSTASH(sv)	(* Perl_macro_SvSTASH(aTHX_ (SV*) sv))
  @@ -763,22 +763,22 @@
   		(void) SvIV(sv); } STMT_END
   #define SvIV_set(sv, val) \
   	STMT_START { assert(SvTYPE(sv) == SVt_IV || SvTYPE(sv) >= SVt_PVIV); \
  -		(((XPVIV*)  SvANY(sv))->xiv_iv = val); } STMT_END
  +		(SvIVX(sv) = val); } STMT_END
   #define SvNV_set(sv, val) \
   	STMT_START { assert(SvTYPE(sv) == SVt_NV || SvTYPE(sv) >= SVt_PVNV); \
  -		(((XPVNV*)  SvANY(sv))->xnv_nv = val); } STMT_END
  +		(SvNVX(sv) = val); } STMT_END
   #define SvPV_set(sv, val) \
   	STMT_START { assert(SvTYPE(sv) >= SVt_PV); \
  -		(((XPV*)  SvANY(sv))->xpv_pv = val); } STMT_END
  +		(SvPVX(sv) = val); } STMT_END
   #define SvCUR_set(sv, val) \
   	STMT_START { assert(SvTYPE(sv) >= SVt_PV); \
  -		(((XPV*)  SvANY(sv))->xpv_cur = val); } STMT_END
  +		(SvCUR(sv) = val); } STMT_END
   #define SvLEN_set(sv, val) \
   	STMT_START { assert(SvTYPE(sv) >= SVt_PV); \
  -		(((XPV*)  SvANY(sv))->xpv_len = val); } STMT_END
  +		(SvLEN(sv) = val); } STMT_END
   #define SvEND_set(sv, val) \
   	STMT_START { assert(SvTYPE(sv) >= SVt_PV); \
  -		(((XPV*)  SvANY(sv))->xpv_cur = val - SvPVX(sv)); } STMT_END
  +		(SvCUR(sv) = val - SvPVX(sv)); } STMT_END
   
   #define BmRARE(sv)	((XPVBM*)  SvANY(sv))->xbm_rare
   #define BmUSEFUL(sv)	((XPVBM*)  SvANY(sv))->xbm_useful