projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
support bytecode and C backends in perlcc (patch suggested
[p5sagit/p5-mst-13.2.git]
/
pp.h
diff --git
a/pp.h
b/pp.h
index
ec701f3
..
11dd9d0
100644
(file)
--- a/
pp.h
+++ b/
pp.h
@@
-49,6
+49,8
@@
#define dTARG SV *targ
+#define dXS_TARGET SV * targ = (PL_op->op_private & OPpENTERSUB_HASTARG ? PAD_SV(PL_op->op_targ) : sv_newmortal())
+
#define NORMAL PL_op->op_next
#define DIE return Perl_die