cvs commit: ponie/perl sv.h

cvsuser     04/03/16 09:08:33

  Modified:    perl     sv.h
  Log:
  Remove the unnecessary cast, which in some places is an LVALUE cast
  (and therefore something that strict compilers are entitled to fault)
  
  Revision  Changes    Path
  1.13      +2 -2      ponie/perl/sv.h
  
  Index: sv.h
  ===================================================================
  RCS file: /cvs/public/ponie/perl/sv.h,v
  retrieving revision 1.12
  retrieving revision 1.13
  diff -u -w -r1.12 -r1.13
  --- sv.h	10 Mar 2004 23:07:23 -0000	1.12
  +++ sv.h	16 Mar 2004 17:08:33 -0000	1.13
  @@ -787,7 +787,7 @@
   #define FmLINES(sv)	(* Perl_macro_BmPREVIOUS(aTHX_ (SV*)(sv)))
   
   #define LvTYPE(sv)      (*Perl_macro_LvTYPE(aTHX_ (SV*)(sv)))
  -#define LvTARG(sv)      ((SV*)*Perl_macro_LvTARG(aTHX_ (SV*)(sv)))
  +#define LvTARG(sv)      ( * Perl_macro_LvTARG(aTHX_ (SV*)(sv)))
   #define LvTARGOFF(sv)   ( * Perl_macro_LvTARGOFF(aTHX_ (SV*)(sv)))
   #define LvTARGLEN(sv)   ( * Perl_macro_LvTARGLEN(aTHX_ (SV*)(sv)))