diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2025-06-27 10:50:43 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2025-06-27 10:50:43 (GMT) |
| commit | 3e78f23412a2bd1654ad40c85c4e4398986e8074 (patch) | |
| tree | e28b55442f93c0291927f79db72e141ef7a41521 /generic/tclBinary.c | |
| parent | 38ebfdf672a37bc2bf1de7f9a0db8ce651c59a5c (diff) | |
| parent | 7128c54a02b3dda1c0063875a0c7abdbb7794c99 (diff) | |
| download | tcl-core-compile-uplevel.zip tcl-core-compile-uplevel.tar.gz tcl-core-compile-uplevel.tar.bz2 | |
merge trunkcore-compile-uplevel
Diffstat (limited to 'generic/tclBinary.c')
| -rw-r--r-- | generic/tclBinary.c | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/generic/tclBinary.c b/generic/tclBinary.c index e02f47e..ad50d29 100644 --- a/generic/tclBinary.c +++ b/generic/tclBinary.c @@ -2737,13 +2737,13 @@ BinaryEncodeUu( { Tcl_Obj *resultObj; unsigned char *data, *start, *cursor; - int i, bits, index; + int i, bits; unsigned int n; int lineLength = 61; const unsigned char SingleNewline[] = { UCHAR('\n') }; const unsigned char *wrapchar = SingleNewline; Tcl_Size j, rawLength, offset, count = 0, wrapcharlen = sizeof(SingleNewline); - enum { OPT_MAXLEN, OPT_WRAPCHAR }; + enum { OPT_MAXLEN, OPT_WRAPCHAR } index; static const char *const optStrings[] = { "-maxlen", "-wrapchar", NULL }; if (objc < 2 || objc % 2 != 0) { @@ -2802,8 +2802,6 @@ BinaryEncodeUu( return TCL_ERROR; } break; - default: - TCL_UNREACHABLE(); } } |