summaryrefslogtreecommitdiffstats
path: root/generic/tclCmdMZ.c
diff options
context:
space:
mode:
authornijtmans <nijtmans>2009-11-18 21:59:49 (GMT)
committernijtmans <nijtmans>2009-11-18 21:59:49 (GMT)
commit22da2964cc80cf1b750e2c467f9b732dc17f682f (patch)
treeddefc8b4f539a5dd99629207908dae49d8e515db /generic/tclCmdMZ.c
parent1cb4f92988da74c1fbee275ed1a3e70f784fc19f (diff)
downloadtcl-22da2964cc80cf1b750e2c467f9b732dc17f682f.zip
tcl-22da2964cc80cf1b750e2c467f9b732dc17f682f.tar.gz
tcl-22da2964cc80cf1b750e2c467f9b732dc17f682f.tar.bz2
Eliminate various gcc warnings (in -Wextra mode)
Diffstat (limited to 'generic/tclCmdMZ.c')
-rw-r--r--generic/tclCmdMZ.c50
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. */