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/tclProc.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/tclProc.c')
| -rw-r--r-- | generic/tclProc.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/generic/tclProc.c b/generic/tclProc.c index 3908771..138478c 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.c @@ -919,8 +919,9 @@ TclNRUplevelObjCmd( Tcl_WrongNumArgs(interp, 1, objv, "?level? command ?arg ...?"); return TCL_ERROR; } else if (!TclHasStringRep(objv[1]) && objc == 2) { - int status ,llength; - status = TclListObjLength_(interp, objv[1], &llength); + int status; + size_t llength; + status = Tcl_ListObjLength(interp, objv[1], &llength); if (status == TCL_OK && llength > 1) { /* the first argument can't interpreted as a level. Avoid * generating a string representation of the script. */ |