This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Convert lvalue usage of SvNVX() and SvIVX() to SvNV_set() and
authorSteve Peters <steve@fisharerojo.org>
Thu, 6 Oct 2005 19:23:59 +0000 (19:23 +0000)
committerSteve Peters <steve@fisharerojo.org>
Thu, 6 Oct 2005 19:23:59 +0000 (19:23 +0000)
SvIV_set().  Otherwise, compiling with -DPERL_DEBUG_COW fails.

p4raw-id: //depot/perl@25708

ext/Compress/Zlib/Zlib.xs

index 3fce623..5d64890 100644 (file)
@@ -722,7 +722,7 @@ CODE:
     SvUPGRADE(ST(0),SVt_PVNV);
     sv_setpvn(ST(0),ptr,len);
     if(SvNOK(num) || SvPOK(num) || SvMAGICAL(num)) {
-        SvNVX(ST(0)) = SvNV(num);
+        SvNV_set(ST(0), SvNV(num));
         SvNOK_on(ST(0));
     }
 #ifdef SVf_IVisUVXXXX
@@ -733,7 +733,7 @@ CODE:
     }
 #endif
     else {
-        SvIVX(ST(0)) = SvIV(num);
+        SvIV_set(ST(0), SvIV(num));
         SvIOK_on(ST(0));
     }
     XSRETURN(1);