From 4f3c0fa94fcc4ce830c4765499a42261934c48e7 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Mon, 9 Mar 2020 12:49:41 +0000
Subject: Use more uppercase hex (e.g. 0xFF) in stead of lowercase (0xff)
 consistantly.

---
 ChangeLog               |  2 +-
 ChangeLog.2005          |  2 +-
 changes                 |  2 +-
 doc/ParseCmd.3          |  2 +-
 doc/Tcl.n               |  8 ++++----
 doc/ToUpper.3           |  2 +-
 doc/Utf.3               |  2 +-
 doc/binary.n            |  6 +++---
 library/clock.tcl       |  2 +-
 tools/loadICU.tcl       |  2 +-
 tools/makeTestCases.tcl |  2 +-
 unix/configure          |  2 +-
 unix/configure.in       |  2 +-
 unix/tclUnixPort.h      | 12 ++++++------
 14 files changed, 24 insertions(+), 24 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 7150045..50fbeec 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1012,7 +1012,7 @@ a better first place to look now.
 
 	* tools/uniClass.tcl:    [FRQ 3473670]: Various Unicode-related
 	* tools/uniParse.tcl:    speedups/robustness. Enhanced tools to be
-	* generic/tclUniData.c:  able to handle characters > 0xffff. Done in
+	* generic/tclUniData.c:  able to handle characters > 0xFFFF. Done in
 	* generic/tclUtf.c:      all branches in order to simplify merges for
 	* generic/regc_locale.c: new Unicode versions (such as 6.1)
 
diff --git a/ChangeLog.2005 b/ChangeLog.2005
index 0d1d7cf..109ea8e 100644
--- a/ChangeLog.2005
+++ b/ChangeLog.2005
@@ -2913,7 +2913,7 @@
 	* generic/tclCompCmds.c:	Updated callers to call new routine.
 	* generic/tclDictObj.c:	Updated callers to call new routine.
 	* tests/obj.test:	Corrected bad tests that actually expected
-	values like "47" and "0xac" to be accepted as booleans.
+	values like "47" and "0xAC" to be accepted as booleans.
 
 	* generic/tclLiteral.c: Disabled the code that forces some literals
 	into the "int" Tcl_ObjType during registration. We can re-enable it if
diff --git a/changes b/changes
index c25f582..88de973 100644
--- a/changes
+++ b/changes
@@ -2307,7 +2307,7 @@ to the standard channel, do not increment the refcount. The channel can
 be NULL if there is for example no standard input. (JL)
 
 9/6/96 (portability improvement) Changed parsing of backslash sequences
-like \n to translate directly to absolute values like 0xa instead of
+like \n to translate directly to absolute values like 0xA instead of
 letting the compiler do the translation.  This guarantees that the
 translation is done the same everywhere. (JO)
 
diff --git a/doc/ParseCmd.3 b/doc/ParseCmd.3
index ff1be23..e1a8790 100644
--- a/doc/ParseCmd.3
+++ b/doc/ParseCmd.3
@@ -300,7 +300,7 @@ The token describes a range of literal text that is part of a word.
 The \fInumComponents\fR field is always 0.
 .TP
 \fBTCL_TOKEN_BS\fR
-The token describes a backslash sequence such as \fB\en\fR or \fB\e0xa3\fR.
+The token describes a backslash sequence such as \fB\en\fR or \fB\e0xA3\fR.
 The \fInumComponents\fR field is always 0.
 .TP
 \fBTCL_TOKEN_COMMAND\fR
diff --git a/doc/Tcl.n b/doc/Tcl.n
index 980d81f..5c09cb8 100644
--- a/doc/Tcl.n
+++ b/doc/Tcl.n
@@ -146,19 +146,19 @@ Audible alert (bell) (0x7).
 Backspace (0x8).
 .TP 7
 \e\fBf\fR
-Form feed (0xc).
+Form feed (0xC).
 .TP 7
 \e\fBn\fR
-Newline (0xa).
+Newline (0xA).
 .TP 7
 \e\fBr\fR
-Carriage-return (0xd).
+Carriage-return (0xD).
 .TP 7
 \e\fBt\fR
 Tab (0x9).
 .TP 7
 \e\fBv\fR
-Vertical tab (0xb).
+Vertical tab (0xB).
 .TP 7
 \e\fB<newline>\fIwhiteSpace\fR
 .
diff --git a/doc/ToUpper.3 b/doc/ToUpper.3
index 587e76b..ef3e491 100644
--- a/doc/ToUpper.3
+++ b/doc/ToUpper.3
@@ -81,7 +81,7 @@ and all following characters into their lower-case equivalents.
 .SH BUGS
 .PP
 At this time, the case conversions are only defined for the ISO8859-1
-characters.  Unicode characters above 0x00ff are not modified by these
+characters.  Unicode characters above 0x00FF are not modified by these
 routines.
 
 .SH KEYWORDS
diff --git a/doc/Utf.3 b/doc/Utf.3
index 903fac7..5361f32 100644
--- a/doc/Utf.3
+++ b/doc/Utf.3
@@ -142,7 +142,7 @@ end and dereference non-existent or random memory; if the source buffer
 is known to be null-terminated, this will not happen.  If the input is
 not in proper UTF-8 format, \fBTcl_UtfToUniChar\fR will store the first
 byte of \fIsrc\fR in \fI*chPtr\fR as a Tcl_UniChar between 0x0000 and
-0x00ff and return 1.  
+0x00FF and return 1.  
 .PP
 \fBTcl_UniCharToUtfDString\fR converts the given Unicode string
 to UTF-8, storing the result in a previously initialized \fBTcl_DString\fR.
diff --git a/doc/binary.n b/doc/binary.n
index ff800f0..5f1efaf 100644
--- a/doc/binary.n
+++ b/doc/binary.n
@@ -561,7 +561,7 @@ stored in \fIvar2\fR.  Note that the integers returned are signed, but
 they can be converted to unsigned 8-bit quantities using an expression
 like:
 .CS
-set num [expr { $num & 0xff }]
+set num [expr { $num & 0xFF }]
 .CE
 .RE
 .IP \fBs\fR 5
@@ -580,7 +580,7 @@ stored in \fIvar2\fR.  Note that the integers returned are signed, but
 they can be converted to unsigned 16-bit quantities using an expression
 like:
 .CS
-set num [expr { $num & 0xffff }]
+set num [expr { $num & 0xFFFF }]
 .CE
 .RE
 .IP \fBS\fR 5
@@ -619,7 +619,7 @@ stored in \fIvar2\fR.  Note that the integers returned are signed, but
 they can be converted to unsigned 32-bit quantities using an expression
 like:
 .CS
-set num [expr { $num & 0xffffffff }]
+set num [expr { $num & 0xFFFFFFFF }]
 .CE
 .RE
 .IP \fBI\fR 5
