Revision: 1017
Author: [email protected]
Date: Mon Jan 18 08:56:42 2010
Log: Avoid two possible "value computed is not used" warnings from the C
compiler.
http://code.google.com/p/perl-devel-nytprof/source/detail?r=1017
Modified:
/trunk/NYTProf.xs
=======================================
--- /trunk/NYTProf.xs Mon Jan 18 08:56:38 2010
+++ /trunk/NYTProf.xs Mon Jan 18 08:56:42 2010
@@ -1750,7 +1750,7 @@
SvREFCNT_inc(DBsv); /* was made mortal by hv_delete */
sv_catpvf(subr_entry->called_subnam_sv, "@%u", (unsigned int)line);
sv_catpvf(fullnamesv, "@%u", (unsigned int)line);
- hv_store(GvHV(PL_DBsub), SvPV_nolen(fullnamesv),
SvCUR(fullnamesv), DBsv, 0);
+ (void) hv_store(GvHV(PL_DBsub), SvPV_nolen(fullnamesv),
SvCUR(fullnamesv), DBsv, 0);
}
SvREFCNT_dec(fullnamesv);
}
@@ -1926,7 +1926,7 @@
if (subr_entry->called_subpkg_pv) { /* note that a sub in this
package was called */
SV *pf_sv = *hv_fetch(pkg_fids_hv,
subr_entry->called_subpkg_pv, (I32)strlen(subr_entry->called_subpkg_pv), 1);
if (SvTYPE(pf_sv) == SVt_NULL) { /* log when first created */
- SvUPGRADE(pf_sv, SVt_PV);
+ sv_upgrade(pf_sv, SVt_PV);
if (trace_level >= 5)
logwarn("Noting that subs in package '%s' were
called\n",
subr_entry->called_subpkg_pv);
--
You've received this message because you are subscribed to
the Devel::NYTProf Development User group.
Group hosted at: http://groups.google.com/group/develnytprof-dev
Project hosted at: http://perl-devel-nytprof.googlecode.com
CPAN distribution: http://search.cpan.org/dist/Devel-NYTProf
To post, email: [email protected]
To unsubscribe, email: [email protected]
