Eliminate various gcc warnings (in -Wextra mode)

1 files changed, 25 insertions, 25 deletions

diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c
index 9aed082..427bf68 100644
--- a/generic/tclCmdMZ.c
+++ b/generic/tclCmdMZ.c
@@ -15,7 +15,7 @@
  * See the file "license.terms" for information on usage and redistribution of
  * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclCmdMZ.c,v 1.195 2009/09/28 18:02:20 dgp Exp $
+ * RCS: @(#) $Id: tclCmdMZ.c,v 1.196 2009/11/18 21:59:50 nijtmans Exp $
  */
 
 #include "tclInt.h"
@@ -3326,29 +3326,29 @@ TclInitStringCmd(
     Tcl_Interp *interp)		/* Current interpreter. */
 {
     static const EnsembleImplMap stringImplMap[] = {
-	{"bytelength",	StringBytesCmd,	NULL},
-	{"compare",	StringCmpCmd,	TclCompileStringCmpCmd},
-	{"equal",	StringEqualCmd,	TclCompileStringEqualCmd},
-	{"first",	StringFirstCmd,	NULL},
-	{"index",	StringIndexCmd,	TclCompileStringIndexCmd},
-	{"is",		StringIsCmd,	NULL},
-	{"last",	StringLastCmd,	NULL},
-	{"length",	StringLenCmd,	TclCompileStringLenCmd},
-	{"map",		StringMapCmd,	NULL},
-	{"match",	StringMatchCmd,	TclCompileStringMatchCmd},
-	{"range",	StringRangeCmd,	NULL},
-	{"repeat",	StringReptCmd,	NULL},
-	{"replace",	StringRplcCmd,	NULL},
-	{"reverse",	StringRevCmd,	NULL},
-	{"tolower",	StringLowerCmd,	NULL},
-	{"toupper",	StringUpperCmd,	NULL},
-	{"totitle",	StringTitleCmd,	NULL},
-	{"trim",	StringTrimCmd,	NULL},
-	{"trimleft",	StringTrimLCmd,	NULL},
-	{"trimright",	StringTrimRCmd,	NULL},
-	{"wordend",	StringEndCmd,	NULL},
-	{"wordstart",	StringStartCmd,	NULL},
-	{NULL}
+	{"bytelength",	StringBytesCmd,	NULL, NULL, NULL},
+	{"compare",	StringCmpCmd,	TclCompileStringCmpCmd, NULL, NULL},
+	{"equal",	StringEqualCmd,	TclCompileStringEqualCmd, NULL, NULL},
+	{"first",	StringFirstCmd,	NULL, NULL, NULL},
+	{"index",	StringIndexCmd,	TclCompileStringIndexCmd, NULL, NULL},
+	{"is",		StringIsCmd,	NULL, NULL, NULL},
+	{"last",	StringLastCmd,	NULL, NULL, NULL},
+	{"length",	StringLenCmd,	TclCompileStringLenCmd, NULL, NULL},
+	{"map",		StringMapCmd,	NULL, NULL, NULL},
+	{"match",	StringMatchCmd,	TclCompileStringMatchCmd, NULL, NULL},
+	{"range",	StringRangeCmd,	NULL, NULL, NULL},
+	{"repeat",	StringReptCmd,	NULL, NULL, NULL},
+	{"replace",	StringRplcCmd,	NULL, NULL, NULL},
+	{"reverse",	StringRevCmd,	NULL, NULL, NULL},
+	{"tolower",	StringLowerCmd,	NULL, NULL, NULL},
+	{"toupper",	StringUpperCmd,	NULL, NULL, NULL},
+	{"totitle",	StringTitleCmd,	NULL, NULL, NULL},
+	{"trim",	StringTrimCmd,	NULL, NULL, NULL},
+	{"trimleft",	StringTrimLCmd,	NULL, NULL, NULL},
+	{"trimright",	StringTrimRCmd,	NULL, NULL, NULL},
+	{"wordend",	StringEndCmd,	NULL, NULL, NULL},
+	{"wordstart",	StringStartCmd,	NULL, NULL, NULL},
+	{NULL, NULL, NULL, NULL, NULL}
     };
 
     return TclMakeEnsemble(interp, "string", stringImplMap);
@@ -3469,7 +3469,7 @@ Tcl_SwitchObjCmd(
 {
     return Tcl_NRCallObjProc(interp, TclNRSwitchObjCmd, dummy, objc, objv);
 }
-int 
+int
 TclNRSwitchObjCmd(
     ClientData dummy,		/* Not used. */
     Tcl_Interp *interp,		/* Current interpreter. */