diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-14 07:24:45 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-14 07:24:45 (GMT) |
| commit | 6e2f02a5a6a694d1c1ad853307791acf1fd85c92 (patch) | |
| tree | 7d98f24bc0e1f58d9bf18be980e4d1cbc157947e /generic/tclEnsemble.c | |
| parent | 20bd9d9cabc9db212abbaf9d4dbb18eb490e9f71 (diff) | |
| parent | c9376306301e578615cfee52d2121f78cb31a225 (diff) | |
| download | tcl-6e2f02a5a6a694d1c1ad853307791acf1fd85c92.zip tcl-6e2f02a5a6a694d1c1ad853307791acf1fd85c92.tar.gz tcl-6e2f02a5a6a694d1c1ad853307791acf1fd85c92.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclEnsemble.c')
| -rw-r--r-- | generic/tclEnsemble.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclEnsemble.c b/generic/tclEnsemble.c index 416eaad..16d8310 100644 --- a/generic/tclEnsemble.c +++ b/generic/tclEnsemble.c @@ -2580,7 +2580,7 @@ BuildEnsembleConfig( if (subList) { int subc; Tcl_Obj **subv, *target, *cmdObj, *cmdPrefixObj; - char *name; + const char *name; /* * There is a list of exactly what subcommands go in the table. @@ -2665,7 +2665,7 @@ BuildEnsembleConfig( Tcl_DictObjFirst(NULL, ensemblePtr->subcommandDict, &dictSearch, &keyObj, &valueObj, &done); while (!done) { - char *name = TclGetString(keyObj); + const char *name = TclGetString(keyObj); hPtr = Tcl_CreateHashEntry(hash, name, &isNew); Tcl_SetHashValue(hPtr, valueObj); @@ -3379,7 +3379,7 @@ CompileToInvokedCommand( { Tcl_Token *tokPtr; Tcl_Obj *objPtr, **words; - char *bytes; + const char *bytes; int i, numWords, cmdLit, extraLiteralFlags = LITERAL_CMD_NAME; DefineLineInformation; |