From 54b62ddd622894072bea921ed8c3a5af0d7d3de9 Mon Sep 17 00:00:00 2001 From: "jan.nijtmans" Date: Fri, 17 Apr 2020 13:01:35 +0000 Subject: Unbreak shared windows build. Remove some ARGSUSED usage. --- generic/tclTest.c | 49 ++++++++++++++++++++----------------------------- unix/tclUnixChan.c | 6 ------ unix/tclUnixPipe.c | 4 ---- win/tclWinPipe.c | 1 - win/tclWinSock.c | 3 --- 5 files changed, 20 insertions(+), 43 deletions(-) diff --git a/generic/tclTest.c b/generic/tclTest.c index 6e0fbed..8c29aa7 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -457,12 +457,6 @@ Tcltest_Init( "-appinitprocclosestderr", "-appinitprocsetrcfile", NULL }; - if (Tcl_InitStubs(interp, "8.5", 0) == NULL) { - return TCL_ERROR; - } - if (Tcl_TomMath_InitStubs(interp, "8.5") == NULL) { - return TCL_ERROR; - } /* TIP #268: Full patchlevel instead of just major.minor */ if (Tcl_PkgProvide(interp, "Tcltest", TCL_PATCH_LEVEL) == TCL_ERROR) { @@ -683,7 +677,6 @@ Tcltest_Init( *---------------------------------------------------------------------- */ - /* ARGSUSED */ static int TestasyncCmd( ClientData dummy, /* Not used. */ @@ -913,7 +906,7 @@ AsyncThreadProc( *---------------------------------------------------------------------- */ - /* ARGSUSED */ + static int TestcmdinfoCmd( ClientData dummy, /* Not used. */ @@ -985,7 +978,6 @@ TestcmdinfoCmd( return TCL_OK; } - /*ARGSUSED*/ static int CmdProc1( ClientData clientData, /* String to return. */ @@ -997,7 +989,6 @@ CmdProc1( return TCL_OK; } - /*ARGSUSED*/ static int CmdProc2( ClientData clientData, /* String to return. */ @@ -1044,7 +1035,7 @@ CmdDelProc2( *---------------------------------------------------------------------- */ - /* ARGSUSED */ + static int TestcmdtokenCmd( ClientData dummy, /* Not used. */ @@ -1108,7 +1099,7 @@ TestcmdtokenCmd( *---------------------------------------------------------------------- */ - /* ARGSUSED */ + static int TestcmdtraceCmd( ClientData dummy, /* Not used. */ @@ -1398,7 +1389,7 @@ CreatedCommandProc2( *---------------------------------------------------------------------- */ - /* ARGSUSED */ + static int TestdcallCmd( ClientData dummy, /* Not used. */ @@ -1463,7 +1454,7 @@ DelCallbackProc( *---------------------------------------------------------------------- */ - /* ARGSUSED */ + static int TestdelCmd( ClientData dummy, /* Not used. */ @@ -1668,7 +1659,7 @@ TestdoubledigitsObjCmd(ClientData unused, *---------------------------------------------------------------------- */ - /* ARGSUSED */ + static int TestdstringCmd( ClientData dummy, /* Not used. */ @@ -1795,7 +1786,7 @@ static void SpecialFree(blockPtr) *---------------------------------------------------------------------- */ - /* ARGSUSED */ + static int TestencodingObjCmd( ClientData dummy, /* Not used. */ @@ -2650,7 +2641,7 @@ TestgetplatformCmd( *---------------------------------------------------------------------- */ - /* ARGSUSED */ + static int TestinterpdeleteCmd( ClientData dummy, /* Not used. */ @@ -2691,7 +2682,7 @@ TestinterpdeleteCmd( *---------------------------------------------------------------------- */ - /* ARGSUSED */ + static int TestlinkCmd( ClientData dummy, /* Not used. */ @@ -3222,7 +3213,7 @@ TestlocaleCmd( *---------------------------------------------------------------------- */ - /* ARGSUSED */ + static int TestMathFunc( ClientData clientData, /* Integer value to return. */ @@ -3252,7 +3243,7 @@ TestMathFunc( *---------------------------------------------------------------------- */ - /* ARGSUSED */ + static int TestMathFunc2( ClientData clientData, /* Integer value to return. */ @@ -3359,7 +3350,7 @@ TestMathFunc2( * *---------------------------------------------------------------------- */ - /* ARGSUSED */ + static void CleanupTestSetassocdataTests( ClientData clientData, /* Data to be released. */ @@ -3693,7 +3684,7 @@ TestparsevarnameObjCmd( *---------------------------------------------------------------------- */ - /* ARGSUSED */ + static int TestregexpObjCmd( ClientData dummy, /* Not used. */ @@ -4019,7 +4010,7 @@ TestregexpXflags( *---------------------------------------------------------------------- */ - /* ARGSUSED */ + static int TestreturnObjCmd( ClientData dummy, /* Not used. */ @@ -4241,7 +4232,7 @@ TesttranslatefilenameCmd( *---------------------------------------------------------------------- */ - /* ARGSUSED */ + static int TestupvarCmd( ClientData dummy, /* Not used. */ @@ -4294,7 +4285,7 @@ TestupvarCmd( *---------------------------------------------------------------------- */ - /* ARGSUSED */ + static int TestseterrorcodeCmd( ClientData dummy, /* Not used. */ @@ -4347,7 +4338,7 @@ TestseterrorcodeCmd( *---------------------------------------------------------------------- */ - /* ARGSUSED */ + static int TestsetobjerrorcodeCmd( ClientData dummy, /* Not used. */ @@ -4376,7 +4367,7 @@ TestsetobjerrorcodeCmd( *---------------------------------------------------------------------- */ - /* ARGSUSED */ + static int TestfeventCmd( ClientData clientData, /* Not used. */ @@ -5768,7 +5759,7 @@ TestOpenFileChannelProc3( *---------------------------------------------------------------------- */ - /* ARGSUSED */ + static int TestChannelCmd( ClientData clientData, /* Not used. */ @@ -6237,7 +6228,7 @@ TestChannelCmd( *---------------------------------------------------------------------- */ - /* ARGSUSED */ + static int TestChannelEventCmd( ClientData dummy, /* Not used. */ diff --git a/unix/tclUnixChan.c b/unix/tclUnixChan.c index 9cac4ae..d3207e2 100644 --- a/unix/tclUnixChan.c +++ b/unix/tclUnixChan.c @@ -344,7 +344,6 @@ static Tcl_ChannelType tcpChannelType = { *---------------------------------------------------------------------- */ - /* ARGSUSED */ static int FileBlockModeProc( ClientData instanceData, /* File state. */ @@ -1840,7 +1839,6 @@ Tcl_MakeFileChannel( *---------------------------------------------------------------------- */ - /* ARGSUSED */ static int TcpBlockModeProc( ClientData instanceData, /* Socket state. */ @@ -1938,7 +1936,6 @@ WaitForConnect( *---------------------------------------------------------------------- */ - /* ARGSUSED */ static int TcpInputProc( ClientData instanceData, /* Socket state. */ @@ -2033,7 +2030,6 @@ TcpOutputProc( *---------------------------------------------------------------------- */ - /* ARGSUSED */ static int TcpCloseProc( ClientData instanceData, /* The socket to close. */ @@ -2331,7 +2327,6 @@ TcpWatchProc( *---------------------------------------------------------------------- */ - /* ARGSUSED */ static int TcpGetHandleProc( ClientData instanceData, /* The socket state. */ @@ -2853,7 +2848,6 @@ Tcl_OpenTcpServer( *---------------------------------------------------------------------- */ - /* ARGSUSED */ static void TcpAccept( ClientData data, /* Callback token. */ diff --git a/unix/tclUnixPipe.c b/unix/tclUnixPipe.c index d0a5e53..f2a2daa 100644 --- a/unix/tclUnixPipe.c +++ b/unix/tclUnixPipe.c @@ -410,7 +410,6 @@ TclpCloseFile( *--------------------------------------------------------------------------- */ - /* ARGSUSED */ int TclpCreateProcess( Tcl_Interp *interp, /* Interpreter in which to leave errors that @@ -889,7 +888,6 @@ TclGetAndDetachPids( *---------------------------------------------------------------------- */ - /* ARGSUSED */ static int PipeBlockModeProc( ClientData instanceData, /* Pipe state. */ @@ -933,7 +931,6 @@ PipeBlockModeProc( *---------------------------------------------------------------------- */ - /* ARGSUSED */ static int PipeCloseProc( ClientData instanceData, /* The pipe to close. */ @@ -1231,7 +1228,6 @@ Tcl_WaitPid( *---------------------------------------------------------------------- */ - /* ARGSUSED */ int Tcl_PidObjCmd( ClientData dummy, /* Not used. */ diff --git a/win/tclWinPipe.c b/win/tclWinPipe.c index e33273b..cdb955f 100644 --- a/win/tclWinPipe.c +++ b/win/tclWinPipe.c @@ -2782,7 +2782,6 @@ TclWinAddProcess( *---------------------------------------------------------------------- */ - /* ARGSUSED */ int Tcl_PidObjCmd( ClientData dummy, /* Not used. */ diff --git a/win/tclWinSock.c b/win/tclWinSock.c index 8f565b9..882aa4a 100644 --- a/win/tclWinSock.c +++ b/win/tclWinSock.c @@ -358,7 +358,6 @@ InitSockets(void) *---------------------------------------------------------------------- */ - /* ARGSUSED */ static int SocketsEnabled(void) { @@ -387,7 +386,6 @@ SocketsEnabled(void) *---------------------------------------------------------------------- */ - /* ARGSUSED */ static void SocketExitHandler( ClientData clientData) /* Not used. */ @@ -786,7 +784,6 @@ TcpBlockProc( *---------------------------------------------------------------------- */ - /* ARGSUSED */ static int TcpCloseProc( ClientData instanceData, /* The socket to close. */ -- cgit v0.12