@@ -77,7 +77,8 @@ struct mro_alg {
7777 AV * (* resolve )(pTHX_ HV * stash , U32 level );
7878 const char * name ;
7979 U16 length ;
80- U16 kflags ; /* For the hash API - set HVhek_UTF8 if name is UTF-8 */
80+ U16 kflags ; /* For the hash API - set
81+ HVhek_UTF8 if name is UTF-8 */
8182 U32 hash ; /* or 0 */
8283};
8384
@@ -89,13 +90,19 @@ struct mro_meta {
8990 value stored in and owned by mro_linear_all. */
9091 SV * mro_linear_current ;
9192 HV * mro_nextmethod ; /* next::method caching */
92- U32 cache_gen ; /* Bumping this invalidates our method cache */
93- U32 pkg_gen ; /* Bumps when local methods/@ISA change */
94- const struct mro_alg * mro_which ; /* which mro alg is in use? */
95- HV * isa ; /* Everything this class @ISA */
93+ U32 cache_gen ; /* Bumping this invalidates
94+ our method cache */
95+ U32 pkg_gen ; /* Bumps when local
96+ methods/@ISA change */
97+ const struct mro_alg * mro_which ; /* which mro alg is
98+ in use? */
99+ HV * isa ; /* Everything this
100+ class @ISA */
96101 HV * super ; /* SUPER method cache */
97- CV * destroy ; /* DESTROY method if destroy_gen non-zero */
98- U32 destroy_gen ; /* Generation number of DESTROY cache */
102+ CV * destroy ; /* DESTROY method if
103+ destroy_gen non-zero */
104+ U32 destroy_gen ; /* Generation number of
105+ DESTROY cache */
99106};
100107
101108#define MRO_GET_PRIVATE_DATA (smeta , which ) \
@@ -113,29 +120,34 @@ union _xhvnameu {
113120
114121struct xpvhv_aux {
115122 union _xhvnameu xhv_name_u ; /* name, if a symbol table */
116- AV * xhv_backreferences ; /* back references for weak references */
123+ AV * xhv_backreferences ; /* back references for
124+ weak references */
117125 HE * xhv_eiter ; /* current entry of iterator */
118126 I32 xhv_riter ; /* current root of iterator */
119127
120- /* Concerning xhv_name_count: When non-zero, xhv_name_u contains a pointer
121- * to an array of HEK pointers, this being the length. The first element is
122- * the name of the stash, which may be NULL. If xhv_name_count is positive,
123- * then *xhv_name is one of the effective names. If xhv_name_count is nega-
124- * tive, then xhv_name_u.xhvnameu_names[1] is the first effective name.
125- */
128+ /* Concerning xhv_name_count: When non-zero, xhv_name_u contains
129+ * a pointer to an array of HEK pointers, this being the length.
130+ * The first element is the name of the stash, which may be
131+ * NULL. If xhv_name_count is positive, then *xhv_name is one of
132+ * the effective names. If xhv_name_count is nega- tive, then
133+ * xhv_name_u.xhvnameu_names[1] is the first effective name.
134+ */
126135 I32 xhv_name_count ;
127136 struct mro_meta * xhv_mro_meta ;
128137#ifdef PERL_HASH_RANDOMIZE_KEYS
129- U32 xhv_rand ; /* random value for hash traversal */
130- U32 xhv_last_rand ; /* last random value for hash traversal,
131- used to detect each() after insert
132- for warnings */
138+ U32 xhv_rand ; /* random value for hash
139+ traversal */
140+ U32 xhv_last_rand ; /* last random value for hash
141+ traversal, used to detect each()
142+ after insert for warnings */
133143#endif
134144 U32 xhv_aux_flags ; /* assorted extra flags */
135145};
136146
137- #define HvAUXf_SCAN_STASH 0x1 /* stash is being scanned by gv_check */
138- #define HvAUXf_NO_DEREF 0x2 /* @{}, %{} etc (and nomethod) not present */
147+ #define HvAUXf_SCAN_STASH 0x1 /* stash is being scanned
148+ by gv_check */
149+ #define HvAUXf_NO_DEREF 0x2 /* @{}, %{} etc (and nomethod)
150+ not present */
139151
140152/* hash structure: */
141153/* This structure must match the beginning of struct xpvmg in sv.h. */
@@ -150,7 +162,8 @@ struct xpvhv_with_aux {
150162 HV * xmg_stash ; /* class package */
151163 union _xmgu xmg_u ;
152164 STRLEN xhv_keys ; /* total keys, including placeholders */
153- STRLEN xhv_max ; /* subscript of last element of xhv_array */
165+ STRLEN xhv_max ; /* subscript of last element
166+ of xhv_array */
154167 struct xpvhv_aux xhv_aux ;
155168};
156169
@@ -438,16 +451,18 @@ Use this to check whether it is valid to call C<HvAUX()>.
438451
439452#define HVhek_UTF8 0x01 /* Key is utf8 encoded. */
440453#define HVhek_WASUTF8 0x02 /* Key is bytes here, but was
441- supplied as utf8. */
454+ supplied as utf8. */
442455#define HVhek_NOTSHARED 0x04 /* This key isn't a shared hash key. */
443456/* the following flags are options for functions,
444457 they are not stored in heks */
445- #define HVhek_FREEKEY 0x100 /* Internal flag to say key is Newx()ed. */
446- #define HVhek_PLACEHOLD 0x200 /* Internal flag to create placeholder. (may
447- * change, but Storable is a core module) */
458+ #define HVhek_FREEKEY 0x100 /* Internal flag to say key
459+ is Newx()ed. */
460+ #define HVhek_PLACEHOLD 0x200 /* Internal flag to create placeholder.
461+ * (may change, but Storable is a core
462+ * module) */
448463#define HVhek_KEYCANONICAL 0x400 /* Internal flag - key is in canonical
449- form. If the string is UTF-8, it
450- cannot be converted to bytes. */
464+ form. If the string is UTF-8, it
465+ cannot be converted to bytes. */
451466#define HVhek_ENABLEHVKFLAGS (HVhek_UTF8|HVhek_WASUTF8)
452467
453468#define HEK_UTF8 (hek ) (HEK_FLAGS(hek) & HVhek_UTF8)
@@ -624,7 +639,8 @@ instead of a string/length pair, and no precomputed hash.
624639
625640/* Flag bits are HVhek_UTF8, HVhek_WASUTF8, then */
626641#define HVrhek_undef 0x00 /* Value is undef. */
627- #define HVrhek_delete 0x10 /* Value is placeholder - signifies delete. */
642+ #define HVrhek_delete 0x10 /* Value is placeholder -
643+ signifies delete. */
628644#define HVrhek_IV 0x20 /* Value is IV. */
629645#define HVrhek_UV 0x30 /* Value is UV. */
630646#define HVrhek_PV 0x40 /* Value is a (byte) string. */
0 commit comments