Mark more function paramaters as unused. Now Tcl compiles fully (on UNIX and Windows) without -Wunused-parameters warnings

1 files changed, 17 insertions, 8 deletions

diff --git a/generic/tclTestObj.c b/generic/tclTestObj.c
index 4763084..6dce6a3 100644
--- a/generic/tclTestObj.c
+++ b/generic/tclTestObj.c
@@ -146,7 +146,7 @@ TclObjTest_Init(
 
 static int
 TestbignumobjCmd(
-    void *clientData,	/* unused */
+    void *dummy,	/* unused */
     Tcl_Interp *interp,		/* Tcl interpreter */
     int objc,			/* Argument count */
     Tcl_Obj *const objv[])	/* Argument vector */
@@ -162,6 +162,7 @@ TestbignumobjCmd(
     const char *string;
     mp_int bignumValue, newValue;
     Tcl_Obj **varPtr;
+    (void)dummy;
 
     if (objc < 3) {
 	Tcl_WrongNumArgs(interp, 1, objv, "option ?arg ...?");
@@ -345,7 +346,7 @@ TestbignumobjCmd(
 
 static int
 TestbooleanobjCmd(
-    void *clientData,	/* Not used. */
+    void *dummy,	/* Not used. */
     Tcl_Interp *interp,		/* Current interpreter. */
     int objc,			/* Number of arguments. */
     Tcl_Obj *const objv[])	/* Argument objects. */
@@ -353,6 +354,7 @@ TestbooleanobjCmd(
     int varIndex, boolValue;
     const char *index, *subCmd;
     Tcl_Obj **varPtr;
+    (void)dummy;
 
     if (objc < 3) {
 	wrongNumArgs:
@@ -445,7 +447,7 @@ TestbooleanobjCmd(
 
 static int
 TestdoubleobjCmd(
-    void *clientData,	/* Not used. */
+    void *dummy,	/* Not used. */
     Tcl_Interp *interp,		/* Current interpreter. */
     int objc,			/* Number of arguments. */
     Tcl_Obj *const objv[])	/* Argument objects. */
@@ -454,6 +456,7 @@ TestdoubleobjCmd(
     double doubleValue;
     const char *index, *subCmd, *string;
     Tcl_Obj **varPtr;
+    (void)dummy;
 
     if (objc < 3) {
 	wrongNumArgs:
@@ -563,7 +566,7 @@ TestdoubleobjCmd(
 
 static int
 TestindexobjCmd(
-    void *clientData,	/* Not used. */
+    void *dummy,	/* Not used. */
     Tcl_Interp *interp,		/* Current interpreter. */
     int objc,			/* Number of arguments. */
     Tcl_Obj *const objv[])	/* Argument objects. */
@@ -571,6 +574,8 @@ TestindexobjCmd(
     int allowAbbrev, index, index2, setError, i, result;
     const char **argv;
     static const char *const tablePtr[] = {"a", "b", "check", NULL};
+    (void)dummy;
+
     /*
      * Keep this structure declaration in sync with tclIndexObj.c
      */
@@ -652,7 +657,7 @@ TestindexobjCmd(
 
 static int
 TestintobjCmd(
-    void *clientData,	/* Not used. */
+    void *dummy,	/* Not used. */
     Tcl_Interp *interp,		/* Current interpreter. */
     int objc,			/* Number of arguments. */
     Tcl_Obj *const objv[])	/* Argument objects. */
@@ -661,6 +666,7 @@ TestintobjCmd(
     Tcl_WideInt wideValue;
     const char *index, *subCmd, *string;
     Tcl_Obj **varPtr;
+    (void)dummy;
 
     if (objc < 3) {
 	wrongNumArgs:
@@ -856,7 +862,7 @@ TestintobjCmd(
 
 static int
 TestlistobjCmd(
-    void *clientData,	/* Not used */
+    void *dummy,	/* Not used */
     Tcl_Interp *interp,		/* Tcl interpreter */
     int objc,			/* Number of arguments */
     Tcl_Obj *const objv[])	/* Argument objects */
@@ -879,6 +885,7 @@ TestlistobjCmd(
     int first;			/* First index in the list */
     int count;			/* Count of elements in a list */
     Tcl_Obj **varPtr;
+    (void)dummy;
 
     if (objc < 3) {
 	Tcl_WrongNumArgs(interp, 1, objv, "option arg ?arg...?");
@@ -953,7 +960,7 @@ TestlistobjCmd(
 
 static int
 TestobjCmd(
-    void *clientData,	/* Not used. */
+    void *dummy,	/* Not used. */
     Tcl_Interp *interp,		/* Current interpreter. */
     int objc,			/* Number of arguments. */
     Tcl_Obj *const objv[])	/* Argument objects. */
@@ -962,6 +969,7 @@ TestobjCmd(
     const char *index, *subCmd, *string;
     const Tcl_ObjType *targetType;
     Tcl_Obj **varPtr;
+    (void)dummy;
 
     if (objc < 2) {
 	wrongNumArgs:
@@ -1165,7 +1173,7 @@ TestobjCmd(
 
 static int
 TeststringobjCmd(
-    void *clientData,	/* Not used. */
+    void *dummy,	/* Not used. */
     Tcl_Interp *interp,		/* Current interpreter. */
     int objc,			/* Number of arguments. */
     Tcl_Obj *const objv[])	/* Argument objects. */
@@ -1181,6 +1189,7 @@ TeststringobjCmd(
 	"set", "set2", "setlength", "maxchars", "appendself",
 	"appendself2", NULL
     };
+    (void)dummy;
 
     if (objc < 3) {
 	wrongNumArgs: