diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2023-04-23 08:13:11 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2023-04-23 08:13:11 (GMT) |
| commit | 2b41b2d12bf50d873436d0ce09e1e7b8345d5540 (patch) | |
| tree | 6fb5f61f31dda4cc65bf9b4b66a9c598995749fe /generic/tclFileName.c | |
| parent | 9cd23041f3a73559c43adb6120b1ccdf4bd15604 (diff) | |
| parent | 6f566fc406752600f7ae67df0c7356d987b753fe (diff) | |
| download | tcl-2b41b2d12bf50d873436d0ce09e1e7b8345d5540.zip tcl-2b41b2d12bf50d873436d0ce09e1e7b8345d5540.tar.gz tcl-2b41b2d12bf50d873436d0ce09e1e7b8345d5540.tar.bz2 | |
Fix gcc type mismatch warnings exposed by disabling casts using disabletcl8api
Diffstat (limited to 'generic/tclFileName.c')
| -rw-r--r-- | generic/tclFileName.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/generic/tclFileName.c b/generic/tclFileName.c index 4dab688..c9148c1 100644 --- a/generic/tclFileName.c +++ b/generic/tclFileName.c @@ -807,7 +807,7 @@ TclpNativeJoinPath( const char *joining) { int needsSep; - size_t length; + Tcl_Size length; char *dest; const char *p; const char *start; @@ -848,7 +848,7 @@ TclpNativeJoinPath( * Append the element, eliminating duplicate and trailing slashes. */ - Tcl_SetObjLength(prefix, length + (int) strlen(p)); + Tcl_SetObjLength(prefix, length + strlen(p)); dest = TclGetString(prefix) + length; for (; *p != '\0'; p++) { @@ -1358,7 +1358,7 @@ Tcl_GlobObjCmd( globTypes->macCreator = NULL; while (length-- > 0) { - size_t len; + Tcl_Size len; const char *str; Tcl_ListObjIndex(interp, typePtr, length, &look); @@ -2188,7 +2188,7 @@ DoGlob( */ if (*p == '\0') { - size_t length; + Tcl_Size length; Tcl_DString append; /* @@ -2252,7 +2252,7 @@ DoGlob( * The current prefix must end in a separator. */ - size_t len; + Tcl_Size len; const char *joined = Tcl_GetStringFromObj(joinedPtr,&len); if ((len > 0) && (strchr(separators, joined[len-1]) == NULL)) { @@ -2289,7 +2289,7 @@ DoGlob( * This behaviour is not currently tested for in the test suite. */ - size_t len; + Tcl_Size len; const char *joined = Tcl_GetStringFromObj(joinedPtr,&len); if ((len > 0) && (strchr(separators, joined[len-1]) == NULL)) { |