diff options
| -rw-r--r-- | ext/B/B/Concise.pm | 2 | ||||
| -rw-r--r-- | op.h | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/ext/B/B/Concise.pm b/ext/B/B/Concise.pm index 45e7ba95c3..055166751d 100644 --- a/ext/B/B/Concise.pm +++ b/ext/B/B/Concise.pm @@ -613,7 +613,7 @@ $priv{$_}{4} = "DREFed" for (qw(rv2sv rv2av rv2hv)); for (qw(rv2gv rv2sv padsv aelem helem)); $priv{$_}{16} = "STATE" for ("padav", "padhv", "padsv"); $priv{rv2gv}{4} = "NOINIT"; -@{$priv{"entersub"}}{1,4,16,32,64} = qw( DREF INARGS DBG TARG ); +@{$priv{"entersub"}}{1,4,16,32,64} = qw( INARGS TARG DBG DEREF ); @{$priv{rv2cv}}{1,8,128} = ("CONST","AMPER","NO()"); $priv{"gv"}{32} = "EARLYCV"; $priv{"aelem"}{16} = $priv{"helem"}{16} = "LVDEFER"; @@ -204,9 +204,9 @@ Deprecated. Use C<GIMME_V> instead. /* OP_ENTERSUB only */ #define OPpENTERSUB_DB 16 /* Debug subroutine. */ -#define OPpENTERSUB_HASTARG 32 /* Called from OP tree. */ -#define OPpENTERSUB_INARGS 4 /* Lval used as arg to a sub. */ -#define OPpENTERSUB_DEREF 1 /* Lval call that autovivifies. */ +#define OPpENTERSUB_HASTARG 4 /* Called from OP tree. */ +#define OPpENTERSUB_INARGS 1 /* Lval used as arg to a sub. */ +#define OPpENTERSUB_DEREF 32 /* Lval call that autovivifies. */ /* used by HINT_STRICT_SUBS 2 */ /* Mask for OP_ENTERSUB flags, the absence of which must be propagated in dynamic context */ |