From c708a47b253f0160aedc2a561a7c9fe627a99392 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Thu, 26 Jun 2025 07:59:27 +0000
Subject: Fix [9dfae3413d]: interp limit commands still seems to be 32 bits

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

diff --git a/generic/tclInterp.c b/generic/tclInterp.c
index d58119e..4e25f74 100644
--- a/generic/tclInterp.c
+++ b/generic/tclInterp.c
@@ -4542,7 +4542,8 @@ ChildCommandLimitCmd(
     } else {
 	Tcl_Size i, scriptLen = 0, limitLen = 0;
 	Tcl_Obj *scriptObj = NULL, *granObj = NULL, *limitObj = NULL;
-	int gran = 0, limit = 0;
+	int gran = 0;
+	Tcl_Size limit = 0;
 
 	for (i=consumedObjc ; i<objc ; i+=2) {
 	    if (Tcl_GetIndexFromObj(interp, objv[i], options, "option", 0,
@@ -4573,7 +4574,7 @@ ChildCommandLimitCmd(
 		if (limitLen == 0) {
 		    break;
 		}
-		if (TclGetIntFromObj(interp, objv[i+1], &limit) != TCL_OK) {
+		if (Tcl_GetSizeIntFromObj(interp, objv[i+1], &limit) != TCL_OK) {
 		    return TCL_ERROR;
 		}
 		if (limit < 0) {
-- 
cgit v0.12