From 058d08c66ff3c104f9fbc29919b0220f888374f3 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Fri, 18 Feb 2022 16:57:01 +0000
Subject: Fix [22547f9053]: TIP 519 compiler warning

---
 generic/tclOODefineCmds.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/generic/tclOODefineCmds.c b/generic/tclOODefineCmds.c
index cadfee5..4af23c2 100644
--- a/generic/tclOODefineCmds.c
+++ b/generic/tclOODefineCmds.c
@@ -2002,7 +2002,7 @@ TclOODefineMethodObjCmd(
     }
     if (objc == 5) {
 	if (Tcl_GetIndexFromObj(interp, objv[2], exportModes, "export flag",
-		0, (int *) &exportMode) != TCL_OK) {
+		0, &exportMode) != TCL_OK) {
 	    return TCL_ERROR;
 	}
 	switch (exportMode) {
-- 
cgit v0.12