summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
Diffstat (limited to 'generic')
-rw-r--r--generic/regcomp.c2
-rw-r--r--generic/regerror.c1
-rw-r--r--generic/tclBasic.c3
-rw-r--r--generic/tclCkalloc.c2
-rw-r--r--generic/tclCmdAH.c16
-rw-r--r--generic/tclCmdMZ.c1
-rw-r--r--generic/tclEncoding.c4
-rw-r--r--generic/tclEnv.c1
-rw-r--r--generic/tclEvent.c3
-rw-r--r--generic/tclFileName.c6
-rw-r--r--generic/tclHash.c2
-rw-r--r--generic/tclIO.c4
-rw-r--r--generic/tclIOCmd.c14
-rw-r--r--generic/tclIOGT.c2
-rw-r--r--generic/tclIOUtil.c2
-rw-r--r--generic/tclInterp.c4
-rw-r--r--generic/tclMain.c1
-rw-r--r--generic/tclNamesp.c1
-rw-r--r--generic/tclPanic.c2
-rw-r--r--generic/tclPkg.c1
-rw-r--r--generic/tclPreserve.c1
-rw-r--r--generic/tclProc.c2
-rw-r--r--generic/tclScan.c1
-rw-r--r--generic/tclTest.c26
-rw-r--r--generic/tclThreadAlloc.c2
-rw-r--r--generic/tclThreadTest.c5
-rw-r--r--generic/tclTimer.c2
-rw-r--r--generic/tclTrace.c3
-rw-r--r--generic/tclUtil.c3
-rw-r--r--generic/tclVar.c19
30 files changed, 11 insertions, 125 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),
generated by cgit v0.12 at 2024-11-16 05:28:11 (GMT)