diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-06-16 12:21:21 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-06-16 12:21:21 (GMT) |
commit | cf84dd6daf65e20f747bcabb9584b370c08f4392 (patch) | |
tree | 420732b5801d39c6a7146d9b3b892a88e71cbe05 /generic/tclIOUtil.c | |
parent | 478601a07b6c947d19f75d8436a78008553956a6 (diff) | |
download | tcl-cf84dd6daf65e20f747bcabb9584b370c08f4392.zip tcl-cf84dd6daf65e20f747bcabb9584b370c08f4392.tar.gz tcl-cf84dd6daf65e20f747bcabb9584b370c08f4392.tar.bz2 |
Proposed fix for [c13819225e]: Problem with lsort|lsearch -stride on 32-bit linux. Also fix some compiler warnings
Diffstat (limited to 'generic/tclIOUtil.c')
-rw-r--r-- | generic/tclIOUtil.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c index cec6ad3..4484e2b 100644 --- a/generic/tclIOUtil.c +++ b/generic/tclIOUtil.c @@ -1802,7 +1802,7 @@ Tcl_FSEvalFileEx( const char *pathString = Tcl_GetStringFromObj(pathPtr, &length); unsigned limit = 150; - int overflow = (length > limit); + int overflow = ((unsigned)length > limit); Tcl_AppendObjToErrorInfo(interp, Tcl_ObjPrintf( "\n (file \"%.*s%s\" line %d)", @@ -1954,12 +1954,12 @@ EvalFileCallback( Tcl_Size length; const char *pathString = Tcl_GetStringFromObj(pathPtr, &length); - const unsigned int limit = 150; - int overflow = (length > limit); + const unsigned limit = 150; + int overflow = ((unsigned)length > limit); Tcl_AppendObjToErrorInfo(interp, Tcl_ObjPrintf( "\n (file \"%.*s%s\" line %d)", - (overflow ? limit : (unsigned int)length), pathString, + (overflow ? limit : (unsigned)length), pathString, (overflow ? "..." : ""), Tcl_GetErrorLine(interp))); } |