[perl #41775] Memoize bug (and patch): problem with LIST_CACHE => MERGE

[perl5.git] / regnodes.h

diff --git a/regnodes.h b/regnodes.h
index 8727a01..6f6e0b2 100644 (file)
--- a/regnodes.h
+++ b/regnodes.h
@@ -452,10 +452,14 @@ static const char reg_off_by_arg[] = {
        0,      /* PSEUDO       */
 };
 
+#endif /* REG_COMP_C */
+
 /* reg_name[] - Opcode/state names in string form, for debugging */
 
-#ifdef DEBUGGING
-const char * reg_name[] = {
+#ifndef DOINIT
+EXTCONST char * PL_reg_name[];
+#else
+EXTCONST char * PL_reg_name[] = {
        "END",                          /* 0000 */
        "SUCCEED",                      /* 0x01 */
        "BOL",                          /* 0x02 */
@@ -583,11 +587,6 @@ const char * reg_name[] = {
        "KEEPS_next",                   /* REGNODE_MAX +0x27 */
        "KEEPS_next_fail",              /* REGNODE_MAX +0x28 */
 };
-#endif /* DEBUGGING */
-#else
-#ifdef DEBUGGING
-extern const char * reg_name[];
-#endif
-#endif /* REG_COMP_C */
+#endif /* DOINIT */
 
 /* ex: set ro: */