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/tclLoad.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/tclLoad.c')
-rw-r--r-- | generic/tclLoad.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/generic/tclLoad.c b/generic/tclLoad.c index 88f4724..4017438 100644 --- a/generic/tclLoad.c +++ b/generic/tclLoad.c @@ -141,14 +141,14 @@ Tcl_LoadObjCmd( Tcl_LoadHandle loadHandle; Tcl_UniChar ch = 0; size_t len; - int index, flags = 0; + int flags = 0; Tcl_Obj *const *savedobjv = objv; static const char *const options[] = { "-global", "-lazy", "--", NULL }; enum loadOptionsEnum { LOAD_GLOBAL, LOAD_LAZY, LOAD_LAST - }; + } index; while (objc > 2) { if (TclGetString(objv[1])[0] != '-') { @@ -159,9 +159,9 @@ Tcl_LoadObjCmd( return TCL_ERROR; } ++objv; --objc; - if (LOAD_GLOBAL == (enum loadOptionsEnum) index) { + if (LOAD_GLOBAL == index) { flags |= TCL_LOAD_GLOBAL; - } else if (LOAD_LAZY == (enum loadOptionsEnum) index) { + } else if (LOAD_LAZY == index) { flags |= TCL_LOAD_LAZY; } else { break; @@ -559,7 +559,7 @@ Tcl_UnloadObjCmd( LoadedLibrary *libraryPtr; Tcl_DString pfx, tmp; InterpLibrary *ipFirstPtr, *ipPtr; - int i, index, code, complain = 1, keepLibrary = 0; + int i, code, complain = 1, keepLibrary = 0; const char *fullFileName = ""; const char *prefix; static const char *const options[] = { @@ -567,7 +567,7 @@ Tcl_UnloadObjCmd( }; enum unloadOptionsEnum { UNLOAD_NOCOMPLAIN, UNLOAD_KEEPLIB, UNLOAD_LAST - }; + } index; for (i = 1; i < objc; i++) { if (Tcl_GetIndexFromObj(interp, objv[i], options, "option", 0, @@ -590,7 +590,7 @@ Tcl_UnloadObjCmd( break; } } - switch ((enum unloadOptionsEnum)index) { + switch (index) { case UNLOAD_NOCOMPLAIN: /* -nocomplain */ complain = 0; break; |