This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Clarify op.h comments for which ops the OPpDEREF* private flags
authorDave Mitchell <davem@fdisolutions.com>
Fri, 26 Mar 2004 18:56:50 +0000 (18:56 +0000)
committerDave Mitchell <davem@fdisolutions.com>
Fri, 26 Mar 2004 18:56:50 +0000 (18:56 +0000)
are actually used; update Concise.pm to match

p4raw-id: //depot/perl@22597

ext/B/B/Concise.pm
op.h

index 67360d4..cb40021 100644 (file)
@@ -443,7 +443,7 @@ $priv{$_}{64} = "RTIME" for ("match", "subst", "substcont");
 $priv{"repeat"}{64} = "DOLIST";
 $priv{"leaveloop"}{64} = "CONT";
 @{$priv{$_}}{32,64,96} = ("DREFAV", "DREFHV", "DREFSV")
-  for ("entersub", map("rv2${_}v", "a", "s", "h", "g"), "aelem", "helem");
+  for (qw(rv2gv rv2sv padsv aelem helem));
 $priv{"entersub"}{16} = "DBG";
 $priv{"entersub"}{32} = "TARG";
 @{$priv{$_}}{4,8,128} = ("INARGS","AMPER","NO()") for ("entersub", "rv2cv");
diff --git a/op.h b/op.h
index 265b716..6b3f1be 100644 (file)
--- a/op.h
+++ b/op.h
@@ -153,8 +153,8 @@ Deprecated.  Use C<GIMME_V> instead.
 /* Private for OP_REPEAT */
 #define OPpREPEAT_DOLIST       64      /* List replication. */
 
-/* Private for OP_RV2?V, OP_?ELEM */
-#define OPpDEREF               (32|64) /* Want ref to something: */
+/* Private for OP_RV2GV, OP_RV2SV, OP_AELEM, OP_AHLEM, OP_PADSV */
+#define OPpDEREF               (32|64) /* autovivify: Want ref to something: */
 #define OPpDEREF_AV            32      /*   Want ref to AV. */
 #define OPpDEREF_HV            64      /*   Want ref to HV. */
 #define OPpDEREF_SV            (32|64) /*   Want ref to SV. */