diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-01-26 08:37:09 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-01-26 08:37:09 (GMT) |
| commit | 789ce0b97106ca8a3f91ab68ddaaf1fa904dcace (patch) | |
| tree | dbfc9faeb241149d5f694a03985a4510813adf89 /generic/tclLink.c | |
| parent | bf32d5a0ab8f0030ffed9ba63186dbb3cdb02bdd (diff) | |
| download | tcl-789ce0b97106ca8a3f91ab68ddaaf1fa904dcace.zip tcl-789ce0b97106ca8a3f91ab68ddaaf1fa904dcace.tar.gz tcl-789ce0b97106ca8a3f91ab68ddaaf1fa904dcace.tar.bz2 | |
More WIP
Diffstat (limited to 'generic/tclLink.c')
| -rw-r--r-- | generic/tclLink.c | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/generic/tclLink.c b/generic/tclLink.c index d637dbd..932ca5e 100644 --- a/generic/tclLink.c +++ b/generic/tclLink.c @@ -763,9 +763,8 @@ LinkTraceProc( Tcl_WideInt valueWide; Tcl_WideUInt valueUWide; double valueDouble; - int objc; + size_t objc, i; Tcl_Obj **objv; - int i; /* * If the variable is being unset, then just re-create it (with a trace) @@ -947,8 +946,8 @@ LinkTraceProc( */ if (linkPtr->flags & LINK_ALLOC_LAST) { - if (TclListObjGetElements_(NULL, (valueObj), &objc, &objv) == TCL_ERROR - || (size_t)objc != linkPtr->numElems) { + if (Tcl_ListObjGetElements(NULL, (valueObj), &objc, &objv) == TCL_ERROR + || objc != linkPtr->numElems) { return (char *) "wrong dimension"; } } @@ -956,7 +955,7 @@ LinkTraceProc( switch (linkPtr->type) { case TCL_LINK_INT: if (linkPtr->flags & LINK_ALLOC_LAST) { - for (i=0; i < objc; i++) { + for (i = 0; i < objc; i++) { int *varPtr = &linkPtr->lastValue.iPtr[i]; if (GetInt(objv[i], varPtr)) { |