From 13d6edb45df716e9bd8a40bf4d0dcc0834c8e1d8 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 3 Mar 2007 12:22:19 +0000
Subject: Define and initialise reg_name only once. This allows re to be a
 static extension. As it's now no-longer a static variable in regcomp.c, it
 needs a PL_ prefix.

p4raw-id: //depot/perl@30451
---
 regcomp.pl | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

(limited to 'regcomp.pl')

diff --git a/regcomp.pl b/regcomp.pl
index 14c2eb7be2..89bbbe0271 100644
--- a/regcomp.pl
+++ b/regcomp.pl
@@ -157,10 +157,15 @@ while (++$ind <= $lastregop) {
 print OUT <<EOP;
 };
 
+#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[] = {
 EOP
 
 $ind = 0;
@@ -181,12 +186,8 @@ while (++$ind <= $tot) {
 
 print OUT <<EOP;
 };
+#  endif /* DOINIT */
 #endif /* DEBUGGING */
-#else
-#ifdef DEBUGGING
-extern const char * reg_name[];
-#endif
-#endif /* REG_COMP_C */
 
 /* ex: set ro: */
 EOP
-- 
cgit v1.2.1