X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=thrdvar.h;h=b35e735dea7c56e43357cac2c3dd3f57ee5c167f;hb=b5b9f165df214cd14506c7e79b598983b710c986;hp=a739ecd7d6146285b50547d0e56e5e9c3152ac7a;hpb=a01268b57212e226e8cd71d448590f3e6c10d529;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/thrdvar.h b/thrdvar.h
index a739ecd..b35e735 100644
--- a/thrdvar.h
+++ b/thrdvar.h
@@ -5,16 +5,16 @@
 /* Don't forget to re-run embed.pl to propagate changes! */
 
 /* The 'T' prefix is only needed for vars that need appropriate #defines
- * generated when built with or without USE_THREADS.  It is also used
+ * generated when built with or without USE_5005THREADS.  It is also used
  * to generate the appropriate export list for win32.
  *
- * When building without USE_THREADS, these variables will be truly global.
- * When building without USE_THREADS but with MULTIPLICITY, these variables
+ * When building without USE_5005THREADS, these variables will be truly global.
+ * When building without USE_5005THREADS but with MULTIPLICITY, these variables
  * will be global per-interpreter. */
 
 /* Important ones in the first cache line (if alignment is done right) */
 
-#ifdef USE_THREADS
+#ifdef USE_5005THREADS
 PERLVAR(interp,		PerlInterpreter*)	/* thread owner */
 #endif
 
@@ -81,7 +81,7 @@ PERLVAR(Ttimesbuf,	struct tms)
 /* Fields used by magic variables such as $@, $/ and so on */
 PERLVAR(Ttainted,	bool)		/* using variables controlled by $< */
 PERLVAR(Tcurpm,		PMOP *)		/* what to do \ interps in REs from */
-PERLVAR(Tnrs,		SV *)
+PERLVAR(Tunused_1,	SV *)		/* placeholder: was Tnrs */
 
 /*
 =for apidoc mn|SV*|PL_rs
@@ -211,6 +211,8 @@ PERLVAR(Treg_leftiter,	I32)		/* wait until caching pos */
 PERLVARI(Treg_poscache, char *, Nullch)	/* cache of pos of WHILEM */
 PERLVAR(Treg_poscache_size, STRLEN)	/* size of pos cache of WHILEM */
 
+PERLVARI(Tpeepp,	peep_t, MEMBER_TO_FPTR(Perl_peep))
+					/* Pointer to peephole optimizer */
 PERLVARI(Tregcompp,	regcomp_t, MEMBER_TO_FPTR(Perl_pregcomp))
 					/* Pointer to REx compiler */
 PERLVARI(Tregexecp,	regexec_t, MEMBER_TO_FPTR(Perl_regexec_flags))
@@ -231,7 +233,7 @@ PERLVAR(Twatchok,	char *)
 /* Note that the variables below are all explicitly referenced in the code
  * as thr->whatever and therefore don't need the 'T' prefix. */
 
-#ifdef USE_THREADS
+#ifdef USE_5005THREADS
 
 PERLVAR(oursv,		SV *)
 PERLVAR(cvcache,	HV *)
@@ -254,4 +256,8 @@ PERLVAR(i,		struct thread_intern)
 
 PERLVAR(trailing_nul,	char)		/* For the sake of thrsv and oursv */
 PERLVAR(thr_done,	bool)		/* True when the thread has finished */
-#endif /* USE_THREADS */
+
+#endif /* USE_5005THREADS */
+
+PERLVAR(Treg_match_utf8,	bool)		/* was what we matched against utf8 */
+