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/tclFCmd.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/tclFCmd.c')
| -rw-r--r-- | generic/tclFCmd.c | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/generic/tclFCmd.c b/generic/tclFCmd.c index c931866..821347a 100644 --- a/generic/tclFCmd.c +++ b/generic/tclFCmd.c @@ -220,7 +220,8 @@ TclFileMakeDirsCmd( Tcl_Obj *const objv[]) /* Argument strings passed to Tcl_FileCmd. */ { Tcl_Obj *errfile = NULL; - int result, i, j, pobjc; + int result, i; + size_t j, pobjc; Tcl_Obj *split = NULL; Tcl_Obj *target = NULL; Tcl_StatBuf statBuf; @@ -873,7 +874,7 @@ FileBasename( Tcl_Interp *interp, /* Interp, for error return. */ Tcl_Obj *pathPtr) /* Path whose basename to extract. */ { - int objc; + size_t objc; Tcl_Obj *splitPtr; Tcl_Obj *resultPtr = NULL; @@ -955,7 +956,7 @@ TclFileAttrsCmd( const char *const *attributeStrings; const char **attributeStringsAllocated = NULL; Tcl_Obj *objStrings = NULL; - int numObjStrings = -1; + size_t numObjStrings = TCL_INDEX_NONE; Tcl_Obj *filePtr; if (objc < 2) { @@ -979,7 +980,7 @@ TclFileAttrsCmd( attributeStrings = Tcl_FSFileAttrStrings(filePtr, &objStrings); if (attributeStrings == NULL) { - int index; + size_t index; Tcl_Obj *objPtr; if (objStrings == NULL) { @@ -1006,7 +1007,7 @@ TclFileAttrsCmd( * Use objStrings as a list object. */ - if (TclListObjLength_(interp, objStrings, &numObjStrings) != TCL_OK) { + if (Tcl_ListObjLength(interp, objStrings, &numObjStrings) != TCL_OK) { goto end; } attributeStringsAllocated = (const char **) |