From ba869debd80c55cfae8e9d4de0991d62f9efcb9b Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Tue, 29 Feb 2000 04:53:00 +0000
Subject: support fetching current interpreter from TLS under useithreads

p4raw-id: //depot/perl@5342
---
 perlvars.h | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'perlvars.h')

diff --git a/perlvars.h b/perlvars.h
index 220574a2be..4df31bb4a0 100644
--- a/perlvars.h
+++ b/perlvars.h
@@ -16,7 +16,11 @@
 /* global state */
 PERLVAR(Gcurinterp,	PerlInterpreter *)
 					/* currently running interpreter
-					 * XXX this needs to be in TLS */
+					 * (initial parent interpreter under
+					 * useithreads) */
+#if defined(USE_THREADS) || defined(USE_ITHREADS)
+PERLVAR(Gthr_key,	perl_key)	/* key to retrieve per-thread struct */
+#endif
 
 /* constants (these are not literals to facilitate pointer comparisons) */
 PERLVARIC(GYes,		char *, "1")
-- 
cgit v1.2.1