diff options
author | Father Chrysostomos <sprout@cpan.org> | 2014-12-19 16:57:47 -0800 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2014-12-21 07:10:23 -0800 |
commit | 57ee255ea7360fa9753a3025f9f8751ea6340d7d (patch) | |
tree | 0503a89a3e149e646559e1f4985edebc49d8e03e /opcode.h | |
parent | 71b44dba0356e9051049c5bae6fa1ac981114332 (diff) | |
download | perl-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.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1933,7 +1933,7 @@ EXTCONST U32 PL_opargs[] = { 0x00000304, /* orassign */ 0x00000304, /* dorassign */ 0x00000e40, /* method */ - 0x00002149, /* entersub */ + 0x00002141, /* entersub */ 0x00000100, /* leavesub */ 0x00000100, /* leavesublv */ 0x00009b08, /* caller */ |