diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-02-20 19:57:04 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-02-20 19:57:04 (GMT) |
| commit | 25560ed141b47b6a80a25134b44b6b174aa2f84d (patch) | |
| tree | 246ed55423fd38646886514f6c9672b45961f683 /generic/tclBasic.c | |
| parent | f5f30c3a146532d32c1e7ff15b38995f61377fc1 (diff) | |
| download | tcl-25560ed141b47b6a80a25134b44b6b174aa2f84d.zip tcl-25560ed141b47b6a80a25134b44b6b174aa2f84d.tar.gz tcl-25560ed141b47b6a80a25134b44b6b174aa2f84d.tar.bz2 | |
Eliminate dead code and fix a comment
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 a21f633..2d86e9c 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 |