X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/115ff745268490ae5fb5ecaee00be54172e302e0..5eb9f461ffc6ee3b593f727dcbe05bcdc77bde57:/perlvars.h

diff --git a/perlvars.h b/perlvars.h
index b046fad..aa724e8 100644
--- a/perlvars.h
+++ b/perlvars.h
@@ -10,6 +10,11 @@
 
 /*
 =head1 Global Variables
+
+These variables are global to an entire process.  They are shared between
+all interpreters and all threads in a process.
+
+=cut
 */
 
 /* Don't forget to re-run regen/embed.pl to propagate changes! */
@@ -27,7 +32,7 @@
 #if defined(USE_ITHREADS)
 PERLVAR(G, op_mutex,	perl_mutex)	/* Mutex for op refcounting */
 #endif
-PERLVAR(G, curinterp,	PerlInterpreter *)
+PERLVARI(G, curinterp,	PerlInterpreter *, NULL)
 					/* currently running interpreter
 					 * (initial parent interpreter under
 					 * useithreads) */
@@ -95,6 +100,41 @@ PERLVAR(G, hints_mutex, perl_mutex)    /* Mutex for refcounted he refcounting */
 PERLVAR(G, watch_pvx,	char *)
 #endif
 
+/*
+=for apidoc AmU|Perl_check_t *|PL_check
+
+Array, indexed by opcode, of functions that will be called for the "check"
+phase of optree building during compilation of Perl code.  For most (but
+not all) types of op, once the op has been initially built and populated
+with child ops it will be filtered through the check function referenced
+by the appropriate element of this array.  The new op is passed in as the
+sole argument to the check function, and the check function returns the
+completed op.  The check function may (as the name suggests) check the op
+for validity and signal errors.  It may also initialise or modify parts of
+the ops, or perform more radical surgery such as adding or removing child
+ops, or even throw the op away and return a different op in its place.
+
+This array of function pointers is a convenient place to hook into the
+compilation process.  An XS module can put its own custom check function
+in place of any of the standard ones, to influence the compilation of a
+particular type of op.  However, a custom check function must never fully
+replace a standard check function (or even a custom check function from
+another module).  A module modifying checking must instead B<wrap> the
+preexisting check function.  A custom check function must be selective
+about when to apply its custom behaviour.  In the usual case where
+it decides not to do anything special with an op, it must chain the
+preexisting op function.  Check functions are thus linked in a chain,
+with the core's base checker at the end.
+
+For thread safety, modules should not write directly to this array.
+Instead, use the function L</wrap_op_checker>.
+
+=cut
+*/
+
+#if defined(USE_ITHREADS)
+PERLVAR(G, check_mutex,	perl_mutex)	/* Mutex for PL_check */
+#endif
 #ifdef PERL_GLOBAL_STRUCT 
 PERLVAR(G, ppaddr,	Perl_ppaddr_t *) /* or opcode.h */
 PERLVAR(G, check,	Perl_check_t *) /* or opcode.h */
@@ -177,7 +217,7 @@ the Perl core) will normally return C<KEYWORD_PLUGIN_DECLINE>.
 
 PERLVARI(G, keyword_plugin, Perl_keyword_plugin_t, Perl_keyword_plugin_standard)
 
-PERLVAR(G, op_sequence, HV *)		/* dump.c */
+PERLVARI(G, op_sequence, HV *, NULL)	/* dump.c */
 PERLVARI(G, op_seq,	UV,	0)	/* dump.c */
 
 #ifdef USE_ITHREADS
@@ -185,9 +225,15 @@ PERLVAR(G, dollarzero_mutex, perl_mutex) /* Modifying $0 */
 #endif
 
 /* Restricted hashes placeholder value.
- * The contents are never used, only the address. */
+   In theory, the contents are never used, only the address.
+   In practice, &PL_sv_placeholder is returned by some APIs, and the calling
+   code is checking SvOK().  */
+
 PERLVAR(G, sv_placeholder, SV)
 
 #if defined(MYMALLOC) && defined(USE_ITHREADS)
 PERLVAR(G, malloc_mutex, perl_mutex)	/* Mutex for malloc */
 #endif
+
+PERLVARI(G, hash_seed_set, bool, FALSE)	/* perl.c */
+PERLVARA(G, hash_seed, PERL_HASH_SEED_BYTES, unsigned char) /* perl.c and hv.h */