This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Use both cache entries for Perl_sv_pos_b2u().
[perl5.git]
/
cop.h
diff --git
a/cop.h
b/cop.h
index
92a61df
..
ef92d8e
100644
(file)
--- a/
cop.h
+++ b/
cop.h
@@
-237,7
+237,7
@@
struct block_sub {
GV * dfoutgv;
AV * savearray;
AV * argarray;
GV * dfoutgv;
AV * savearray;
AV * argarray;
-
long
olddepth;
+
I32
olddepth;
U8 hasargs;
U8 lval; /* XXX merge lval and hasargs? */
PAD *oldcomppad;
U8 hasargs;
U8 lval; /* XXX merge lval and hasargs? */
PAD *oldcomppad;
@@
-254,8
+254,8
@@
struct block_sub {
cx->blk_sub.hasargs = hasargs; \
cx->blk_sub.retop = NULL; \
if (!CvDEPTH(cv)) { \
cx->blk_sub.hasargs = hasargs; \
cx->blk_sub.retop = NULL; \
if (!CvDEPTH(cv)) { \
-
(void)SvREFCNT_inc(cv);
\
-
(void)SvREFCNT_inc(cv);
\
+
SvREFCNT_inc_void(cv);
\
+
SvREFCNT_inc_void(cv);
\
SAVEFREESV(cv); \
}
SAVEFREESV(cv); \
}
@@
-277,7
+277,7
@@
struct block_sub {
cx->blk_sub.retop = NULL; \
cx->blk_sub.hasargs = 0; \
cx->blk_sub.dfoutgv = PL_defoutgv; \
cx->blk_sub.retop = NULL; \
cx->blk_sub.hasargs = 0; \
cx->blk_sub.dfoutgv = PL_defoutgv; \
-
(void)SvREFCNT_inc
(cx->blk_sub.dfoutgv)
+
SvREFCNT_inc_void
(cx->blk_sub.dfoutgv)
#define POP_SAVEARRAY() \
STMT_START { \
#define POP_SAVEARRAY() \
STMT_START { \