diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-04-11 11:20:09 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-04-11 11:20:09 (GMT) |
commit | 54ee71bc1207b883cec010d1f5acb60b08a8cc7b (patch) | |
tree | a10fd719299ff5d128949cfc4733e88742ed6940 /generic/tclEnsemble.c | |
parent | 142a7645bb9c38692513ce5aaefe2ccbd1a9e02a (diff) | |
parent | ce8fc8dc1e031e8dd27cd9196f299ecb1e21317f (diff) | |
download | tcl-54ee71bc1207b883cec010d1f5acb60b08a8cc7b.zip tcl-54ee71bc1207b883cec010d1f5acb60b08a8cc7b.tar.gz tcl-54ee71bc1207b883cec010d1f5acb60b08a8cc7b.tar.bz2 |
Merge 9.0. Eliminate almost all remaining (enum) casts
Diffstat (limited to 'generic/tclEnsemble.c')
-rw-r--r-- | generic/tclEnsemble.c | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/generic/tclEnsemble.c b/generic/tclEnsemble.c index 3a4ecd6..6ff5df4 100644 --- a/generic/tclEnsemble.c +++ b/generic/tclEnsemble.c @@ -220,14 +220,15 @@ TclNamespaceEnsembleCmd( */ for (; objc>1 ; objc-=2,objv+=2) { + enum EnsCreateOpts idx; if (Tcl_GetIndexFromObj(interp, objv[0], ensembleCreateOptions, - "option", 0, &index) != TCL_OK) { + "option", 0, &idx) != TCL_OK) { if (allocatedMapFlag) { Tcl_DecrRefCount(mapObj); } return TCL_ERROR; } - switch ((enum EnsCreateOpts) index) { + switch (idx) { case CRT_CMD: name = TclGetString(objv[1]); cxtPtr = nsPtr; @@ -399,13 +400,14 @@ TclNamespaceEnsembleCmd( } if (objc == 4) { + enum EnsConfigOpts idx; Tcl_Obj *resultObj = NULL; /* silence gcc 4 warning */ if (Tcl_GetIndexFromObj(interp, objv[3], ensembleConfigOptions, - "option", 0, &index) != TCL_OK) { + "option", 0, &idx) != TCL_OK) { return TCL_ERROR; } - switch ((enum EnsConfigOpts) index) { + switch (idx) { case CONF_SUBCMDS: Tcl_GetEnsembleSubcommandList(NULL, token, &resultObj); if (resultObj != NULL) { @@ -522,15 +524,16 @@ TclNamespaceEnsembleCmd( */ for (; objc>0 ; objc-=2,objv+=2) { + enum EnsConfigOpts idx; if (Tcl_GetIndexFromObj(interp, objv[0],ensembleConfigOptions, - "option", 0, &index) != TCL_OK) { + "option", 0, &idx) != TCL_OK) { freeMapAndError: if (allocatedMapFlag) { Tcl_DecrRefCount(mapObj); } return TCL_ERROR; } - switch ((enum EnsConfigOpts) index) { + switch (idx) { case CONF_SUBCMDS: if (TclListObjLength(interp, objv[1], &len) != TCL_OK) { goto freeMapAndError; |