diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-09-05 15:14:29 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-09-05 15:14:29 (GMT) |
commit | b8bb4c21b77d28781aa328ed308ded97dbcc2daf (patch) | |
tree | 31455945857d2de92c86342b6a07d812a83f4350 /generic/tclProcess.c | |
parent | 82ea80ebb5ce57518188e22cbf2f1bb4554d41b9 (diff) | |
parent | a50bdac4ced4cc541675dd74b43b5f0bd6d35d87 (diff) | |
download | tcl-b8bb4c21b77d28781aa328ed308ded97dbcc2daf.zip tcl-b8bb4c21b77d28781aa328ed308ded97dbcc2daf.tar.gz tcl-b8bb4c21b77d28781aa328ed308ded97dbcc2daf.tar.bz2 |
Mark more function paramaters as unused. Now Tcl compiles fully (on UNIX and Windows) without -Wunused-parameters warnings
Diffstat (limited to 'generic/tclProcess.c')
-rw-r--r-- | generic/tclProcess.c | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/generic/tclProcess.c b/generic/tclProcess.c index 2f3f4ba..573baf4 100644 --- a/generic/tclProcess.c +++ b/generic/tclProcess.c @@ -402,7 +402,7 @@ BuildProcessStatusObj( static int ProcessListObjCmd( - ClientData clientData, /* Not used. */ + ClientData dummy, /* Not used. */ Tcl_Interp *interp, /* Current interpreter. */ int objc, /* Number of arguments. */ Tcl_Obj *const objv[]) /* Argument objects. */ @@ -411,6 +411,7 @@ ProcessListObjCmd( Tcl_HashEntry *entry; Tcl_HashSearch search; ProcessInfo *info; + (void)dummy; if (objc != 1) { Tcl_WrongNumArgs(interp, 1, objv, NULL); @@ -453,7 +454,7 @@ ProcessListObjCmd( static int ProcessStatusObjCmd( - ClientData clientData, /* Not used. */ + ClientData dummy, /* Not used. */ Tcl_Interp *interp, /* Current interpreter. */ int objc, /* Number of arguments. */ Tcl_Obj *const objv[]) /* Argument objects. */ @@ -475,6 +476,7 @@ ProcessStatusObjCmd( enum switches { STATUS_WAIT, STATUS_LAST }; + (void)dummy; while (objc > 1) { if (TclGetString(objv[1])[0] != '-') { @@ -601,7 +603,7 @@ ProcessStatusObjCmd( static int ProcessPurgeObjCmd( - ClientData clientData, /* Not used. */ + ClientData dummy, /* Not used. */ Tcl_Interp *interp, /* Current interpreter. */ int objc, /* Number of arguments. */ Tcl_Obj *const objv[]) /* Argument objects. */ @@ -614,6 +616,7 @@ ProcessPurgeObjCmd( int result; int i; int pid; + (void)dummy; if (objc != 1 && objc != 2) { Tcl_WrongNumArgs(interp, 1, objv, "?pids?"); @@ -701,11 +704,13 @@ ProcessPurgeObjCmd( static int ProcessAutopurgeObjCmd( - ClientData clientData, /* Not used. */ + ClientData dummy, /* Not used. */ Tcl_Interp *interp, /* Current interpreter. */ int objc, /* Number of arguments. */ Tcl_Obj *const objv[]) /* Argument objects. */ { + (void)dummy; + if (objc != 1 && objc != 2) { Tcl_WrongNumArgs(interp, 1, objv, "?flag?"); return TCL_ERROR; |