valid_types, deBruijn tables: Initialize with INIT()

And avoid the more clumsy DOINITs

Author: khwilliamson

perl.h

@@ -6315,49 +6315,39 @@ EXTCONST U8 PL_magic_data[256] =
 EXTCONST U8 PL_magic_data[256];
 #endif
 
-#ifdef DOINIT
                         /* NL IV NV PV INV PI PN MG RX GV LV AV HV CV FM IO OBJ */
 EXTCONST bool
-PL_valid_types_IVX[]    = { 0, 1, 0, 0, 0, 1, 1, 1, 0, 1, 1, 0, 0, 0, 0, 0, 0 };
+PL_valid_types_IVX[] INIT({ 0, 1, 0, 0, 0, 1, 1, 1, 0, 1, 1, 0, 0, 0, 0, 0, 0 });
 EXTCONST bool
-PL_valid_types_NVX[]    = { 0, 0, 1, 0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 0, 0, 0, 0 };
+PL_valid_types_NVX[] INIT({ 0, 0, 1, 0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 0, 0, 0, 0 });
 EXTCONST bool
-PL_valid_types_PVX[]    = { 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 0 };
+PL_valid_types_PVX[] INIT({ 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 0 });
 EXTCONST bool
-PL_valid_types_RV[]     = { 0, 1, 0, 1, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 1, 0 };
+PL_valid_types_RV[]  INIT({ 0, 1, 0, 1, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 1, 0 });
 EXTCONST bool
-PL_valid_types_IV_set[] = { 0, 1, 0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 0 };
+PL_valid_types_IV_set[]
+                     INIT({ 0, 1, 0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 0 });
 EXTCONST bool
-PL_valid_types_NV_set[] = { 0, 0, 1, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0 };
+PL_valid_types_NV_set[]
+                     INIT({ 0, 0, 1, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0 });
 
 EXTCONST U8
-PL_deBruijn_bitpos_tab32[] = {
+PL_deBruijn_bitpos_tab32[]
+INIT({
     /* https://graphics.stanford.edu/~seander/bithacks.html#IntegerLogDeBruijn */
     0,   1, 28,  2, 29, 14, 24,  3, 30, 22, 20, 15, 25, 17,  4,  8,
     31, 27, 13, 23, 21, 19, 16,  7, 26, 12, 18,  6, 11,  5, 10,  9
-};
+});
 
 EXTCONST U8
-PL_deBruijn_bitpos_tab64[] = {
+PL_deBruijn_bitpos_tab64[]
+INIT({
     /* https://stackoverflow.com/questions/11376288/fast-computing-of-log2-for-64-bit-integers */
     63,  0, 58,  1, 59, 47, 53,  2, 60, 39, 48, 27, 54, 33, 42,  3,
     61, 51, 37, 40, 49, 18, 28, 20, 55, 30, 34, 11, 43, 14, 22,  4,
     62, 57, 46, 52, 38, 26, 32, 41, 50, 36, 17, 19, 29, 10, 13, 21,
     56, 45, 25, 31, 35, 16,  9, 12, 44, 24, 15,  8, 23,  7,  6,  5
-};
-
-#else
-
-EXTCONST bool PL_valid_types_IVX[];
-EXTCONST bool PL_valid_types_NVX[];
-EXTCONST bool PL_valid_types_PVX[];
-EXTCONST bool PL_valid_types_RV[];
-EXTCONST bool PL_valid_types_IV_set[];
-EXTCONST bool PL_valid_types_NV_set[];
-EXTCONST U8   PL_deBruijn_bitpos_tab32[];
-EXTCONST U8   PL_deBruijn_bitpos_tab64[];
-
-#endif
+});
 
 /* The constants for using PL_deBruijn_bitpos_tab */
 #define PERL_deBruijnMagic32_  0x077CB531