merge trunk

tcltk · Sep 25, 2024 · 9ab26f8 · 9ab26f8
2 parents 05b8631 + 79ecc38
commit 9ab26f8
Show file tree

Hide file tree

Showing 16 changed files with 19 additions and 19 deletions.
diff --git a/doc/ByteArrObj.3 b/doc/ByteArrObj.3
@@ -144,7 +144,7 @@ an \fBint\fR space and the number of bytes in the byte-array value of
 to being unable to correctly report the byte-array size to the caller.
 The ability to provide an \fBint\fR space is best considered a migration
 aid for codebases constrained to continue operating with Tcl releases
-older than 8.7.
+older than 9.0.
 .PP
 \fBTcl_SetByteArrayLength\fR enables a caller to change the size of a
 byte-array in the internal representation of an unshared \fIobjPtr\fR to

diff --git a/doc/InitSubSyst.3 b/doc/InitSubSyst.3
@@ -5,7 +5,7 @@
 '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 '\"
 .so man.macros
-.TH Tcl_InitSubsystems 3 8.7 Tcl "Tcl Library Procedures"
+.TH Tcl_InitSubsystems 3 9.0 Tcl "Tcl Library Procedures"
 .BS
 .SH NAME
 Tcl_InitSubsystems \- initialize the Tcl library.

diff --git a/doc/Number.3 b/doc/Number.3
@@ -4,7 +4,7 @@
 '\" See the file "license.terms" for information on usage and redistribution
 '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 '\"
-.TH Tcl_GetNumber 3 8.7 Tcl "Tcl Library Procedures"
+.TH Tcl_GetNumber 3 9.0 Tcl "Tcl Library Procedures"
 .so man.macros
 .BS
 .SH NAME

diff --git a/doc/OpenTcp.3 b/doc/OpenTcp.3
@@ -4,7 +4,7 @@
 '\" See the file "license.terms" for information on usage and redistribution
 '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 '\"
-.TH Tcl_OpenTcpClient 3 8.7 Tcl "Tcl Library Procedures"
+.TH Tcl_OpenTcpClient 3 9.0 Tcl "Tcl Library Procedures"
 .so man.macros
 .BS
 '\" Note:  do not modify the .SH NAME line immediately below!

diff --git a/doc/SetResult.3 b/doc/SetResult.3
@@ -5,7 +5,7 @@
 '\" See the file "license.terms" for information on usage and redistribution
 '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 '\"
-.TH Tcl_SetResult 3 8.7 Tcl "Tcl Library Procedures"
+.TH Tcl_SetResult 3 9.0 Tcl "Tcl Library Procedures"
 .so man.macros
 .BS
 .SH NAME

diff --git a/doc/array.n b/doc/array.n
@@ -5,7 +5,7 @@
 '\" See the file "license.terms" for information on usage and redistribution
 '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 '\"
-.TH array n 8.7 Tcl "Tcl Built-In Commands"
+.TH array n 9.0 Tcl "Tcl Built-In Commands"
 .so man.macros
 .BS
 '\" Note:  do not modify the .SH NAME line immediately below!

diff --git a/doc/fpclassify.n b/doc/fpclassify.n
@@ -5,14 +5,14 @@
 '\" See the file "license.terms" for information on usage and redistribution
 '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 '\"
-.TH fpclassify n 8.7 Tcl "Tcl Float Classifier"
+.TH fpclassify n 9.0 Tcl "Tcl Float Classifier"
 .so man.macros
 .BS
 '\" Note:  do not modify the .SH NAME line immediately below!
 .SH NAME
 fpclassify \- Floating point number classification of Tcl values
 .SH SYNOPSIS
-package require \fBtcl 8.7\fR
+package require \fBtcl 9.0\fR
 .sp
 \fBfpclassify \fIvalue\fR
 .BE

diff --git a/doc/ledit.n b/doc/ledit.n
@@ -4,7 +4,7 @@
 '\" See the file "license.terms" for information on usage and redistribution
 '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 '\"
-.TH ledit n 8.7 Tcl "Tcl Built-In Commands"
+.TH ledit n 9.0 Tcl "Tcl Built-In Commands"
 .so man.macros
 .BS
 '\" Note:  do not modify the .SH NAME line immediately below!

diff --git a/doc/lpop.n b/doc/lpop.n
@@ -4,7 +4,7 @@
 '\" See the file "license.terms" for information on usage and redistribution
 '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 '\"
