-DDEBUGGING, it's going to need PL_reg_name even if core perl doesn't.
So something is always going to use it, so always define it, and always
export it. (But only define it once, so that static builds work.)
p4raw-id: //depot/perl@30464
Perl_sv_peek
Perl_hv_assert
PL_block_type
Perl_sv_peek
Perl_hv_assert
PL_block_type
PL_watchaddr
PL_watchok
PL_watch_pvx
PL_watchaddr
PL_watchok
PL_watch_pvx
/* reg_name[] - Opcode/state names in string form, for debugging */
/* reg_name[] - Opcode/state names in string form, for debugging */
-#ifdef DEBUGGING
-# ifndef DOINIT
EXTCONST char * PL_reg_name[];
EXTCONST char * PL_reg_name[];
EXTCONST char * PL_reg_name[] = {
EOP
EXTCONST char * PL_reg_name[] = {
EOP
-# endif /* DOINIT */
-#endif /* DEBUGGING */
/* reg_name[] - Opcode/state names in string form, for debugging */
/* reg_name[] - Opcode/state names in string form, for debugging */
-#ifdef DEBUGGING
-# ifndef DOINIT
EXTCONST char * PL_reg_name[];
EXTCONST char * PL_reg_name[];
EXTCONST char * PL_reg_name[] = {
"END", /* 0000 */
"SUCCEED", /* 0x01 */
EXTCONST char * PL_reg_name[] = {
"END", /* 0000 */
"SUCCEED", /* 0x01 */
"KEEPS_next", /* REGNODE_MAX +0x27 */
"KEEPS_next_fail", /* REGNODE_MAX +0x28 */
};
"KEEPS_next", /* REGNODE_MAX +0x27 */
"KEEPS_next_fail", /* REGNODE_MAX +0x28 */
};
-# endif /* DOINIT */
-#endif /* DEBUGGING */