diff --git a/library/clock.tcl b/library/clock.tcl
index eb87251..3018a3b 100644
--- a/library/clock.tcl
+++ b/library/clock.tcl
@@ -3559,7 +3559,7 @@ proc ::tcl::clock::ReadZoneinfoFile {fileName fname} {
     set times [linsert $times 0 $MINWIDE]
     set codes {}
     foreach c $tempCodes {
-	lappend codes [expr { $c & 0xff }]
+	lappend codes [expr { $c & 0xFF }]
     }
     set codes [linsert $codes 0 0]
 
diff --git a/tools/loadICU.tcl b/tools/loadICU.tcl
index 5b09e2c..1cdd12f 100755
--- a/tools/loadICU.tcl
+++ b/tools/loadICU.tcl
@@ -588,7 +588,7 @@ proc backslashify { string } {
     set retval {}
     foreach char [split $string {}] {
 	scan $char %c ccode
-	if { $ccode >= 0x0020 && $ccode < 0x007f && $char ne "\"" 
+	if { $ccode >= 0x0020 && $ccode < 0x007F && $char ne "\"" 
 	     && $char ne "\{" && $char ne "\}" && $char ne "\["
 	     && $char ne "\]" && $char ne "\\" && $char ne "\$" } {
 	    append retval $char
diff --git a/tools/makeTestCases.tcl b/tools/makeTestCases.tcl
index d96a221..c230d57 100755
--- a/tools/makeTestCases.tcl
+++ b/tools/makeTestCases.tcl
@@ -592,7 +592,7 @@ proc testcases5 { f2 } {
 	foreach { t offset isdst tzname } $row break
 	if { $t > -4000000000000 } {
 	    set conds [list detroit]
-	    if { $t > wide(0x7fffffff) } {
+	    if { $t > wide(0x7FFFFFFF) } {
 		set conds [list detroit y2038]
 	    }
 	    incr t -1
diff --git a/unix/configure b/unix/configure
index a06ac5a..b02525b 100755
--- a/unix/configure
+++ b/unix/configure
@@ -18983,7 +18983,7 @@ echo "${ECHO_T}static library" >&6
 
     TCL_SHLIB_LD_EXTRAS="-compatibility_version ${TCL_VERSION} -current_version ${TCL_VERSION}`echo ${TCL_PATCH_LEVEL} | awk '{match($0, "\\\.[0-9]+"); print substr($0,RSTART,RLENGTH)}'`"
     TCL_SHLIB_LD_EXTRAS="${TCL_SHLIB_LD_EXTRAS}"' -install_name "${DYLIB_INSTALL_DIR}"/${TCL_LIB_FILE}'
-    echo "$LDFLAGS " | grep -q -- '-prebind ' && TCL_SHLIB_LD_EXTRAS="${TCL_SHLIB_LD_EXTRAS}"' -seg1addr 0xa000000'
+    echo "$LDFLAGS " | grep -q -- '-prebind ' && TCL_SHLIB_LD_EXTRAS="${TCL_SHLIB_LD_EXTRAS}"' -seg1addr 0xA000000'
     TCL_SHLIB_LD_EXTRAS="${TCL_SHLIB_LD_EXTRAS}"' -sectcreate __TEXT __info_plist Tcl-Info.plist'
     EXTRA_TCLSH_LIBS='-sectcreate __TEXT __info_plist Tclsh-Info.plist'
     EXTRA_APP_CC_SWITCHES='-mdynamic-no-pic'
diff --git a/unix/configure.in b/unix/configure.in
index 92ba199..c110c21 100644
--- a/unix/configure.in
+++ b/unix/configure.in
@@ -767,7 +767,7 @@ if test "`uname -s`" = "Darwin" ; then
     SC_ENABLE_FRAMEWORK
     TCL_SHLIB_LD_EXTRAS="-compatibility_version ${TCL_VERSION} -current_version ${TCL_VERSION}`echo ${TCL_PATCH_LEVEL} | awk ['{match($0, "\\\.[0-9]+"); print substr($0,RSTART,RLENGTH)}']`"
     TCL_SHLIB_LD_EXTRAS="${TCL_SHLIB_LD_EXTRAS}"' -install_name "${DYLIB_INSTALL_DIR}"/${TCL_LIB_FILE}'
-    echo "$LDFLAGS " | grep -q -- '-prebind ' && TCL_SHLIB_LD_EXTRAS="${TCL_SHLIB_LD_EXTRAS}"' -seg1addr 0xa000000'
+    echo "$LDFLAGS " | grep -q -- '-prebind ' && TCL_SHLIB_LD_EXTRAS="${TCL_SHLIB_LD_EXTRAS}"' -seg1addr 0xA000000'
     TCL_SHLIB_LD_EXTRAS="${TCL_SHLIB_LD_EXTRAS}"' -sectcreate __TEXT __info_plist Tcl-Info.plist'
     EXTRA_TCLSH_LIBS='-sectcreate __TEXT __info_plist Tclsh-Info.plist'
     EXTRA_APP_CC_SWITCHES='-mdynamic-no-pic'
diff --git a/unix/tclUnixPort.h b/unix/tclUnixPort.h
index 9a923ef..086dd91 100644
--- a/unix/tclUnixPort.h
+++ b/unix/tclUnixPort.h
@@ -227,27 +227,27 @@ extern int TclUnixSetBlockingMode(int fd, int mode);
  */
 
 #ifndef WIFEXITED
-#   define WIFEXITED(stat)  (((*((int *) &(stat))) & 0xff) == 0)
+#   define WIFEXITED(stat)  (((*((int *) &(stat))) & 0xFF) == 0)
 #endif
 
 #ifndef WEXITSTATUS
-#   define WEXITSTATUS(stat) (((*((int *) &(stat))) >> 8) & 0xff)
+#   define WEXITSTATUS(stat) (((*((int *) &(stat))) >> 8) & 0xFF)
 #endif
 
 #ifndef WIFSIGNALED
-#   define WIFSIGNALED(stat) (((*((int *) &(stat)))) && ((*((int *) &(stat))) == ((*((int *) &(stat))) & 0x00ff)))
+#   define WIFSIGNALED(stat) (((*((int *) &(stat)))) && ((*((int *) &(stat))) == ((*((int *) &(stat))) & 0xFF)))
 #endif
 
 #ifndef WTERMSIG
-#   define WTERMSIG(stat)    ((*((int *) &(stat))) & 0x7f)
+#   define WTERMSIG(stat)    ((*((int *) &(stat))) & 0x7F)
 #endif
 
 #ifndef WIFSTOPPED
-#   define WIFSTOPPED(stat)  (((*((int *) &(stat))) & 0xff) == 0177)
+#   define WIFSTOPPED(stat)  (((*((int *) &(stat))) & 0xFF) == 0177)
 #endif
 
 #ifndef WSTOPSIG
-#   define WSTOPSIG(stat)    (((*((int *) &(stat))) >> 8) & 0xff)
+#   define WSTOPSIG(stat)    (((*((int *) &(stat))) >> 8) & 0xFF)
 #endif
 
 /*
-- 
cgit v0.12


From dc763386a9f92c39f6573be75aff10c6528003ef Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Tue, 17 Mar 2020 01:01:25 +0000
Subject: TIP 569 - remove lint comments

---
 generic/regcomp.c        |  2 +-
 generic/regerror.c       |  1 -
 generic/tclBasic.c       |  3 ---
 generic/tclCkalloc.c     |  2 --
 generic/tclCmdAH.c       | 16 +---------------
 generic/tclCmdMZ.c       |  1 -
 generic/tclEncoding.c    |  4 ++--
 generic/tclEnv.c         |  1 -
 generic/tclEvent.c       |  3 ---
 generic/tclFileName.c    |  6 ++----
 generic/tclHash.c        |  2 --
 generic/tclIO.c          |  4 ----
 generic/tclIOCmd.c       | 14 --------------
 generic/tclIOGT.c        |  2 --
 generic/tclIOUtil.c      |  2 +-
 generic/tclInterp.c      |  4 +---
 generic/tclMain.c        |  1 -
 generic/tclNamesp.c      |  1 -
 generic/tclPanic.c       |  2 --
 generic/tclPkg.c         |  1 -
 generic/tclPreserve.c    |  1 -
 generic/tclProc.c        |  2 --
 generic/tclScan.c        |  1 -
 generic/tclTest.c        | 26 +-------------------------
 generic/tclThreadAlloc.c |  2 +-
 generic/tclThreadTest.c  |  5 -----
 generic/tclTimer.c       |  2 --
 generic/tclTrace.c       |  3 ---
 generic/tclUtil.c        |  3 +--
 generic/tclVar.c         | 19 -------------------
 unix/tclUnixChan.c       |  1 -
 unix/tclUnixFCmd.c       |  4 ++--
 unix/tclUnixPipe.c       |  3 ---
 unix/tclUnixSock.c       |  5 -----
 win/tclWinFCmd.c         |  2 +-
 win/tclWinPipe.c         |  1 -
 win/tclWinSock.c         |  7 -------
 win/tclWinTest.c         |  1 -
 win/tclWinTime.c         |  1 -
 39 files changed, 14 insertions(+), 147 deletions(-)

diff --git a/generic/regcomp.c b/generic/regcomp.c
index 79e6536..99dfef1 100644
--- a/generic/regcomp.c
+++ b/generic/regcomp.c
@@ -808,7 +808,7 @@ parseqatom(
     atom = NULL;
     assert(lp->nouts == 0);	/* must string new code */
     assert(rp->nins == 0);	/* between lp and rp */
-    subno = 0;			/* just to shut lint up */
+    subno = 0;
 
     /*
      * An atom or constraint...
diff --git a/generic/regerror.c b/generic/regerror.c
index f783217..500dfe2 100644
--- a/generic/regerror.c
+++ b/generic/regerror.c
@@ -54,7 +54,6 @@ static const struct rerr {
 /*
  - regerror - the interface to error numbers
  */
-/* ARGSUSED */
 size_t				/* Actual space needed (including NUL) */
 regerror(
     int code,			/* Error code, or REG_ATOI or REG_ITOA */
diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index f7f4f19..8597370 100644
--- a/generic/tclBasic.c
+++ b/generic/tclBasic.c
@@ -653,7 +653,6 @@ Tcl_CreateInterp(void)
      */
 
     if (sizeof(Tcl_CallFrame) < sizeof(CallFrame)) {
-	/*NOTREACHED*/
 	Tcl_Panic("Tcl_CallFrame must not be smaller than CallFrame");
     }
 
@@ -666,7 +665,6 @@ Tcl_CreateInterp(void)
      */
     if ((offsetof(Tcl_StatBuf,st_atime) != 32)
 	    || (offsetof(Tcl_StatBuf,st_ctime) != 40)) {
-	/*NOTREACHED*/
 	Tcl_Panic("<sys/stat.h> is not compatible with MSVC");
     }
 #endif
@@ -7339,7 +7337,6 @@ Tcl_VarEvalVA(
  *
  *----------------------------------------------------------------------
  */
-	/* ARGSUSED */
 int
 Tcl_VarEval(
     Tcl_Interp *interp,
diff --git a/generic/tclCkalloc.c b/generic/tclCkalloc.c
index 0092c83..6fd2f40 100644
--- a/generic/tclCkalloc.c
+++ b/generic/tclCkalloc.c
@@ -808,7 +808,6 @@ Tcl_AttemptRealloc(
  *
  *----------------------------------------------------------------------
  */
-	/* ARGSUSED */
 static int
 MemoryCmd(
     ClientData clientData,
@@ -1219,7 +1218,6 @@ Tcl_DbCkfree(
  *
  *----------------------------------------------------------------------
  */
-	/* ARGSUSED */
 void
 Tcl_InitMemory(
     TCL_UNUSED(Tcl_Interp *) /*interp*/)
diff --git a/generic/tclCmdAH.c b/generic/tclCmdAH.c
index bd65f04..ffe0088 100644
--- a/generic/tclCmdAH.c
+++ b/generic/tclCmdAH.c
@@ -117,7 +117,6 @@ static Tcl_ObjCmdProc PathTypeCmd;
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 int
 Tcl_BreakObjCmd(
     TCL_UNUSED(ClientData),
@@ -150,7 +149,6 @@ Tcl_BreakObjCmd(
  *----------------------------------------------------------------------
  */
 #if !defined(TCL_NO_DEPRECATED) && TCL_MAJOR_VERSION < 9
-	/* ARGSUSED */
 int
 Tcl_CaseObjCmd(
     TCL_UNUSED(ClientData),
@@ -286,7 +284,6 @@ Tcl_CaseObjCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 int
 Tcl_CatchObjCmd(
     ClientData clientData,
@@ -392,7 +389,6 @@ CatchObjCmdCallback(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 int
 Tcl_CdObjCmd(
     TCL_UNUSED(ClientData),
@@ -448,7 +444,6 @@ Tcl_CdObjCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 int
 Tcl_ConcatObjCmd(
     TCL_UNUSED(ClientData),
@@ -483,7 +478,6 @@ Tcl_ConcatObjCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 int
 Tcl_ContinueObjCmd(
     TCL_UNUSED(ClientData),
@@ -782,7 +776,6 @@ EncodingSystemObjCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 int
 Tcl_ErrorObjCmd(
     TCL_UNUSED(ClientData),
@@ -832,7 +825,6 @@ Tcl_ErrorObjCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 EvalCmdErrMsg(
     TCL_UNUSED(ClientData *),
@@ -915,7 +907,6 @@ TclNREvalObjCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 int
 Tcl_ExitObjCmd(
     TCL_UNUSED(ClientData),
@@ -936,7 +927,6 @@ Tcl_ExitObjCmd(
 	return TCL_ERROR;
     }
     Tcl_Exit((int)value);
-    /*NOTREACHED*/
     return TCL_OK;		/* Better not ever reach this! */
 }
 
@@ -964,7 +954,6 @@ Tcl_ExitObjCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 int
 Tcl_ExprObjCmd(
     ClientData clientData,
@@ -2073,7 +2062,7 @@ FilesystemSeparatorCmd(
 	return TCL_ERROR;
     }
     if (objc == 1) {
-	const char *separator = NULL; /* lint */
+	const char *separator = NULL;
 
 	switch (tclPlatform) {
 	case TCL_PLATFORM_UNIX:
@@ -2376,7 +2365,6 @@ GetTypeFromMode(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 int
 Tcl_ForObjCmd(
     ClientData clientData,
@@ -2571,7 +2559,6 @@ ForPostNextCallback(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 int
 Tcl_ForeachObjCmd(
     ClientData clientData,
@@ -2889,7 +2876,6 @@ ForeachCleanup(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 int
 Tcl_FormatObjCmd(
     TCL_UNUSED(ClientData),
diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c
index 2f5d399..645b852 100644
--- a/generic/tclCmdMZ.c
+++ b/generic/tclCmdMZ.c
@@ -3990,7 +3990,6 @@ SwitchPostProc(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 int
 Tcl_ThrowObjCmd(
     TCL_UNUSED(ClientData),
diff --git a/generic/tclEncoding.c b/generic/tclEncoding.c
index b02be21..4b99f27 100644
--- a/generic/tclEncoding.c
+++ b/generic/tclEncoding.c
@@ -3211,8 +3211,8 @@ EscapeToUtfProc(
 	charLimit = *dstCharsPtr;
     }
     result = TCL_OK;
-    tablePrefixBytes = NULL;	/* lint. */
-    tableToUnicode = NULL;	/* lint. */
+    tablePrefixBytes = NULL;
+    tableToUnicode = NULL;
     prefixBytes = dataPtr->prefixBytes;
     encodingPtr = NULL;
 
diff --git a/generic/tclEnv.c b/generic/tclEnv.c
index 143dab9..f5c5c5d 100644
--- a/generic/tclEnv.c
+++ b/generic/tclEnv.c
@@ -597,7 +597,6 @@ TclGetEnv(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static char *
 EnvTraceProc(
     TCL_UNUSED(ClientData),
diff --git a/generic/tclEvent.c b/generic/tclEvent.c
index d9f868c..db1f59a 100644
--- a/generic/tclEvent.c
+++ b/generic/tclEvent.c
@@ -1396,7 +1396,6 @@ TclInThreadExit(void)
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 int
 Tcl_VwaitObjCmd(
     TCL_UNUSED(ClientData),
@@ -1460,7 +1459,6 @@ Tcl_VwaitObjCmd(
     return TCL_OK;
 }
 
-	/* ARGSUSED */
 static char *
 VwaitVarProc(
     void *clientData,		/* Pointer to integer to set to 1. */
@@ -1494,7 +1492,6 @@ VwaitVarProc(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 int
 Tcl_UpdateObjCmd(
     TCL_UNUSED(ClientData),
diff --git a/generic/tclFileName.c b/generic/tclFileName.c
index a069ff1..32b217f 100644
--- a/generic/tclFileName.c
+++ b/generic/tclFileName.c
@@ -1217,7 +1217,6 @@ DoTildeSubst(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 int
 Tcl_GlobObjCmd(
     TCL_UNUSED(ClientData),
@@ -1344,7 +1343,7 @@ Tcl_GlobObjCmd(
 	return TCL_ERROR;
     }
 
-    separators = NULL;		/* lint. */
+    separators = NULL;
     switch (tclPlatform) {
     case TCL_PLATFORM_UNIX:
 	separators = "/";
@@ -1704,7 +1703,6 @@ Tcl_GlobObjCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 int
 TclGlob(
     Tcl_Interp *interp,		/* Interpreter for returning error message or
@@ -1723,7 +1721,7 @@ TclGlob(
     int result;
     Tcl_Obj *filenamesObj, *savedResultObj;
 
-    separators = NULL;		/* lint. */
+    separators = NULL;
     switch (tclPlatform) {
     case TCL_PLATFORM_UNIX:
 	separators = "/";
diff --git a/generic/tclHash.c b/generic/tclHash.c
index e48c816..584b5e1 100644
--- a/generic/tclHash.c
+++ b/generic/tclHash.c
@@ -927,7 +927,6 @@ HashStringKey(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static Tcl_HashEntry *
 BogusFind(
     TCL_UNUSED(Tcl_HashTable *),
@@ -954,7 +953,6 @@ BogusFind(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static Tcl_HashEntry *
 BogusCreate(
     TCL_UNUSED(Tcl_HashTable *),
diff --git a/generic/tclIO.c b/generic/tclIO.c
index edb0f1e..d65f6e6 100644
--- a/generic/tclIO.c
+++ b/generic/tclIO.c
@@ -579,7 +579,6 @@ TclInitIOSubsystem(void)
  *-------------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 void
 TclFinalizeIOSubsystem(void)
 {
@@ -3378,7 +3377,6 @@ Tcl_SpliceChannel(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 int
 Tcl_Close(
     Tcl_Interp *interp,		/* Interpreter for errors. */
@@ -3582,7 +3580,6 @@ Tcl_Close(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 int
 Tcl_CloseEx(
     Tcl_Interp *interp,		/* Interpreter for errors. */
@@ -8988,7 +8985,6 @@ TclChannelEventScriptInvoker(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 int
 Tcl_FileEventObjCmd(
     TCL_UNUSED(ClientData),
diff --git a/generic/tclIOCmd.c b/generic/tclIOCmd.c
index 916936b..508a991 100644
--- a/generic/tclIOCmd.c
+++ b/generic/tclIOCmd.c
@@ -95,7 +95,6 @@ FinalizeIOCmdTSD(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 int
 Tcl_PutsObjCmd(
     TCL_UNUSED(ClientData),
@@ -222,7 +221,6 @@ Tcl_PutsObjCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 int
 Tcl_FlushObjCmd(
     TCL_UNUSED(ClientData),
@@ -287,7 +285,6 @@ Tcl_FlushObjCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 int
 Tcl_GetsObjCmd(
     TCL_UNUSED(ClientData),
@@ -372,7 +369,6 @@ Tcl_GetsObjCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 int
 Tcl_ReadObjCmd(
     TCL_UNUSED(ClientData),
@@ -516,7 +512,6 @@ Tcl_ReadObjCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 int
 Tcl_SeekObjCmd(
     TCL_UNUSED(ClientData),
@@ -592,7 +587,6 @@ Tcl_SeekObjCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 int
 Tcl_TellObjCmd(
     TCL_UNUSED(ClientData),
@@ -655,7 +649,6 @@ Tcl_TellObjCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 int
 Tcl_CloseObjCmd(
     TCL_UNUSED(ClientData),
@@ -764,7 +757,6 @@ Tcl_CloseObjCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 int
 Tcl_FconfigureObjCmd(
     TCL_UNUSED(ClientData),
@@ -840,7 +832,6 @@ Tcl_FconfigureObjCmd(
  *---------------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 int
 Tcl_EofObjCmd(
     TCL_UNUSED(ClientData),
@@ -880,7 +871,6 @@ Tcl_EofObjCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 int
 Tcl_ExecObjCmd(
     TCL_UNUSED(ClientData),
@@ -1048,7 +1038,6 @@ Tcl_ExecObjCmd(
  *---------------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 int
 Tcl_FblockedObjCmd(
     TCL_UNUSED(ClientData),
@@ -1095,7 +1084,6 @@ Tcl_FblockedObjCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 int
 Tcl_OpenObjCmd(
     TCL_UNUSED(ClientData),
@@ -1219,7 +1207,6 @@ Tcl_OpenObjCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static void
 TcpAcceptCallbacksDeleteProc(
     ClientData clientData,	/* Data which was passed when the assocdata
@@ -1809,7 +1796,6 @@ Tcl_FcopyObjCmd(
  *---------------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 ChanPendingObjCmd(
     TCL_UNUSED(ClientData),
diff --git a/generic/tclIOGT.c b/generic/tclIOGT.c
index 3d0782c..353998f 100644
--- a/generic/tclIOGT.c
+++ b/generic/tclIOGT.c
@@ -257,7 +257,6 @@ ReleaseData(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 int
 TclChannelTransform(
     Tcl_Interp *interp,		/* Interpreter for result. */
@@ -1096,7 +1095,6 @@ TransformGetOptionProc(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static void
 TransformWatchProc(
     ClientData instanceData,	/* Channel to watch. */
diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c
index 4a79962..db533d7 100644
--- a/generic/tclIOUtil.c
+++ b/generic/tclIOUtil.c
@@ -4680,7 +4680,7 @@ static Tcl_Obj *
 NativeFilesystemSeparator(
     TCL_UNUSED(Tcl_Obj *) /*pathPtr*/)
 {
-    const char *separator = NULL; /* lint */
+    const char *separator = NULL;
 
     switch (tclPlatform) {
     case TCL_PLATFORM_UNIX:
diff --git a/generic/tclInterp.c b/generic/tclInterp.c
index 5b0cd62..1570837 100644
--- a/generic/tclInterp.c
+++ b/generic/tclInterp.c
@@ -598,7 +598,7 @@ InterpInfoDeleteProc(
  *
  *----------------------------------------------------------------------
  */
-	/* ARGSUSED */
+
 int
 Tcl_InterpObjCmd(
     ClientData clientData,
@@ -1474,8 +1474,6 @@ TclPreventAliasLoop(
 	}
 	nextAliasPtr = (Alias *)aliasCmdPtr->objClientData;
     }
-
-    /* NOTREACHED */
 }
 
 /*
diff --git a/generic/tclMain.c b/generic/tclMain.c
index faa0d31..4f44685 100644
--- a/generic/tclMain.c
+++ b/generic/tclMain.c
@@ -731,7 +731,6 @@ TclFullFinalizationRequested(void)
  *----------------------------------------------------------------------
  */
 
-    /* ARGSUSED */
 static void
 StdinProc(
     ClientData clientData,	/* The state of interactive cmd line */
diff --git a/generic/tclNamesp.c b/generic/tclNamesp.c
index c39c48b..26dca62 100644
--- a/generic/tclNamesp.c
+++ b/generic/tclNamesp.c
@@ -315,7 +315,6 @@ Tcl_PushCallFrame(
 
 	if (nsPtr->flags & NS_DEAD) {
 	    Tcl_Panic("Trying to push call frame for dead namespace");
-	    /*NOTREACHED*/
 	}
     }
 
diff --git a/generic/tclPanic.c b/generic/tclPanic.c
index a3fc47d..da5c134 100644
--- a/generic/tclPanic.c
+++ b/generic/tclPanic.c
@@ -142,8 +142,6 @@ Tcl_PanicVA(
  *----------------------------------------------------------------------
  */
 
-/* ARGSUSED */
-
 /*
  * The following comment is here so that Coverity's static analizer knows that
  * a Tcl_Panic() call can never return and avoids lots of false positives.
diff --git a/generic/tclPkg.c b/generic/tclPkg.c
index bb3795b..b39224e 100644
--- a/generic/tclPkg.c
+++ b/generic/tclPkg.c
@@ -1060,7 +1060,6 @@ Tcl_PackageObjCmd(
     return Tcl_NRCallObjProc(interp, TclNRPackageObjCmd, clientData, objc, objv);
 }
 
-	/* ARGSUSED */
 int
 TclNRPackageObjCmd(
     TCL_UNUSED(ClientData),
diff --git a/generic/tclPreserve.c b/generic/tclPreserve.c
index 6930225..d60ebec 100644
--- a/generic/tclPreserve.c
+++ b/generic/tclPreserve.c
@@ -83,7 +83,6 @@ typedef struct HandleStruct {
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 void
 TclFinalizePreserve(void)
 {
diff --git a/generic/tclProc.c b/generic/tclProc.c
index 9951249..5a1b589 100644
--- a/generic/tclProc.c
+++ b/generic/tclProc.c
@@ -148,7 +148,6 @@ static const Tcl_ObjType lambdaType = {
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 int
 Tcl_ProcObjCmd(
     TCL_UNUSED(ClientData),
@@ -884,7 +883,6 @@ Uplevel_Callback(
     return result;
 }
 
-	/* ARGSUSED */
 int
 Tcl_UplevelObjCmd(
     ClientData clientData,
diff --git a/generic/tclScan.c b/generic/tclScan.c
index 5aa6a10..354f3d6b 100644
--- a/generic/tclScan.c
+++ b/generic/tclScan.c
@@ -562,7 +562,6 @@ ValidateFormat(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 int
 Tcl_ScanObjCmd(
     TCL_UNUSED(ClientData),
diff --git a/generic/tclTest.c b/generic/tclTest.c
index 2a54dcf..403e6d6 100644
--- a/generic/tclTest.c
+++ b/generic/tclTest.c
@@ -717,7 +717,6 @@ Tcltest_SafeInit(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 TestasyncCmd(
     TCL_UNUSED(ClientData),
@@ -963,7 +962,6 @@ TestbumpinterpepochObjCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 TestcmdinfoCmd(
     TCL_UNUSED(ClientData),
@@ -1034,7 +1032,6 @@ TestcmdinfoCmd(
     return TCL_OK;
 }
 
-	/*ARGSUSED*/
 static int
 CmdProc1(
     void *clientData,	/* String to return. */
@@ -1046,7 +1043,6 @@ CmdProc1(
     return TCL_OK;
 }
 
-	/*ARGSUSED*/
 static int
 CmdProc2(
     void *clientData,	/* String to return. */
@@ -1093,7 +1089,6 @@ CmdDelProc2(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 TestcmdtokenCmd(
     TCL_UNUSED(ClientData),
@@ -1157,7 +1152,6 @@ TestcmdtokenCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 TestcmdtraceCmd(
     TCL_UNUSED(ClientData),
@@ -1440,7 +1434,6 @@ CreatedCommandProc2(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 TestdcallCmd(
     TCL_UNUSED(ClientData),
@@ -1505,7 +1498,6 @@ DelCallbackProc(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 TestdelCmd(
     TCL_UNUSED(ClientData),
@@ -1705,7 +1697,6 @@ TestdoubledigitsObjCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 TestdstringCmd(
     TCL_UNUSED(ClientData),
@@ -1832,7 +1823,6 @@ static void SpecialFree(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 TestencodingObjCmd(
     TCL_UNUSED(ClientData),
@@ -2690,7 +2680,6 @@ TestgetplatformCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 TestinterpdeleteCmd(
     TCL_UNUSED(ClientData),
@@ -2731,7 +2720,6 @@ TestinterpdeleteCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 TestlinkCmd(
     TCL_UNUSED(ClientData),
@@ -3378,7 +3366,7 @@ TestlocaleCmd(
  *
  *----------------------------------------------------------------------
  */
-	/* ARGSUSED */
+
 static void
 CleanupTestSetassocdataTests(
     void *clientData,	/* Data to be released. */
@@ -3782,7 +3770,6 @@ TestprintObjCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 TestregexpObjCmd(
     TCL_UNUSED(ClientData),
@@ -4106,7 +4093,6 @@ TestregexpXflags(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 TestreturnObjCmd(
     TCL_UNUSED(ClientData),
@@ -4327,7 +4313,6 @@ TesttranslatefilenameCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 TestupvarCmd(
     TCL_UNUSED(ClientData),
@@ -4380,7 +4365,6 @@ TestupvarCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 TestseterrorcodeCmd(
     TCL_UNUSED(ClientData),
@@ -4433,7 +4417,6 @@ TestseterrorcodeCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 TestsetobjerrorcodeCmd(
     TCL_UNUSED(ClientData),
@@ -4462,7 +4445,6 @@ TestsetobjerrorcodeCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 TestfeventCmd(
     TCL_UNUSED(ClientData),
@@ -5112,7 +5094,6 @@ TestbytestringObjCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 TestsetCmd(
     void *data,		/* Additional flags for Get/SetVar2. */
@@ -5195,7 +5176,6 @@ Testset2Cmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 TestsaveresultCmd(
     TCL_UNUSED(ClientData),
@@ -5445,7 +5425,6 @@ TestexitmainloopCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 TestChannelCmd(
     TCL_UNUSED(ClientData),
@@ -5507,7 +5486,6 @@ TestChannelCmd(
 	chanPtr		= statePtr->topChanPtr;
 	chan		= (Tcl_Channel) chanPtr;
     } else {
-	/* lint */
 	statePtr	= NULL;
 	chan		= NULL;
     }
@@ -5914,7 +5892,6 @@ TestChannelCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 TestChannelEventCmd(
     TCL_UNUSED(ClientData),
@@ -6127,7 +6104,6 @@ TestChannelEventCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 TestSocketCmd(
     TCL_UNUSED(ClientData),
diff --git a/generic/tclThreadAlloc.c b/generic/tclThreadAlloc.c
index 1aa2be1..db9d65e 100644
--- a/generic/tclThreadAlloc.c
+++ b/generic/tclThreadAlloc.c
@@ -1015,7 +1015,7 @@ GetBlocks(
 
 	blockPtr = NULL;
 	n = NBUCKETS;
-	size = 0; /* lint */
+	size = 0;
 	while (--n > bucket) {
 	    if (cachePtr->buckets[n].numFree > 0) {
 		size = bucketInfo[n].blockSize;
diff --git a/generic/tclThreadTest.c b/generic/tclThreadTest.c
index 961a56a..b1b64f4 100644
--- a/generic/tclThreadTest.c
+++ b/generic/tclThreadTest.c
@@ -203,7 +203,6 @@ TclThread_Init(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 ThreadObjCmd(
     TCL_UNUSED(ClientData),
@@ -491,7 +490,6 @@ ThreadObjCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 ThreadCreate(
     Tcl_Interp *interp,		/* Current interpreter. */
@@ -1078,7 +1076,6 @@ ThreadEventProc(
  *------------------------------------------------------------------------
  */
 
-     /* ARGSUSED */
 static void
 ThreadFreeProc(
     void *clientData)
@@ -1105,7 +1102,6 @@ ThreadFreeProc(
  *------------------------------------------------------------------------
  */
 
-     /* ARGSUSED */
 static int
 ThreadDeleteEvent(
     Tcl_Event *eventPtr,	/* Really ThreadEvent */
@@ -1141,7 +1137,6 @@ ThreadDeleteEvent(
  *------------------------------------------------------------------------
  */
 
-     /* ARGSUSED */
 static void
 ThreadExitProc(
     void *clientData)
diff --git a/generic/tclTimer.c b/generic/tclTimer.c
index db2c7d5..05a80b0 100644
--- a/generic/tclTimer.c
+++ b/generic/tclTimer.c
@@ -776,7 +776,6 @@ TclServiceIdle(void)
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 int
 Tcl_AfterObjCmd(
     TCL_UNUSED(ClientData),
@@ -1248,7 +1247,6 @@ FreeAfterPtr(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static void
 AfterCleanupProc(
     ClientData clientData,	/* Points to AfterAssocData for the
diff --git a/generic/tclTrace.c b/generic/tclTrace.c
index 5d69a49..e05fa69 100644
--- a/generic/tclTrace.c
+++ b/generic/tclTrace.c
@@ -181,7 +181,6 @@ typedef struct {
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 int
 Tcl_TraceObjCmd(
     TCL_UNUSED(ClientData),
@@ -1277,7 +1276,6 @@ Tcl_UntraceCommand(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static void
 TraceCommandProc(
     ClientData clientData,	/* Information about the command trace. */
@@ -1961,7 +1959,6 @@ TraceExecutionProc(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static char *
 TraceVarProc(
     ClientData clientData,	/* Information about the variable trace. */
diff --git a/generic/tclUtil.c b/generic/tclUtil.c
index 7a05d95..6a6f6ae 100644
--- a/generic/tclUtil.c
+++ b/generic/tclUtil.c
@@ -581,7 +581,7 @@ FindElement(
     const char *limit;		/* Points just after list/dict's last byte. */
     int openBraces = 0;		/* Brace nesting level during parse. */
     int inQuotes = 0;
-    int size = 0;		/* lint. */
+    int size = 0;
     int numChars;
     int literal = 1;
     const char *p2;
@@ -3436,7 +3436,6 @@ Tcl_PrintDouble(
  */
 
 #if !defined(TCL_NO_DEPRECATED) && TCL_MAJOR_VERSION < 9
-	/* ARGSUSED */
 char *
 TclPrecTraceProc(
     ClientData clientData,
diff --git a/generic/tclVar.c b/generic/tclVar.c
index 40170dc..72724a4 100644
--- a/generic/tclVar.c
+++ b/generic/tclVar.c
@@ -1524,7 +1524,6 @@ TclPtrGetVarIdx(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 int
 Tcl_SetObjCmd(
     TCL_UNUSED(ClientData),
@@ -2819,7 +2818,6 @@ UnsetVarStruct(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 int
 Tcl_UnsetObjCmd(
     TCL_UNUSED(ClientData),
@@ -2887,7 +2885,6 @@ Tcl_UnsetObjCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 int
 Tcl_AppendObjCmd(
     TCL_UNUSED(ClientData),
@@ -2953,7 +2950,6 @@ Tcl_AppendObjCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 int
 Tcl_LappendObjCmd(
     TCL_UNUSED(ClientData),
@@ -3399,8 +3395,6 @@ ArrayPopulateSearch(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
-
 static int
 ArrayStartSearchCmd(
     TCL_UNUSED(ClientData),
@@ -3496,7 +3490,6 @@ ArrayDoneSearch(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 ArrayAnyMoreCmd(
     TCL_UNUSED(ClientData),
@@ -3575,7 +3568,6 @@ ArrayAnyMoreCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 ArrayNextElementCmd(
     TCL_UNUSED(ClientData),
@@ -3656,7 +3648,6 @@ ArrayNextElementCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 ArrayDoneSearchCmd(
     TCL_UNUSED(ClientData),
@@ -3717,7 +3708,6 @@ ArrayDoneSearchCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 ArrayExistsCmd(
     TCL_UNUSED(ClientData),
@@ -3758,7 +3748,6 @@ ArrayExistsCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 ArrayGetCmd(
     TCL_UNUSED(ClientData),
@@ -3918,7 +3907,6 @@ ArrayGetCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 ArrayNamesCmd(
     TCL_UNUSED(ClientData),
@@ -4086,7 +4074,6 @@ TclFindArrayPtrElements(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 ArraySetCmd(
     TCL_UNUSED(ClientData),
@@ -4262,7 +4249,6 @@ ArraySetCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 ArraySizeCmd(
     TCL_UNUSED(ClientData),
@@ -4322,7 +4308,6 @@ ArraySizeCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 ArrayStatsCmd(
     TCL_UNUSED(ClientData),
@@ -4377,7 +4362,6 @@ ArrayStatsCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 ArrayUnsetCmd(
     TCL_UNUSED(ClientData),
@@ -4514,7 +4498,6 @@ ArrayUnsetCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 Tcl_Command
 TclInitArrayCmd(
     Tcl_Interp *interp)		/* Current interpreter. */
@@ -5241,7 +5224,6 @@ Tcl_VariableObjCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 int
 Tcl_UpvarObjCmd(
     TCL_UNUSED(ClientData),
@@ -6642,7 +6624,6 @@ CompareVarKeys(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 ArrayDefaultCmd(
     TCL_UNUSED(ClientData),
diff --git a/unix/tclUnixChan.c b/unix/tclUnixChan.c
index 045aad0..f670349 100644
--- a/unix/tclUnixChan.c
+++ b/unix/tclUnixChan.c
@@ -228,7 +228,6 @@ static const Tcl_ChannelType ttyChannelType = {
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 FileBlockModeProc(
     void *instanceData,	/* File state. */
diff --git a/unix/tclUnixFCmd.c b/unix/tclUnixFCmd.c
index bd93ad2..2ea98a0 100644
--- a/unix/tclUnixFCmd.c
+++ b/unix/tclUnixFCmd.c
@@ -134,7 +134,7 @@ enum {
     MACOSX_CREATOR_ATTRIBUTE, MACOSX_TYPE_ATTRIBUTE, MACOSX_HIDDEN_ATTRIBUTE,
     MACOSX_RSRCLENGTH_ATTRIBUTE,
 #endif
-    UNIX_INVALID_ATTRIBUTE /* lint - last enum value needs no trailing , */
+    UNIX_INVALID_ATTRIBUTE
 };
 
 const char *const tclpFileAttrStrings[] = {
@@ -964,7 +964,7 @@ TraverseUnixTree(
 
     errfile = NULL;
     result = TCL_OK;
-    targetLen = 0;		/* lint. */
+    targetLen = 0;
 
     source = Tcl_DStringValue(sourcePtr);
     if (TclOSlstat(source, &statBuf) != 0) {		/* INTL: Native. */
diff --git a/unix/tclUnixPipe.c b/unix/tclUnixPipe.c
index f47e021..681ee64 100644
--- a/unix/tclUnixPipe.c
+++ b/unix/tclUnixPipe.c
@@ -374,7 +374,6 @@ TclpCloseFile(
  *---------------------------------------------------------------------------
  */
 
-    /* ARGSUSED */
 int
 TclpCreateProcess(
     Tcl_Interp *interp,		/* Interpreter in which to leave errors that
@@ -900,7 +899,6 @@ TclGetAndDetachPids(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 PipeBlockModeProc(
     void *instanceData,	/* Pipe state. */
@@ -1249,7 +1247,6 @@ Tcl_WaitPid(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 int
 Tcl_PidObjCmd(
     TCL_UNUSED(ClientData),
diff --git a/unix/tclUnixSock.c b/unix/tclUnixSock.c
index 325e361..80de491 100644
--- a/unix/tclUnixSock.c
+++ b/unix/tclUnixSock.c
@@ -382,7 +382,6 @@ TclpFinalizeSockets(void)
  * ----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 TcpBlockModeProc(
     void *instanceData,	/* Socket state. */
@@ -528,7 +527,6 @@ WaitForConnect(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 TcpInputProc(
     void *instanceData,	/* Socket state. */
@@ -621,7 +619,6 @@ TcpOutputProc(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 TcpCloseProc(
     void *instanceData,	/* The socket to close. */
@@ -1102,7 +1099,6 @@ TcpWatchProc(
  * ----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 TcpGetHandleProc(
     void *instanceData,	/* The socket state. */
@@ -1758,7 +1754,6 @@ Tcl_OpenTcpServerEx(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static void
 TcpAccept(
     void *data,		/* Callback token. */
diff --git a/win/tclWinFCmd.c b/win/tclWinFCmd.c
index 347c5e9..9bb22b0 100644
--- a/win/tclWinFCmd.c
+++ b/win/tclWinFCmd.c
@@ -1195,7 +1195,7 @@ TraverseWinTree(
 
     nativeErrfile = NULL;
     result = TCL_OK;
-    oldTargetLen = 0;		/* lint. */
+    oldTargetLen = 0;
 
     nativeSource = (WCHAR *) Tcl_DStringValue(sourcePtr);
     nativeTarget = (WCHAR *)
diff --git a/win/tclWinPipe.c b/win/tclWinPipe.c
index 67cca32..754e9ed 100644
--- a/win/tclWinPipe.c
+++ b/win/tclWinPipe.c
@@ -2740,7 +2740,6 @@ TclWinAddProcess(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 int
 Tcl_PidObjCmd(
     TCL_UNUSED(ClientData),
diff --git a/win/tclWinSock.c b/win/tclWinSock.c
index cd07a8f..87e0dc6 100644
--- a/win/tclWinSock.c
+++ b/win/tclWinSock.c
@@ -546,7 +546,6 @@ TclpFinalizeSockets(void)
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 TcpBlockModeProc(
     ClientData instanceData,	/* Socket state. */
@@ -778,7 +777,6 @@ WaitForConnect(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 TcpInputProc(
     ClientData instanceData,	/* Socket state. */
@@ -1038,7 +1036,6 @@ TcpOutputProc(
  *----------------------------------------------------------------------
  */
 
-    /* ARGSUSED */
 static int
 TcpCloseProc(
     ClientData instanceData,	/* The socket to close. */
@@ -1664,7 +1661,6 @@ TcpWatchProc(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 TcpGetHandleProc(
     ClientData instanceData,	/* The socket state. */
@@ -2395,7 +2391,6 @@ Tcl_OpenTcpServerEx(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static void
 TcpAccept(
     TcpFdList *fds,	/* Server socket that accepted newSocket. */
@@ -2584,7 +2579,6 @@ InitSockets(void)
  *----------------------------------------------------------------------
  */
 
-    /* ARGSUSED */
 static int
 SocketsEnabled(void)
 {
@@ -2614,7 +2608,6 @@ SocketsEnabled(void)
  *----------------------------------------------------------------------
  */
 
-    /* ARGSUSED */
 static void
 SocketExitHandler(
     TCL_UNUSED(ClientData))
diff --git a/win/tclWinTest.c b/win/tclWinTest.c
index d78d5f1..973ec47 100644
--- a/win/tclWinTest.c
+++ b/win/tclWinTest.c
@@ -411,7 +411,6 @@ TestExceptionCmd(
     /* SMASH! */
     RaiseException(exceptions[cmd], EXCEPTION_NONCONTINUABLE, 0, NULL);
 
-    /* NOTREACHED */
     return TCL_OK;
 }
 
diff --git a/win/tclWinTime.c b/win/tclWinTime.c
index 8546fc2..2ea256b 100644
--- a/win/tclWinTime.c
+++ b/win/tclWinTime.c
@@ -1017,7 +1017,6 @@ CalibrationThread(
 	UpdateTimeEachSecond();
     }
 
-    /* lint */
     return (DWORD) 0;
 }
 
-- 
cgit v0.12


From cb291b4c47b87c9080c820a1b28c381167a5fa74 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Tue, 17 Mar 2020 01:03:05 +0000
Subject: a few more

---
 generic/tclCompCmdsSZ.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/generic/tclCompCmdsSZ.c b/generic/tclCompCmdsSZ.c
index 34f0fab..081b141 100644
--- a/generic/tclCompCmdsSZ.c
+++ b/generic/tclCompCmdsSZ.c
@@ -3129,7 +3129,7 @@ IssueTryClausesInstructions(
 	    OP(				STR_EQ);
 	    JUMP4(			JUMP_FALSE, notECJumpSource);
 	} else {
-	    notECJumpSource = -1; /* LINT */
+	    notECJumpSource = -1;
 	}
 	OP(				POP);
 
@@ -3340,7 +3340,7 @@ IssueTryClausesFinallyInstructions(
 	    OP(				STR_EQ);
 	    JUMP4(			JUMP_FALSE, notECJumpSource);
 	} else {
-	    notECJumpSource = -1; /* LINT */
+	    notECJumpSource = -1;
 	}
 	OP(				POP);
 
-- 
cgit v0.12


From 50eee151a907e29a58d8201f66988816ae14eae5 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Tue, 17 Mar 2020 16:19:17 +0000
Subject: Unicode 13 has a new range of characters from 0x30000 to 0x3134A, so
 generate those in the tables too. Add one reserved stub entry (Backported
 from 8.6)

---
 generic/regc_locale.c |  4 ++--
 generic/tcl.decls     |  5 ++++-
 generic/tclDecls.h    |  9 ++++++---
 generic/tclStubInit.c |  3 ++-
 generic/tclUniData.c  | 21 +++++++++++++++++++--
 tools/uniParse.tcl    |  4 ++--
 6 files changed, 35 insertions(+), 11 deletions(-)

diff --git a/generic/regc_locale.c b/generic/regc_locale.c
index 6b2b2ea..28fd01f 100644
--- a/generic/regc_locale.c
+++ b/generic/regc_locale.c
@@ -244,7 +244,7 @@ static const crange alphaRangeTable[] = {
     {0x1EE74, 0x1EE77}, {0x1EE79, 0x1EE7C}, {0x1EE80, 0x1EE89}, {0x1EE8B, 0x1EE9B},
     {0x1EEA1, 0x1EEA3}, {0x1EEA5, 0x1EEA9}, {0x1EEAB, 0x1EEBB}, {0x20000, 0x2A6DD},
     {0x2A700, 0x2B734}, {0x2B740, 0x2B81D}, {0x2B820, 0x2CEA1}, {0x2CEB0, 0x2EBE0},
-    {0x2F800, 0x2FA1D}
+    {0x2F800, 0x2FA1D}, {0x30000, 0x3134A}
 #endif
 };
 
@@ -769,7 +769,7 @@ static const crange graphRangeTable[] = {
     {0x1FA90, 0x1FAA8}, {0x1FAB0, 0x1FAB6}, {0x1FAC0, 0x1FAC2}, {0x1FAD0, 0x1FAD6},
     {0x1FB00, 0x1FB92}, {0x1FB94, 0x1FBCA}, {0x1FBF0, 0x1FBF9}, {0x20000, 0x2A6DD},
     {0x2A700, 0x2B734}, {0x2B740, 0x2B81D}, {0x2B820, 0x2CEA1}, {0x2CEB0, 0x2EBE0},
-    {0x2F800, 0x2FA1D}, {0xE0100, 0xE01EF}
+    {0x2F800, 0x2FA1D}, {0x30000, 0x3134A}, {0xE0100, 0xE01EF}
 #endif
 };
 
diff --git a/generic/tcl.decls b/generic/tcl.decls
index f811ab6..6510249 100644
--- a/generic/tcl.decls
+++ b/generic/tcl.decls
@@ -2107,7 +2107,10 @@ declare 578 {
 declare 579 {
     void Tcl_AppendPrintfToObj(Tcl_Obj *objPtr, const char *format, ...)
 }
-declare 648 {
+
+# ----- BASELINE -- FOR -- 8.5.0 ----- #
+
+declare 649 {
     void TclUnusedStubEntry(void)
 }
 
diff --git a/generic/tclDecls.h b/generic/tclDecls.h
index a1dbb26..a5b7ec1 100644
--- a/generic/tclDecls.h
+++ b/generic/tclDecls.h
@@ -3480,9 +3480,10 @@ EXTERN void		Tcl_AppendPrintfToObj(Tcl_Obj *objPtr,
 /* Slot 645 is reserved */
 /* Slot 646 is reserved */
 /* Slot 647 is reserved */
+/* Slot 648 is reserved */
 #ifndef TclUnusedStubEntry_TCL_DECLARED
 #define TclUnusedStubEntry_TCL_DECLARED
-/* 648 */
+/* 649 */
 EXTERN void		TclUnusedStubEntry(void);
 #endif
 
@@ -4168,7 +4169,8 @@ typedef struct TclStubs {
     VOID *reserved645;
     VOID *reserved646;
     VOID *reserved647;
-    void (*tclUnusedStubEntry) (void); /* 648 */
+    VOID *reserved648;
+    void (*tclUnusedStubEntry) (void); /* 649 */
 } TclStubs;
 
 extern TclStubs *tclStubsPtr;
@@ -6589,9 +6591,10 @@ extern TclStubs *tclStubsPtr;
 /* Slot 645 is reserved */
 /* Slot 646 is reserved */
 /* Slot 647 is reserved */
+/* Slot 648 is reserved */
 #ifndef TclUnusedStubEntry
 #define TclUnusedStubEntry \
-	(tclStubsPtr->tclUnusedStubEntry) /* 648 */
+	(tclStubsPtr->tclUnusedStubEntry) /* 649 */
 #endif
 
 #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c
index 239cf60..67cb68e 100644
--- a/generic/tclStubInit.c
+++ b/generic/tclStubInit.c
@@ -1443,7 +1443,8 @@ TclStubs tclStubs = {
     NULL, /* 645 */
     NULL, /* 646 */
     NULL, /* 647 */
-    TclUnusedStubEntry, /* 648 */
+    NULL, /* 648 */
+    TclUnusedStubEntry, /* 649 */
 };
 
 /* !END!: Do not edit above this line. */
diff --git a/generic/tclUniData.c b/generic/tclUniData.c
index 569e196..ad47dda 100644
--- a/generic/tclUniData.c
+++ b/generic/tclUniData.c
@@ -539,7 +539,24 @@ static const unsigned short pageMap[] = {
     1824, 1824, 1824, 1824, 1824, 1824, 1824, 1824, 1824, 1824, 1824, 1824,
     1824, 1824, 1824, 1824, 1824, 1824, 1824, 1824, 1824, 1824, 1824, 1824,
     1824, 1824, 1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344,
-    1344, 1344, 1344, 1344, 1344, 1344, 11360
+    1344, 1344, 1344, 1344, 1344, 1344, 11360, 1824, 1824, 1824, 1824,
+    1824, 1824, 1824, 1824, 1824, 1824, 1824, 1824, 1824, 1824, 1824, 1824,
+    1824, 1824, 1824, 1824, 1824, 1824, 1824, 1824, 1824, 1824, 1824, 1824,
+    1824, 1824, 1824, 1824, 1824, 1824, 1824, 1824, 1824, 1824, 1824, 1824,
+    1824, 1824, 1824, 1824, 1824, 1824, 1824, 1344, 1344, 1344, 1344, 1344,
+    1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344,
+    1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344,
+    1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344,
+    1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344,
+    1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344,
+    1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344,
+    1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344,
+    1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344,
+    1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344,
+    1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344,
+    1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344,
+    1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344, 1344,
+    1344, 1344, 1344, 1344, 1344, 1792
 #endif /* TCL_UTF_MAX > 3 */
 };
 
@@ -1629,7 +1646,7 @@ static const int groups[] = {
 };
 
 #if TCL_UTF_MAX > 3 || TCL_MAJOR_VERSION > 8 || TCL_MINOR_VERSION > 6
-#   define UNICODE_OUT_OF_RANGE(ch) (((ch) & 0x1FFFFF) >= 0x2FA20)
+#   define UNICODE_OUT_OF_RANGE(ch) (((ch) & 0x1FFFFF) >= 0x31360)
 #else
 #   define UNICODE_OUT_OF_RANGE(ch) (((ch) & 0x1F0000) != 0)
 #endif
diff --git a/tools/uniParse.tcl b/tools/uniParse.tcl
index 24be687..a451096 100644
--- a/tools/uniParse.tcl
+++ b/tools/uniParse.tcl
@@ -114,8 +114,8 @@ proc uni::buildTables {data} {
 	set items [split $line \;]
 
 	scan [lindex $items 0] %x index
-	if {$index > 0x2FFFF} then {
-	    # Ignore non-BMP characters, as long as Tcl doesn't support them
+	if {$index > 0x3FFFF} then {
+	    # Ignore characters > plane 3
 	    continue
 	}
 	set index [format %d $index]
-- 
cgit v0.12