-.TH lpop n 8.7 Tcl "Tcl Built-In Commands"
+.TH lpop n 9.0 Tcl "Tcl Built-In Commands"
 .so man.macros
 .BS
 '\" Note:  do not modify the .SH NAME line immediately below!

diff --git a/doc/lremove.n b/doc/lremove.n
@@ -4,7 +4,7 @@
 '\" See the file "license.terms" for information on usage and redistribution
 '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 '\"
-.TH lremove n 8.7 Tcl "Tcl Built-In Commands"
+.TH lremove n 9.0 Tcl "Tcl Built-In Commands"
 .so man.macros
 .BS
 '\" Note:  do not modify the .SH NAME line immediately below!

diff --git a/doc/lseq.n b/doc/lseq.n
@@ -4,7 +4,7 @@
 '\" See the file "license.terms" for information on usage and redistribution
 '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 '\"
-.TH lseq n 8.7 Tcl "Tcl Built-In Commands"
+.TH lseq n 9.0 Tcl "Tcl Built-In Commands"
 .so man.macros
 .BS
 '\" Note:  do not modify the .SH NAME line immediately below!

diff --git a/doc/msgcat.n b/doc/msgcat.n
@@ -12,7 +12,7 @@
 msgcat \- Tcl message catalog
 .SH SYNOPSIS
 .nf
-\fBpackage require tcl 8.7\fR
+\fBpackage require tcl 9.0\fR
 \fBpackage require msgcat 1.7\fR
 
 \fB::msgcat::mc \fIsrc-string\fR ?\fIarg arg ...\fR?

diff --git a/doc/process.n b/doc/process.n
@@ -4,7 +4,7 @@
 '\" See the file "license.terms" for information on usage and redistribution
 '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 '\"
-.TH process n 8.7 Tcl "Tcl Built-In Commands"
+.TH process n 9.0 Tcl "Tcl Built-In Commands"
 .so man.macros
 .BS
 '\" Note:  do not modify the .SH NAME line immediately below!

diff --git a/doc/safe.n b/doc/safe.n
@@ -443,7 +443,7 @@ access path. In addition to the directories present if "Safe Mode" is off,
 the ::auto_path includes the numerous subdirectories and module paths
 that belong to the access path.
 .SH SYNC MODE
-Before Tcl version 8.7, the Safe Base kept each safe interpreter's
+Before Tcl version 9.0, the Safe Base kept each safe interpreter's
 ::auto_path synchronized with a tokenized form of its access path.
 Limitations of Tcl 8.4 and earlier made this feature necessary.  This
 definition of ::auto_path did not conform its specification in library(n)

diff --git a/doc/zipfs.3 b/doc/zipfs.3
@@ -6,7 +6,7 @@
 '\" See the file "license.terms" for information on usage and redistribution
 '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 '\"
-.TH Tclzipfs 3 8.7 Tcl "Tcl Library Procedures"
+.TH Tclzipfs 3 9.0 Tcl "Tcl Library Procedures"
 .so man.macros
 .BS
 .SH NAME
@@ -78,8 +78,8 @@ mount, the system will then search for it as either a VFS attached to the
 application dynamic library, or as a zip archive named
 \fBlibtcl_\fImajor\fB_\fIminor\fB_\fIpatchlevel\fB.zip\fR either in the
 present working directory or in the standard Tcl install location. (For
-example, the Tcl 8.7.2 release would be searched for in a file
-\fBlibtcl_8_7_2.zip\fR.) That archive, if located, is also mounted read-only.
+example, the Tcl 9.0.2 release would be searched for in a file
+\fBlibtcl_9_0_2.zip\fR.) That archive, if located, is also mounted read-only.
 .PP
 On Windows, \fBTclZipfs_AppHook\fR has a slightly different signature, since
 it uses WCHAR instead of char. As a result, it requires the application to

diff --git a/generic/tclObj.c b/generic/tclObj.c
@@ -3725,7 +3725,7 @@ Tcl_GetNumberFromObj(
     /* Don't try to convert index or boolean's to a list */
     if (!TclHasInternalRep(objPtr, &tclIndexType)
 	    && !TclHasInternalRep(objPtr, &tclBooleanType)
-	    && (TCL_OK == Tcl_ListObjLength(NULL, objPtr, &length)) && (length > 1)) {
+	    && (TclMaxListLength(TclGetString(objPtr), TCL_INDEX_NONE, NULL) > 1)) {
 	goto listRep;
     }
     return TCL_ERROR;