From e81ead5ad2604d338688a05580e5973302afe6a4 Mon Sep 17 00:00:00 2001
From: "Darryl L. Miles" <darryl.miles@darrylmiles.org>
Date: Mon, 21 Oct 2024 09:07:16 +0100
Subject: [PATCH] TCL9: Tcl_Size type introduction

---
 tcltk/tclmagic.c | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/tcltk/tclmagic.c b/tcltk/tclmagic.c
index 25787df3..3314346a 100644
--- a/tcltk/tclmagic.c
+++ b/tcltk/tclmagic.c
@@ -913,7 +913,12 @@ TxGetLinePfix(dest, maxChars, prefix)
     char *prefix;
 {
     Tcl_Obj *objPtr;
-    int charsStored, length;
+    int charsStored;
+#if TCL_MAJOR_VERSION < 9
+    int length;
+#else
+    Tcl_Size length;
+#endif
     char *string;
 
     if (TxTkConsole)