summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authornijtmans <nijtmans>2008-11-11 21:54:06 (GMT)
committernijtmans <nijtmans>2008-11-11 21:54:06 (GMT)
commit3204e89f4e57ec3a5ae382db506743fdb6ce3429 (patch)
tree013d87cd81911c89661c9083b6e029754a5add0c /generic
parent5712fecd971bc4528ae335bd91d588df88d5ef82 (diff)
downloadtcl-3204e89f4e57ec3a5ae382db506743fdb6ce3429.zip
tcl-3204e89f4e57ec3a5ae382db506743fdb6ce3429.tar.gz
tcl-3204e89f4e57ec3a5ae382db506743fdb6ce3429.tar.bz2
Eliminate warning: passing arg 4 of `Tcl_SplitList' from
incompatible pointer type reverted change from 2008-11-06 (was under the impression that "-Wno-implicit-int" added an extra warning)
Diffstat (limited to 'generic')
-rw-r--r--generic/tclNamesp.c12
1 files changed, 6 insertions, 6 deletions
diff --git a/generic/tclNamesp.c b/generic/tclNamesp.c
index 10e3fd6..a88d140 100644
--- a/generic/tclNamesp.c
+++ b/generic/tclNamesp.c
@@ -23,7 +23,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclNamesp.c,v 1.181 2008/11/07 20:10:19 patthoyts Exp $
+ * RCS: @(#) $Id: tclNamesp.c,v 1.182 2008/11/11 21:54:06 nijtmans Exp $
*/
#include "tclInt.h"
@@ -6151,17 +6151,17 @@ TclMakeEnsemble(
Tcl_Command ensemble;
Tcl_Namespace *ns;
Tcl_DString buf;
- char **nameParts;
+ const char **nameParts;
const char *cmdname;
int i, nameCount = 0, ensembleFlags = 0;
/*
* Construct the path for the ensemble namespace and create it
*/
-
+
Tcl_DStringInit(&buf);
Tcl_DStringAppend(&buf, "::tcl", -1);
-
+
if (Tcl_SplitList(NULL, name, &nameCount, &nameParts) != TCL_OK) {
Tcl_Panic("invalid ensemble name '%s'", name);
}
@@ -6170,7 +6170,7 @@ TclMakeEnsemble(
Tcl_DStringAppend(&buf, "::", 2);
Tcl_DStringAppend(&buf, nameParts[i], -1);
}
-
+
ns = Tcl_FindNamespace(interp, Tcl_DStringValue(&buf),
NULL, TCL_CREATE_NS_IF_UNKNOWN);
if (!ns) {
@@ -6181,7 +6181,7 @@ TclMakeEnsemble(
/*
* Create the named ensemble in the correct namespace
*/
-
+
if (nameCount == 1) {
ensembleFlags = TCL_ENSEMBLE_PREFIX;
cmdname = Tcl_DStringValue(&buf) + 5;