Change 30017 by [EMAIL PROTECTED] on 2007/01/26 16:41:52
Silence a few pedantic warnings
Affected files ...
... //depot/perl/sv.c#1364 edit
Differences ...
==== //depot/perl/sv.c#1364 (text) ====
Index: perl/sv.c
--- perl/sv.c#1363~29977~ 2007-01-25 12:57:56.000000000 -0800
+++ perl/sv.c 2007-01-26 08:41:52.000000000 -0800
@@ -697,7 +697,7 @@
newroot->next = aroot;
aroot = newroot;
PL_body_arenas = (void *) newroot;
- DEBUG_m(PerlIO_printf(Perl_debug_log, "new arenaset %p\n", aroot));
+ DEBUG_m(PerlIO_printf(Perl_debug_log, "new arenaset %p\n",
(void*)aroot));
}
/* ok, now have arena-set with at least 1 empty/available arena-desc */
@@ -3352,7 +3352,7 @@
stype = SvTYPE(sstr);
dtype = SvTYPE(dstr);
- SvAMAGIC_off(dstr);
+ (void)SvAMAGIC_off(dstr);
if ( SvVOK(dstr) )
{
/* need to nuke the magic */
@@ -7744,7 +7744,7 @@
new_SV(sv);
SV_CHECK_THINKFIRST_COW_DROP(rv);
- SvAMAGIC_off(rv);
+ (void)SvAMAGIC_off(rv);
if (SvTYPE(rv) >= SVt_PVMG) {
const U32 refcnt = SvREFCNT(rv);
@@ -7921,7 +7921,7 @@
if (Gv_AMG(stash))
SvAMAGIC_on(sv);
else
- SvAMAGIC_off(sv);
+ (void)SvAMAGIC_off(sv);
if(SvSMAGICAL(tmpRef))
if(mg_find(tmpRef, PERL_MAGIC_ext) || mg_find(tmpRef, PERL_MAGIC_uvar))
End of Patch.
