X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=thrdvar.h;h=7c40481a64276ae103e9a916aef19e2109b5393e;hb=1b979e0af6d73985fab5b12b2e2d182e270d6642;hp=812f1bf160b139d1f0926363b77df4582e95c24d;hpb=e336de0d01f30cc4061b6d6a00d11df30fc67cd3;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/thrdvar.h b/thrdvar.h
index 812f1bf..7c40481 100644
--- a/thrdvar.h
+++ b/thrdvar.h
@@ -1,4 +1,10 @@
-/* Per-thread variables */
+/* Don't forget to re-run embed.pl to propagate changes! */
+
+/* Per-thread variables
+   The 'T' prefix is only needed for vars that need appropriate #defines
+generated when built with or without USE_THREADS.  (It is also used
+to generate the appropriate the export list for win32.) */
+
 /* Important ones in the first cache line (if alignment is done right) */
 
 PERLVAR(Tstack_sp,	SV **)		
@@ -78,10 +84,14 @@ PERLVAR(Tstart_env,	JMPENV)			/* empty startup sigjmp() environment */
 PERLVAR(Tav_fetch_sv,	SV *)
 PERLVAR(Thv_fetch_sv,	SV *)
 PERLVAR(Thv_fetch_ent_mh, HE)
+PERLVAR(Tmodcount, I32)
 
 /* XXX Sort stuff, firstgv secongv and so on? */
 /* XXX What about regexp stuff? */
 
+/* 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
 
 PERLVAR(oursv,		SV *)