diff options
author | apnadkarni <apnmbx-wits@yahoo.com> | 2023-04-21 06:16:53 (GMT) |
---|---|---|
committer | apnadkarni <apnmbx-wits@yahoo.com> | 2023-04-21 06:16:53 (GMT) |
commit | c7f27e3c8788c57a0e58d4b31140a4c4652a422f (patch) | |
tree | b75c4e99c0169e29c90064020a7e6b69e081544c /generic/tclIOCmd.c | |
parent | e86259d193d2c7ad6628755161cc75a706e194cb (diff) | |
download | tcl-c7f27e3c8788c57a0e58d4b31140a4c4652a422f.zip tcl-c7f27e3c8788c57a0e58d4b31140a4c4652a422f.tar.gz tcl-c7f27e3c8788c57a0e58d4b31140a4c4652a422f.tar.bz2 |
Fix warnings generated on disable8api builds
Diffstat (limited to 'generic/tclIOCmd.c')
-rw-r--r-- | generic/tclIOCmd.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclIOCmd.c b/generic/tclIOCmd.c index ecc8652..93c50ec 100644 --- a/generic/tclIOCmd.c +++ b/generic/tclIOCmd.c @@ -698,7 +698,7 @@ Tcl_CloseObjCmd( Tcl_Obj *resultPtr = Tcl_GetObjResult(interp); const char *string; - size_t len; + Tcl_Size len; if (Tcl_IsShared(resultPtr)) { resultPtr = Tcl_DuplicateObj(resultPtr); @@ -858,7 +858,7 @@ Tcl_ExecObjCmd( const char *string; Tcl_Channel chan; int argc, background, i, index, keepNewline, result, skip, ignoreStderr; - size_t length; + Tcl_Size length; static const char *const options[] = { "-ignorestderr", "-keepnewline", "--", NULL }; |