diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-02 16:00:19 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-02 16:00:19 (GMT) |
commit | 6dc1f8021ed597b13289a02c41c2e9660525a81a (patch) | |
tree | 54877f6753e15ace22e9329ff6b339b965192fc3 /generic/tclEnsemble.c | |
parent | b788457ad48d5cc34b431418f7d076d83f78b5ff (diff) | |
download | tcl-6dc1f8021ed597b13289a02c41c2e9660525a81a.zip tcl-6dc1f8021ed597b13289a02c41c2e9660525a81a.tar.gz tcl-6dc1f8021ed597b13289a02c41c2e9660525a81a.tar.bz2 |
Use TIP #613's Tcl_GetIndexFromObj() to eliminate typecasts which are no longer necessary
Diffstat (limited to 'generic/tclEnsemble.c')
-rw-r--r-- | generic/tclEnsemble.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/generic/tclEnsemble.c b/generic/tclEnsemble.c index 9ee4982..435fd58 100644 --- a/generic/tclEnsemble.c +++ b/generic/tclEnsemble.c @@ -163,7 +163,8 @@ TclNamespaceEnsembleCmd( Tcl_DictSearch search; Tcl_Obj *listObj; const char *simpleName; - int index, done; + enum EnsSubcmds index; + int done; if (nsPtr == NULL || nsPtr->flags & NS_DEAD) { if (!Tcl_InterpDeleted(interp)) { @@ -184,7 +185,7 @@ TclNamespaceEnsembleCmd( return TCL_ERROR; } - switch ((enum EnsSubcmds) index) { + switch (index) { case ENS_CREATE: { const char *name; int len, allocatedMapFlag = 0; |