cvs commit: ponie/perl sv.h

cvsuser     05/04/11 09:31:38

  Modified:    perl     sv.h
  Log:
  Force SvIVX() to be an R value
  
  Revision  Changes    Path
  1.63      +1 -1      ponie/perl/sv.h
  
  Index: sv.h
  ===================================================================
  RCS file: /cvs/public/ponie/perl/sv.h,v
  retrieving revision 1.62
  retrieving revision 1.63
  diff -u -r1.62 -r1.63
  --- sv.h	10 Apr 2005 04:17:49 -0000	1.62
  +++ sv.h	11 Apr 2005 16:31:38 -0000	1.63
  @@ -865,7 +865,7 @@
   #define SvRVx(sv) SvRV(sv)
   
   #ifdef PERL_CORE
  -#define SvIVX(sv) (* Perl_macro_SvIVX(aTHX_ (SV*) (sv)))
  +#define SvIVX(sv) (0 + * Perl_macro_SvIVX(aTHX_ (SV*) (sv)))
   #define SvUVX(sv) (* Perl_macro_SvUVX(aTHX_ (SV*) (sv)))
   #define SvNVX(sv) (0.0 + * Perl_macro_SvNVX(aTHX_ (SV*) (sv)))
   #else