diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-02-08 16:11:09 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-02-08 16:11:09 (GMT) |
| commit | ec1d74c3dccc17661e6f172ee5ad77d08444037b (patch) | |
| tree | 88fa51ccefb27f3562b0510e15204c56689ca002 | |
| parent | 8b54ea771f1e0c7c5c4e783171834079b67f0682 (diff) | |
| download | tcl-ec1d74c3dccc17661e6f172ee5ad77d08444037b.zip tcl-ec1d74c3dccc17661e6f172ee5ad77d08444037b.tar.gz tcl-ec1d74c3dccc17661e6f172ee5ad77d08444037b.tar.bz2 | |
Fix gcc 13.2.1 (Fedora 39.1) warning: Writing of 1 byte into a region of size 0 [-Wstringop-overflow=]
| -rw-r--r-- | generic/tclObj.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclObj.c b/generic/tclObj.c index 4abfa49..1b57e71 100644 --- a/generic/tclObj.c +++ b/generic/tclObj.c @@ -2009,7 +2009,7 @@ ParseBoolean( char lowerCase[6]; const char *str = TclGetStringFromObj(objPtr, &length); - if ((length == 0) || (length > 5)) { + if ((length < 1) || (length > 5)) { /* * Longest valid boolean string rep. is "false". */ |