summaryrefslogtreecommitdiff
path: root/opcode.h
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2014-12-19 16:57:47 -0800
committerFather Chrysostomos <sprout@cpan.org>2014-12-21 07:10:23 -0800
commit57ee255ea7360fa9753a3025f9f8751ea6340d7d (patch)
tree0503a89a3e149e646559e1f4985edebc49d8e03e /opcode.h
parent71b44dba0356e9051049c5bae6fa1ac981114332 (diff)
downloadperl-57ee255ea7360fa9753a3025f9f8751ea6340d7d.tar.gz
op.c: Skip allocating entersub targ for Perl sub
The target of entersub ops is only used by XSUBs to return things. Pure-Perl subs don’t use the target. (And if a pure-Perl sub is later replaced with an XS one, dXSTARG already has a workaround.)
Diffstat (limited to 'opcode.h')
-rw-r--r--opcode.h2
1 files changed, 1 insertions, 1 deletions
diff --git a/opcode.h b/opcode.h
index 6aef30707a..cbd348de29 100644
--- a/opcode.h
+++ b/opcode.h
@@ -1933,7 +1933,7 @@ EXTCONST U32 PL_opargs[] = {
0x00000304, /* orassign */
0x00000304, /* dorassign */
0x00000e40, /* method */
- 0x00002149, /* entersub */
+ 0x00002141, /* entersub */
0x00000100, /* leavesub */
0x00000100, /* leavesublv */
0x00009b08, /* caller */