Move the hints from op_private into cop_hints. This allows all 32 bits

to be stored. Make B::Concise display the new hints field, and modify
B::Deparse to use it.

p4raw-id: //depot/perl@28257

1 files changed, 4 insertions, 3 deletions

diff --git a/perl.h b/perl.h
index f438ca0249..364c409619 100644
--- a/perl.h
+++ b/perl.h
@@ -4208,9 +4208,10 @@ enum {		/* pass one of these to get_vtbl */
     want_vtbl_hintselem
 };
 
-				/* Note: the lowest 8 bits are reserved for
-				   stuffing into op->op_private */
-#define HINT_PRIVATE_MASK	0x000000ff
+
+/* Hints are now stored in a dedicated U32, so the bottom 8 bits are no longer
+   special and there is no need for HINT_PRIVATE_MASK for COPs
+   However, bitops store HINT_INTEGER in their op_private.  */
 #define HINT_INTEGER		0x00000001 /* integer pragma */
 #define HINT_STRICT_REFS	0x00000002 /* strict pragma */
 #define HINT_LOCALE		0x00000004 /* locale pragma */