@@ -823,27 +823,14 @@ sub print_PL_op_private_tables {
823823 print $fh <<EOF ;
824824START_EXTERN_C
825825
826- #ifndef DOINIT
827-
828- /* data about the flags in op_private */
829-
830- EXTCONST I16 PL_op_private_bitdef_ix[];
831- EXTCONST U16 PL_op_private_bitdefs[];
832- EXTCONST char PL_op_private_labels[];
833- EXTCONST I16 PL_op_private_bitfields[];
834- EXTCONST U8 PL_op_private_valid[];
835-
836- #else
837-
838-
839826/* PL_op_private_labels[]: the short descriptions of private flags.
840827 * All labels are concatenated into a single char array
841828 * (separated by \\ 0's) for compactness.
842829 */
843830
844- EXTCONST char PL_op_private_labels[] = {
831+ EXTCONST char PL_op_private_labels[] INIT( {
845832$PL_op_private_labels
846- };
833+ }) ;
847834
848835
849836
@@ -857,17 +844,17 @@ sub print_PL_op_private_tables {
857844 * -1
858845 */
859846
860- EXTCONST I16 PL_op_private_bitfields[] = {
847+ EXTCONST I16 PL_op_private_bitfields[] INIT( {
861848$PL_op_private_bitfields
862- };
849+ }) ;
863850
864851
865852/* PL_op_private_bitdef_ix[]: map an op number to a starting position
866853 * in PL_op_private_bitdefs. If -1, the op has no bits defined */
867854
868- EXTCONST I16 PL_op_private_bitdef_ix[] = {
855+ EXTCONST I16 PL_op_private_bitdef_ix[] INIT( {
869856$PL_op_private_bitdef_ix
870- };
857+ }) ;
871858
872859
873860
@@ -883,19 +870,17 @@ sub print_PL_op_private_tables {
883870 * into PL_op_private_bitfields[] (for a bit field)
884871 */
885872
886- EXTCONST U16 PL_op_private_bitdefs[] = {
873+ EXTCONST U16 PL_op_private_bitdefs[] INIT( {
887874$PL_op_private_bitdefs
888- };
875+ }) ;
889876
890877
891878/* PL_op_private_valid: for each op, indexed by op_type, indicate which
892879 * flags bits in op_private are legal */
893880
894- EXTCONST U8 PL_op_private_valid[] = {
881+ EXTCONST U8 PL_op_private_valid[] INIT( {
895882$PL_op_private_valid
896- };
897-
898- #endif /* !DOINIT */
883+ });
899884
900885END_EXTERN_C
901886
0 commit comments