diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-06-29 11:39:00 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-06-29 11:39:00 (GMT) |
| commit | 88fc841203408d81942346c602bc76dd7a97fc3b (patch) | |
| tree | 7ce411d2af949b4e0efb15ac084505dc3427742a /generic/tclCmdIL.c | |
| parent | 75a582f3570a03b8c517653637102c8baf987067 (diff) | |
| download | tcl-88fc841203408d81942346c602bc76dd7a97fc3b.zip tcl-88fc841203408d81942346c602bc76dd7a97fc3b.tar.gz tcl-88fc841203408d81942346c602bc76dd7a97fc3b.tar.bz2 | |
Tcl_SetVar -> Tcl_SetVar2 and comparable replacements, eliminating functions which are deprecated.
Diffstat (limited to 'generic/tclCmdIL.c')
| -rw-r--r-- | generic/tclCmdIL.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index c93e593..4cb81ea 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -1678,7 +1678,7 @@ InfoLibraryCmd( return TCL_ERROR; } - libDirName = Tcl_GetVar(interp, "tcl_library", TCL_GLOBAL_ONLY); + libDirName = Tcl_GetVar2(interp, "tcl_library", NULL, TCL_GLOBAL_ONLY); if (libDirName != NULL) { Tcl_SetObjResult(interp, Tcl_NewStringObj(libDirName, -1)); return TCL_OK; @@ -1804,7 +1804,7 @@ InfoPatchLevelCmd( return TCL_ERROR; } - patchlevel = Tcl_GetVar(interp, "tcl_patchLevel", + patchlevel = Tcl_GetVar2(interp, "tcl_patchLevel", NULL, (TCL_GLOBAL_ONLY | TCL_LEAVE_ERR_MSG)); if (patchlevel != NULL) { Tcl_SetObjResult(interp, Tcl_NewStringObj(patchlevel, -1)); |