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/tclEvent.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/tclEvent.c')
| -rw-r--r-- | generic/tclEvent.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/generic/tclEvent.c b/generic/tclEvent.c index acc74f8..49c61da 100644 --- a/generic/tclEvent.c +++ b/generic/tclEvent.c @@ -1572,10 +1572,9 @@ Tcl_UpdateObjCmd( int objc, /* Number of arguments. */ Tcl_Obj *const objv[]) /* Argument objects. */ { - int optionIndex; int flags = 0; /* Initialized to avoid compiler warning. */ static const char *const updateOptions[] = {"idletasks", NULL}; - enum updateOptionsEnum {OPT_IDLETASKS}; + enum updateOptionsEnum {OPT_IDLETASKS} optionIndex; if (objc == 1) { flags = TCL_ALL_EVENTS|TCL_DONT_WAIT; @@ -1584,7 +1583,7 @@ Tcl_UpdateObjCmd( "option", 0, &optionIndex) != TCL_OK) { return TCL_ERROR; } - switch ((enum updateOptionsEnum) optionIndex) { + switch (optionIndex) { case OPT_IDLETASKS: flags = TCL_IDLE_EVENTS|TCL_DONT_WAIT; break; |