diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-02-23 12:20:34 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-02-23 12:20:34 (GMT) |
commit | efce255dd9821b8dacf7c24731015f2eea93a96b (patch) | |
tree | 78e4eb4bfdf3e4739b36a88dd7bf94221fc21247 /generic/tclBasic.c | |
parent | 21134c44f3434c701ef4f166be74f389cd3425bd (diff) | |
parent | 6d23f73e8aba5d1c6ed987c139b2b719be84a254 (diff) | |
download | tcl-efce255dd9821b8dacf7c24731015f2eea93a96b.zip tcl-efce255dd9821b8dacf7c24731015f2eea93a96b.tar.gz tcl-efce255dd9821b8dacf7c24731015f2eea93a96b.tar.bz2 |
Merge 9.0. Update documentation
Diffstat (limited to 'generic/tclBasic.c')
-rw-r--r-- | generic/tclBasic.c | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 4cceae2..95c2194 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -1220,17 +1220,6 @@ Tcl_CreateInterp(void) Tcl_SetVar2(interp, "tcl_version", NULL, TCL_VERSION, TCL_GLOBAL_ONLY); TclpSetVariables(interp); -#if TCL_THREADS && !defined(TCL_NO_DEPRECATED) && TCL_MAJOR_VERSION < 9 - /* - * 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 |