diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-01-24 20:54:34 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-01-24 20:54:34 (GMT) |
| commit | 6bdd87140b59bb9442e2e281da2c1c65bfaccd37 (patch) | |
| tree | fa51bc676868b1afd638f3d236204ef929913451 /generic/tclResult.c | |
| parent | 875e3b392ba9b930fa009077b451b08f15b4ea72 (diff) | |
| parent | af3e9b9825f98a98907966cdd71286c1f00c8bcf (diff) | |
| download | tcl-6bdd87140b59bb9442e2e281da2c1c65bfaccd37.zip tcl-6bdd87140b59bb9442e2e281da2c1c65bfaccd37.tar.gz tcl-6bdd87140b59bb9442e2e281da2c1c65bfaccd37.tar.bz2 | |
More work in progress
Diffstat (limited to 'generic/tclResult.c')
| -rw-r--r-- | generic/tclResult.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/generic/tclResult.c b/generic/tclResult.c index b447e67..c0467d7 100644 --- a/generic/tclResult.c +++ b/generic/tclResult.c @@ -733,7 +733,7 @@ TclProcessReturn( Tcl_DictObjGet(NULL, iPtr->returnOpts, keys[KEY_ERRORSTACK], &valuePtr); if (valuePtr != NULL) { - int len, valueObjc; + size_t len, valueObjc; Tcl_Obj **valueObjv; if (Tcl_IsShared(iPtr->errorStack)) { @@ -750,12 +750,12 @@ TclProcessReturn( * if someone does [return -errorstack [info errorstack]] */ - if (TclListObjGetElements_(interp, valuePtr, &valueObjc, + if (Tcl_ListObjGetElements(interp, valuePtr, &valueObjc, &valueObjv) == TCL_ERROR) { return TCL_ERROR; } iPtr->resetErrorStack = 0; - TclListObjLength_(interp, iPtr->errorStack, &len); + Tcl_ListObjLength(interp, iPtr->errorStack, &len); /* * Reset while keeping the list internalrep as much as possible. @@ -910,9 +910,9 @@ TclMergeReturnOptions( Tcl_DictObjGet(NULL, returnOpts, keys[KEY_ERRORCODE], &valuePtr); if (valuePtr != NULL) { - int length; + size_t length; - if (TCL_ERROR == TclListObjLength_(NULL, valuePtr, &length )) { + if (TCL_ERROR == Tcl_ListObjLength(NULL, valuePtr, &length )) { /* * Value is not a list, which is illegal for -errorcode. */ @@ -932,9 +932,9 @@ TclMergeReturnOptions( Tcl_DictObjGet(NULL, returnOpts, keys[KEY_ERRORSTACK], &valuePtr); if (valuePtr != NULL) { - int length; + size_t length; - if (TCL_ERROR == TclListObjLength_(NULL, valuePtr, &length )) { + if (TCL_ERROR == Tcl_ListObjLength(NULL, valuePtr, &length)) { /* * Value is not a list, which is illegal for -errorstack. */ |