From 177828f77fdb3266fc4ee5b3148e3577374c31fa Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Mon, 19 Sep 2022 13:57:42 +0000
Subject: eliminate (enum options) typecast

---
 generic/tclEvent.c | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/generic/tclEvent.c b/generic/tclEvent.c
index 73784f0..35d0e97 100644
--- a/generic/tclEvent.c
+++ b/generic/tclEvent.c
@@ -1520,7 +1520,7 @@ Tcl_VwaitObjCmd(
 	OPT_ALL, OPT_EXTD, OPT_NO_FEVTS, OPT_NO_IEVTS,
 	OPT_NO_TEVTS, OPT_NO_WEVTS, OPT_READABLE,
 	OPT_TIMEOUT, OPT_VARIABLE, OPT_WRITABLE, OPT_LAST
-    };
+    } index;
 
     if ((objc == 2) && (strcmp(Tcl_GetString(objv[1]), "--") != 0)) {
 	/*
@@ -1536,7 +1536,6 @@ Tcl_VwaitObjCmd(
 
     for (i = 1; i < objc; i++) {
 	const char *name;
-	int index;
 
 	name = TclGetString(objv[i]);
 	if (name[0] != '-') {
@@ -1547,7 +1546,7 @@ Tcl_VwaitObjCmd(
 	    result = TCL_ERROR;
 	    goto done;
 	}
-	switch ((enum options) index) {
+	switch (index) {
 	case OPT_ALL:
 	    any = 0;
 	    break;
-- 
cgit v0.12