diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-04-01 13:36:46 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-04-01 13:36:46 (GMT) |
| commit | bbfcd52f865c1fe426d2a3b54b3d79ed39606af1 (patch) | |
| tree | cfc02cf61fc3528110aeb751f04ef536ebcdc4e6 /generic/tclConfig.c | |
| parent | d0fec7532c33f0b3da8057e2e0fda10524f22905 (diff) | |
| parent | 6dc1f8021ed597b13289a02c41c2e9660525a81a (diff) | |
| download | tcl-bbfcd52f865c1fe426d2a3b54b3d79ed39606af1.zip tcl-bbfcd52f865c1fe426d2a3b54b3d79ed39606af1.tar.gz tcl-bbfcd52f865c1fe426d2a3b54b3d79ed39606af1.tar.bz2 | |
Rebase to Tcl 9.0
Diffstat (limited to 'generic/tclConfig.c')
| -rw-r--r-- | generic/tclConfig.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclConfig.c b/generic/tclConfig.c index 09b1b27..ee53461 100644 --- a/generic/tclConfig.c +++ b/generic/tclConfig.c @@ -200,13 +200,13 @@ QueryConfigObjCmd( Tcl_Obj *pkgName = cdPtr->pkg; Tcl_Obj *pDB, *pkgDict, *val, *listPtr; size_t n = 0; - int index, m; + int m; static const char *const subcmdStrings[] = { "get", "list", NULL }; enum subcmds { CFG_GET, CFG_LIST - }; + } index; Tcl_DString conv; Tcl_Encoding venc = NULL; const char *value; @@ -234,7 +234,7 @@ QueryConfigObjCmd( return TCL_ERROR; } - switch ((enum subcmds) index) { + switch (index) { case CFG_GET: if (objc != 3) { Tcl_WrongNumArgs(interp, 2, objv, "key"); |