diff options
| author | Doug MacEachern <dougm@covalent.net> | 2001-02-18 05:08:04 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-02-18 22:16:50 +0000 |
| commit | 8063af025e8b11a3a92c708534a72a8c4fe60322 (patch) | |
| tree | 73543e90c1f50fccd4b8b5803329f3df72f684f5 /ext/B/B.xs | |
| parent | 3baa4c62cda542368be1e7e1f7af8bd8257c2ff4 (diff) | |
| download | perl-8063af025e8b11a3a92c708534a72a8c4fe60322.tar.gz | |
[patch] -Wall cleanup round 2
Message-ID: <Pine.LNX.4.21.0102181304520.10021-100000@mako.covalent.net>
p4raw-id: //depot/perl@8837
Diffstat (limited to 'ext/B/B.xs')
| -rw-r--r-- | ext/B/B.xs | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/ext/B/B.xs b/ext/B/B.xs index 25d69e97bd..fc97c4383a 100644 --- a/ext/B/B.xs +++ b/ext/B/B.xs @@ -582,11 +582,12 @@ char * OP_name(o) B::OP o CODE: - ST(0) = sv_newmortal(); - sv_setpv(ST(0), PL_op_name[o->op_type]); + RETVAL = PL_op_name[o->op_type]; + OUTPUT: + RETVAL -char * +void OP_ppaddr(o) B::OP o PREINIT: @@ -656,11 +657,12 @@ LISTOP_children(o) OP * kid = NO_INIT int i = NO_INIT CODE: - ST(0) = sv_newmortal(); i = 0; for (kid = o->op_first; kid; kid = kid->op_sibling) i++; - sv_setiv(ST(0), i); + RETVAL = i; + OUTPUT: + RETVAL #define PMOP_pmreplroot(o) o->op_pmreplroot #define PMOP_pmreplstart(o) o->op_pmreplstart @@ -1278,7 +1280,7 @@ HvARRAY(hv) I32 len; (void)hv_iterinit(hv); EXTEND(sp, HvKEYS(hv) * 2); - while (sv = hv_iternextsv(hv, &key, &len)) { + while ((sv = hv_iternextsv(hv, &key, &len))) { PUSHs(newSVpvn(key, len)); PUSHs(make_sv_object(aTHX_ sv_newmortal(), sv)); } |