From 4a32a82841e8573233ec592a02fc0aad4adc0da9 Mon Sep 17 00:00:00 2001
From: "Darryl L. Miles" <darryl.miles@darrylmiles.org>
Date: Mon, 21 Oct 2024 09:21:11 +0100
Subject: [PATCH] TCL9: Tcl_GetIntFromObj() call checked

This API uses address of operator to Tcl API with (int) type, but
does not use Tcl_Size in TCL9, it remained an (int) type.
---
 tcltk/tclmagic.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/tcltk/tclmagic.c b/tcltk/tclmagic.c
index 48741630..bc454a90 100644
--- a/tcltk/tclmagic.c
+++ b/tcltk/tclmagic.c
@@ -854,6 +854,7 @@ TxDialog(prompt, responses, defresp)
 
     Tcl_EvalEx(magicinterp, evalstr, -1, 0);
     objPtr = Tcl_GetObjResult(magicinterp);
+    /* tcl9 checked, this API is still (int) for &code */
     result = Tcl_GetIntFromObj(magicinterp, objPtr, &code);
 
     if (result == TCL_OK) return code;