diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-01-27 15:15:33 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-01-27 15:15:33 (GMT) |
| commit | 1ed443d5c08e7a7cb65c6dabcd959c8b4f3cb51d (patch) | |
| tree | b3f7314f8c8d1495d4e2e8901c32536a799cd6ab /generic/tclInterp.c | |
| parent | 9afc3ff81d99b4207da8b35d411a83f043b0a4f8 (diff) | |
| download | tcl-1ed443d5c08e7a7cb65c6dabcd959c8b4f3cb51d.zip tcl-1ed443d5c08e7a7cb65c6dabcd959c8b4f3cb51d.tar.gz tcl-1ed443d5c08e7a7cb65c6dabcd959c8b4f3cb51d.tar.bz2 | |
More progress
Diffstat (limited to 'generic/tclInterp.c')
| -rw-r--r-- | generic/tclInterp.c | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/generic/tclInterp.c b/generic/tclInterp.c index 0b2e7f7..8458915 100644 --- a/generic/tclInterp.c +++ b/generic/tclInterp.c @@ -2320,11 +2320,11 @@ GetInterp( Tcl_HashEntry *hPtr; /* Search element. */ Child *childPtr; /* Interim child record. */ Tcl_Obj **objv; - int objc, i; + size_t objc, i; Tcl_Interp *searchInterp; /* Interim storage for interp. to find. */ InterpInfo *parentInfoPtr; - if (TclListObjGetElements_(interp, pathPtr, &objc, &objv) != TCL_OK) { + if (Tcl_ListObjGetElements(interp, pathPtr, &objc, &objv) != TCL_OK) { return NULL; } @@ -2424,10 +2424,11 @@ ChildCreate( InterpInfo *parentInfoPtr; Tcl_HashEntry *hPtr; const char *path; - int isNew, objc; + int isNew; + size_t objc; Tcl_Obj **objv; - if (TclListObjGetElements_(interp, pathPtr, &objc, &objv) != TCL_OK) { + if (Tcl_ListObjGetElements(interp, pathPtr, &objc, &objv) != TCL_OK) { return NULL; } if (objc < 2) { |