summaryrefslogtreecommitdiffstats
path: root/generic/tclBasic.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2012-04-17 13:49:46 (GMT)
committerdgp <dgp@users.sourceforge.net>2012-04-17 13:49:46 (GMT)
commite5ced1c96d6213766cd6263eddcab12ba1a916a9 (patch)
tree8455e28435ac778476275eb1dd293cc9d8f59fe7 /generic/tclBasic.c
parent3abaea7cf8f37548c22b194ef947257e57f5991d (diff)
downloadtcl-e5ced1c96d6213766cd6263eddcab12ba1a916a9.zip
tcl-e5ced1c96d6213766cd6263eddcab12ba1a916a9.tar.gz
tcl-e5ced1c96d6213766cd6263eddcab12ba1a916a9.tar.bz2
Restore the tcl_platform(threaded) variable.
Diffstat (limited to 'generic/tclBasic.c')
-rw-r--r--generic/tclBasic.c11
1 files changed, 11 insertions, 0 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index 21fb2e2..e09ea1e 100644
--- a/generic/tclBasic.c
+++ b/generic/tclBasic.c
@@ -928,6 +928,17 @@ Tcl_CreateInterp(void)
TclPrecTraceProc, NULL);
TclpSetVariables(interp);
+#ifdef TCL_THREADS
+ /*
+ * The existence of the "threaded" element of the tcl_platform array
+ * indicates that this particular Tcl shell has been compiled with threads
+ * turned on. Using "info exists tcl_platform(threaded)" a Tcl script can
+ * introspect on the interpreter level of thread safety.
+ */
+
+ Tcl_SetVar2(interp, "tcl_platform", "threaded", "1", TCL_GLOBAL_ONLY);
+#endif
+
/*
* Register Tcl's version number.
* TIP #268: Full patchlevel instead of just major.minor