diff options
| author | griffin <briang42@easystreet.net> | 2023-06-19 04:29:28 (GMT) |
|---|---|---|
| committer | griffin <briang42@easystreet.net> | 2023-06-19 04:29:28 (GMT) |
| commit | d8ce1ffde8b833f9a255676b3a916df861c3d8da (patch) | |
| tree | bf8268bed8b51d0dd2ec24bd4934dfa829313478 /generic/tclIOUtil.c | |
| parent | 06465624ac4381066ed30bee475b9d28bb3193f2 (diff) | |
| parent | 7f8e25f90769fba6d16e9f232487a14e691a1a26 (diff) | |
| download | tcl-d8ce1ffde8b833f9a255676b3a916df861c3d8da.zip tcl-d8ce1ffde8b833f9a255676b3a916df861c3d8da.tar.gz tcl-d8ce1ffde8b833f9a255676b3a916df861c3d8da.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic/tclIOUtil.c')
| -rw-r--r--[-rwxr-xr-x] | generic/tclIOUtil.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c index 57c9fe7..306ba41 100755..100644 --- a/generic/tclIOUtil.c +++ b/generic/tclIOUtil.c @@ -1955,11 +1955,11 @@ EvalFileCallback( Tcl_Size length; const char *pathString = Tcl_GetStringFromObj(pathPtr, &length); const unsigned limit = 150; - int overflow = (length > limit); + 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))); } |