diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-12-15 16:08:14 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-12-15 16:08:14 (GMT) |
| commit | 603e23c2a9f36afa883135a76f147807f273e58d (patch) | |
| tree | 17fffc681bc4f51b185cf7258dcc8acc6d85c971 /generic/tclBasic.c | |
| parent | 3f03f8189e6b4da3ff496bfbb4faa921124b76f9 (diff) | |
| parent | 4fb66d5d55a3239a342ae799da586966fe8326cf (diff) | |
| download | tcl-603e23c2a9f36afa883135a76f147807f273e58d.zip tcl-603e23c2a9f36afa883135a76f147807f273e58d.tar.gz tcl-603e23c2a9f36afa883135a76f147807f273e58d.tar.bz2 | |
merge core-8-branch
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index eceea31..406d0b1 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -954,9 +954,11 @@ Tcl_CreateInterp(void) Tcl_SetVar2(interp, "tcl_patchLevel", NULL, TCL_PATCH_LEVEL, TCL_GLOBAL_ONLY); Tcl_SetVar2(interp, "tcl_version", NULL, TCL_VERSION, TCL_GLOBAL_ONLY); +#if !defined(TCL_NO_DEPRECATED) && TCL_MAJOR_VERSION < 9 Tcl_TraceVar2(interp, "tcl_precision", NULL, TCL_GLOBAL_ONLY|TCL_TRACE_READS|TCL_TRACE_WRITES|TCL_TRACE_UNSETS, TclPrecTraceProc, NULL); +#endif /* !TCL_NO_DEPRECATED */ TclpSetVariables(interp); #ifdef TCL_THREADS |