diff options
Diffstat (limited to 'generic/tclProc.c')
| -rw-r--r-- | generic/tclProc.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclProc.c b/generic/tclProc.c index 1314719..db726c4 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.c @@ -2871,7 +2871,8 @@ Tcl_DisassembleObjCmd( Tcl_WrongNumArgs(interp, 1, objv, "type ..."); return TCL_ERROR; } - if (Tcl_GetIndexFromObj(interp, objv[1], types, "type", 0, &idx)!=TCL_OK){ + if (Tcl_GetIndexFromObjStruct(interp, objv[1], types, + sizeof(char *), "type", 0, &idx) != TCL_OK){ return TCL_ERROR; } |