Add global hash to handle \p{user-defined}

A global hash has to be specially handled.  The keys can't be shared,
and all the SVs stored into it must be in its thread.  This commit adds
the hash, and initialization, and macros for context change, but doesn't
use them.  The code to deal with this is entirely confined to regcomp.c.

1 files changed, 8 insertions, 1 deletions

diff --git a/perlvars.h b/perlvars.h
index 331105e841..51c939e128 100644
--- a/perlvars.h
+++ b/perlvars.h
@@ -307,8 +307,15 @@ PERLVAR(G, utf8_mark,	SV *)
 PERLVAR(G, InBitmap,	SV *)
 PERLVAR(G, CCC_non0_non230,	SV *)
 
+/* Definitions of user-defined \p{} properties, as the subs that define them
+ * are only called once */
+PERLVARI(G, user_def_props,	HV *, NULL)
+
 #if defined(USE_ITHREADS)
-PERLVAR(G, user_prop_mutex, perl_mutex)
+PERLVAR(G, user_def_props_aTHX, PerlInterpreter *)  /* aTHX that user_def_props
+                                                       was defined in */
+PERLVAR(G, user_prop_mutex, perl_mutex)    /* Mutex for manipulating
+                                              PL_user_defined_properties */
 #endif
 
 /* Everything that folds to a given character, for case insensitivity regex