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 2c6d300..699f927 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.c @@ -2815,7 +2815,8 @@ Tcl_DisassembleObjCmd( Tcl_WrongNumArgs(interp, 1, objv, "type procName|lambdaTerm|script"); 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; } |