From 64200f89823a0a5607f30df955ed5e92cd7ff831 Mon Sep 17 00:00:00 2001 From: oehhar Date: Mon, 9 Dec 2024 15:07:22 +0000 Subject: [PATCH] Ticket [ad39d0234b]: support TCL 9 by init stubs. --- generic/tclsample.c | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/generic/tclsample.c b/generic/tclsample.c index f1686c7..08dc20a 100644 --- a/generic/tclsample.c +++ b/generic/tclsample.c @@ -360,10 +360,13 @@ Sample_Init( Tcl_CmdInfo info; /* - * This may work with 8.0, but we are using strictly stubs here, - * which requires 8.1. + * Require compatible TCL version. + * Possible version requirement strings: + * - "8.1-": 8.1 and any higher version + * - "8.1": 8.1.x to 8.7.x + * - "8.1 9": allow 8.1.x to 8.7.x and 9.x.x, but not 10.x.x */ - if (Tcl_InitStubs(interp, "8.1", 0) == NULL) { + if (Tcl_InitStubs(interp, "8.1-", 0) == NULL) { return TCL_ERROR; }