From 07cfb2190f1ec3f06fb59425ad6fc3b5edd5dcff Mon Sep 17 00:00:00 2001 From: "jan.nijtmans" Date: Sun, 15 Mar 2020 22:21:27 +0000 Subject: Add one more reserved stub entry, most likely will be Tcl_GetBytesFromObj() in Tcl 8.7. --- generic/tcl.decls | 6 +++--- generic/tclDecls.h | 9 ++++++--- generic/tclStubInit.c | 3 ++- 3 files changed, 11 insertions(+), 7 deletions(-) diff --git a/generic/tcl.decls b/generic/tcl.decls index f37c0f6..7b153f1 100644 --- a/generic/tcl.decls +++ b/generic/tcl.decls @@ -2323,12 +2323,12 @@ declare 630 { Tcl_Obj *compressionDictionaryObj) } -declare 648 { +# ----- BASELINE -- FOR -- 8.6.0 ----- # + +declare 649 { void TclUnusedStubEntry(void) } -# ----- BASELINE -- FOR -- 8.6.0 ----- # - ############################################################################## # Define the platform specific public Tcl interface. These functions are only diff --git a/generic/tclDecls.h b/generic/tclDecls.h index a49121a..037b6e5 100644 --- a/generic/tclDecls.h +++ b/generic/tclDecls.h @@ -1833,7 +1833,8 @@ EXTERN void Tcl_ZlibStreamSetCompressionDictionary( /* Slot 645 is reserved */ /* Slot 646 is reserved */ /* Slot 647 is reserved */ -/* 648 */ +/* Slot 648 is reserved */ +/* 649 */ EXTERN void TclUnusedStubEntry(void); typedef struct { @@ -2518,7 +2519,8 @@ typedef struct TclStubs { void (*reserved645)(void); void (*reserved646)(void); void (*reserved647)(void); - void (*tclUnusedStubEntry) (void); /* 648 */ + void (*reserved648)(void); + void (*tclUnusedStubEntry) (void); /* 649 */ } TclStubs; extern const TclStubs *tclStubsPtr; @@ -3828,8 +3830,9 @@ extern const TclStubs *tclStubsPtr; /* Slot 645 is reserved */ /* Slot 646 is reserved */ /* Slot 647 is reserved */ +/* Slot 648 is reserved */ #define TclUnusedStubEntry \ - (tclStubsPtr->tclUnusedStubEntry) /* 648 */ + (tclStubsPtr->tclUnusedStubEntry) /* 649 */ #endif /* defined(USE_TCL_STUBS) */ diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index a5de5f4..304b7d2 100644 --- a/generic/tclStubInit.c +++ b/generic/tclStubInit.c @@ -1630,7 +1630,8 @@ const TclStubs tclStubs = { 0, /* 645 */ 0, /* 646 */ 0, /* 647 */ - TclUnusedStubEntry, /* 648 */ + 0, /* 648 */ + TclUnusedStubEntry, /* 649 */ }; /* !END!: Do not edit above this line. */ -- cgit v0.12 From dc763386a9f92c39f6573be75aff10c6528003ef Mon Sep 17 00:00:00 2001 From: dgp 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(" 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 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