From df63b71c674bd30bd6745d6d9cd9253c6d2ba7c5 Mon Sep 17 00:00:00 2001 From: oehhar Date: Sun, 15 Dec 2024 17:13:58 +0000 Subject: [PATCH] Remove comment for version string of "Tcl_InitStubs". Following the man page, it was wrong. Neverthless "8.1-" worked for two versions, so add a "FIXME" comment. Thanks, Francois! --- generic/tclsample.c | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/generic/tclsample.c b/generic/tclsample.c index cbb74cf..47954a3 100644 --- a/generic/tclsample.c +++ b/generic/tclsample.c @@ -359,14 +359,14 @@ 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 - * Note that Tcl_InitStubs is a macro, which is replaced by a Tcl version - * check only, if TCL_STUBS is not defined (e.g. direct link, static build) + * FIXME: The "-" in "8.1-" is for Tcl 9 and is not correct following the manpage: + ' "A version string consisting of one or more decimal numbers separated by dots." + * Nevertheless, it worked for TCL 8.6.13 and pre-9.0.1. */ if (Tcl_InitStubs(interp, "8.1-", 0) == NULL) { return TCL_ERROR;