diff options
Diffstat (limited to 'generic/tclResult.c')
| -rw-r--r-- | generic/tclResult.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclResult.c b/generic/tclResult.c index 7b58d44..778170f 100644 --- a/generic/tclResult.c +++ b/generic/tclResult.c @@ -1339,8 +1339,8 @@ TclMergeReturnOptions( "ok", "error", "return", "break", "continue", NULL }; - if (TCL_ERROR == Tcl_GetIndexFromObj(NULL, valuePtr, returnCodes, - NULL, TCL_EXACT, &code)) { + if (TCL_ERROR == Tcl_GetIndexFromObjStruct(NULL, valuePtr, returnCodes, + sizeof(char *), NULL, TCL_EXACT, &code)) { /* * Value is not a legal return code. */ |