[perl-devel-nytprof] r1425 committed - fix unused result compiler warnings

11 views
Skip to first unread message

perl-deve...@googlecode.com

unread,
Aug 10, 2012, 7:33:12 AM8/10/12
to develnyt...@googlegroups.com
Revision: 1425
Author: tim....@gmail.com
Date: Fri Aug 10 04:32:58 2012
Log: fix unused result compiler warnings
http://code.google.com/p/perl-devel-nytprof/source/detail?r=1425

Modified:
/trunk/NYTProf.xs

=======================================
--- /trunk/NYTProf.xs Wed Jun 27 06:13:42 2012
+++ /trunk/NYTProf.xs Fri Aug 10 04:32:58 2012
@@ -1825,7 +1825,7 @@
DBsv = hv_delete(GvHV(PL_DBsub), SvPVX(fullnamesv), (I32)total_len, 1);

if (DBsv && parse_DBsub_value(aTHX_ DBsv, NULL, &line, NULL,
SvPVX(fullnamesv))) {
- SvREFCNT_inc(DBsv); /* was made mortal by hv_delete */
+ (void)SvREFCNT_inc(DBsv); /* was made mortal by hv_delete */
sv_catpvf(fullnamesv, "@%u", (unsigned int)line);
if (hv_fetch(GvHV(PL_DBsub), SvPV_nolen(fullnamesv),
(I32)SvCUR(fullnamesv), 0)) {
static unsigned int dup_begin_seqn;
@@ -2551,9 +2551,9 @@

/* XXX if the goto op or goto'd xsub croaks then this'll leak */
/* we can't mortalize here because we're about to leave scope */
- SvREFCNT_inc(goto_subr_entry.caller_subnam_sv);
- SvREFCNT_inc(goto_subr_entry.called_subnam_sv);
- SvREFCNT_inc(sub_sv);
+ (void)SvREFCNT_inc(goto_subr_entry.caller_subnam_sv);
+ (void)SvREFCNT_inc(goto_subr_entry.called_subnam_sv);
+ (void)SvREFCNT_inc(sub_sv);

/* grab the CvSTART of the called sub since it's available */
called_cv = (CV*)SvRV(sub_sv);
Reply all
Reply to author
Forward
0 new messages