diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-12-03 08:11:12 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-12-03 08:11:12 (GMT) |
| commit | 279358fa3f6fd886a5cf940ea9223c5a51d6f304 (patch) | |
| tree | aa87a2de6d07931a672fdafb6b3291610e298e8a /generic/tclTest.c | |
| parent | 2d8aceecca2c639bafce1dd90900ba305128ac12 (diff) | |
| parent | 888f7141151b5b085d0cdc0029121d67a06e7273 (diff) | |
| download | tcl-279358fa3f6fd886a5cf940ea9223c5a51d6f304.zip tcl-279358fa3f6fd886a5cf940ea9223c5a51d6f304.tar.gz tcl-279358fa3f6fd886a5cf940ea9223c5a51d6f304.tar.bz2 | |
merge core-8-5-branch
eliminate more usage of to-be-deprecated functions
Diffstat (limited to 'generic/tclTest.c')
| -rw-r--r-- | generic/tclTest.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index 3c39a40..caf4b1a 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -576,7 +576,7 @@ Tcltest_Init( /* TIP #268: Full patchlevel instead of just major.minor */ - if (Tcl_PkgProvide(interp, "Tcltest", TCL_PATCH_LEVEL) == TCL_ERROR) { + if (Tcl_PkgProvideEx(interp, "Tcltest", TCL_PATCH_LEVEL, NULL) == TCL_ERROR) { return TCL_ERROR; } @@ -736,8 +736,8 @@ Tcltest_Init( if (Tcl_ListObjGetElements(interp, listPtr, &objc, &objv) != TCL_OK) { return TCL_ERROR; } - if (objc && (Tcl_GetIndexFromObj(NULL, objv[0], specialOptions, NULL, - TCL_EXACT, &index) == TCL_OK)) { + if (objc && (Tcl_GetIndexFromObjStruct(NULL, objv[0], specialOptions, + sizeof(char *), NULL, TCL_EXACT, &index) == TCL_OK)) { switch (index) { case 0: return TCL_ERROR; |