diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-12-04 15:12:12 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-12-04 15:12:12 (GMT) |
| commit | 19d35f4ef53660720d360042a30f3d9dafd5e5be (patch) | |
| tree | 67fa2f16a142415270d6e1682f46288b6310666f /generic/tclBasic.c | |
| parent | 279358fa3f6fd886a5cf940ea9223c5a51d6f304 (diff) | |
| download | tcl-19d35f4ef53660720d360042a30f3d9dafd5e5be.zip tcl-19d35f4ef53660720d360042a30f3d9dafd5e5be.tar.gz tcl-19d35f4ef53660720d360042a30f3d9dafd5e5be.tar.bz2 | |
more eliminations of 'deprecated' calls
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 21 |
1 files changed, 4 insertions, 17 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 651625e..a4ac861 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -782,8 +782,8 @@ Tcl_CreateInterp(void) */ order.s = 1; - Tcl_SetVar2(interp, "tcl_platform", "byteOrder", - ((order.c[0] == 1) ? "littleEndian" : "bigEndian"), + Tcl_SetVar2Ex(interp, "tcl_platform", "byteOrder", + Tcl_NewStringObj((order.c[0] == 1) ? "littleEndian" : "bigEndian", -1), TCL_GLOBAL_ONLY); Tcl_SetVar2Ex(interp, "tcl_platform", "wordSize", @@ -797,24 +797,13 @@ Tcl_CreateInterp(void) * Set up other variables such as tcl_version and tcl_library */ - Tcl_SetVar(interp, "tcl_patchLevel", TCL_PATCH_LEVEL, TCL_GLOBAL_ONLY); - Tcl_SetVar(interp, "tcl_version", TCL_VERSION, TCL_GLOBAL_ONLY); + Tcl_SetVar2Ex(interp, "tcl_patchLevel", NULL, Tcl_NewStringObj(TCL_PATCH_LEVEL, -1), TCL_GLOBAL_ONLY); + Tcl_SetVar2Ex(interp, "tcl_version", NULL, Tcl_NewStringObj(TCL_VERSION, -1), TCL_GLOBAL_ONLY); Tcl_TraceVar2(interp, "tcl_precision", NULL, TCL_GLOBAL_ONLY|TCL_TRACE_READS|TCL_TRACE_WRITES|TCL_TRACE_UNSETS, 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 @@ -822,9 +811,7 @@ Tcl_CreateInterp(void) Tcl_PkgProvideEx(interp, "Tcl", TCL_PATCH_LEVEL, &tclStubs); -#ifdef Tcl_InitStubs #undef Tcl_InitStubs -#endif Tcl_InitStubs(interp, TCL_VERSION, 1); if (TclTommath_Init(interp) != TCL_OK) { |