diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-12-07 12:37:14 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-12-07 12:37:14 (GMT) |
| commit | 5dafe4ef8d8cdadb34bb45b7c3608c843bca623b (patch) | |
| tree | b34054e2d1c9a7f2e2ab2238d182984ec14ba933 /win/tclWinTest.c | |
| parent | 252431a635b7659d22579fcd187264884472c72f (diff) | |
| parent | 55328af8909d074b8715cb5c50453d0d6e0149e4 (diff) | |
| download | tcl-better_deprecation_85.zip tcl-better_deprecation_85.tar.gz tcl-better_deprecation_85.tar.bz2 | |
merge core-8-5-branch.better_deprecation_85
eliminate more deprecated calls
Diffstat (limited to 'win/tclWinTest.c')
| -rw-r--r-- | win/tclWinTest.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/win/tclWinTest.c b/win/tclWinTest.c index e493fbf..0148c57 100644 --- a/win/tclWinTest.c +++ b/win/tclWinTest.c @@ -366,8 +366,8 @@ TestExceptionCmd( Tcl_WrongNumArgs(interp, 0, objv, "<type-of-exception>"); return TCL_ERROR; } - if (Tcl_GetIndexFromObj(interp, objv[1], cmds, "command", 0, - &cmd) != TCL_OK) { + if (Tcl_GetIndexFromObjStruct(interp, objv[1], cmds, + sizeof(char *), "command", 0, &cmd) != TCL_OK) { return TCL_ERROR; } |