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
Add missing file from change #30454
[perl5.git]
/
pp.h
diff --git
a/pp.h
b/pp.h
index
429ae2c
..
9c805c6
100644
(file)
--- a/
pp.h
+++ b/
pp.h
@@
-65,7
+65,7
@@
Refetch the stack pointer. Used after a callback. See L<perlcall>.
#define TOPMARK (*PL_markstack_ptr)
#define POPMARK (*PL_markstack_ptr--)
#define TOPMARK (*PL_markstack_ptr)
#define POPMARK (*PL_markstack_ptr--)
-#define dSP
register
SV **sp = PL_stack_sp
+#define dSP SV **sp = PL_stack_sp
#define djSP dSP
#define dMARK register SV **mark = PL_stack_base + POPMARK
#define dORIGMARK const I32 origmark = mark - PL_stack_base
#define djSP dSP
#define dMARK register SV **mark = PL_stack_base + POPMARK
#define dORIGMARK const I32 origmark = mark - PL_stack_base
@@
-403,7
+403,7
@@
and C<PUSHu>.
if ((SvAMAGIC(left)||SvAMAGIC(right))) {\
SV * const tmpsv = amagic_call(left, \
right, \
if ((SvAMAGIC(left)||SvAMAGIC(right))) {\
SV * const tmpsv = amagic_call(left, \
right, \
-
meth_enum
, \
+
(meth_enum)
, \
(assign)? AMGf_assign: 0); \
if (tmpsv) { \
SPAGAIN; \
(assign)? AMGf_assign: 0); \
if (tmpsv) { \
SPAGAIN; \
@@
-437,7
+437,7
@@
and C<PUSHu>.
if(0) goto am_again; /* shut up unused warning */ \
am_again: \
if ((SvAMAGIC(arg))&&\
if(0) goto am_again; /* shut up unused warning */ \
am_again: \
if ((SvAMAGIC(arg))&&\
- (tmpsv=AMG_CALLun_var(arg,
meth_enum
))) {\
+ (tmpsv=AMG_CALLun_var(arg,
(meth_enum)
))) {\
SPAGAIN; if (shift) sp += shift; \
set(tmpsv); ret; } \
} STMT_END
SPAGAIN; if (shift) sp += shift; \
set(tmpsv); ret; } \
} STMT_END
@@
-466,6
+466,8
@@
and C<PUSHu>.
} STMT_END
#define tryAMAGICunDEREF(meth) tryAMAGICunW(meth,setAGAIN,0,(void)0)
} STMT_END
#define tryAMAGICunDEREF(meth) tryAMAGICunW(meth,setAGAIN,0,(void)0)
+#define tryAMAGICunDEREF_var(meth_enum) \
+ tryAMAGICunW_var(meth_enum,setAGAIN,0,(void)0)
#define opASSIGN (PL_op->op_flags & OPf_STACKED)
#define SETsv(sv) STMT_START { \
#define opASSIGN (PL_op->op_flags & OPf_STACKED)
#define SETsv(sv) STMT_START { \