Tcl package Thread source code

Check-in [b49a179e29]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:amend to [fe731813cd]: use Tcl_GetUnicodeFromObj (instead of Tcl_GetCharLength) for object-conversion in order to find string-type; There are really tcl-versions (or forks;) where Tcl_GetCharLength would not necessarily convert object to unicode.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | thread-2-8-branch
Files: files | file ages | folders
SHA3-256: b49a179e2997e901fc2cb08712ae92fe614304415af327bbde1a7d5a30d8c4be
User & Date: sebres 2019-03-19 15:38:57
Context
2019-03-20
14:47
Further amend to [fe731813cd]: When using Tcl from the utf-max-6 branch (TIP upcoming), compiled with TCL_UTF_MAX>3, then use The Utf-32 version of Tcl_GetUnicodeFromObj() in stead of the Utf-16 version, switchable at run-time. check-in: 67e9a624e2 user: jan.nijtmans tags: thread-2-8-branch
2019-03-19
15:42
merge 2.8 check-in: add8f8baeb user: sebres tags: trunk
15:38
amend to [fe731813cd]: use Tcl_GetUnicodeFromObj (instead of Tcl_GetCharLength) for object-conversion in order to find string-type; There are really tcl-versions (or forks;) where Tcl_GetCharLength would not necessarily convert object to unicode. check-in: b49a179e29 user: sebres tags: thread-2-8-branch
15:01
Eliminate use of Tcl_UniChar type, so Thread compilation doesn't depend on value of TCL_UTF_MAX any more. check-in: fe731813cd user: jan.nijtmans tags: thread-2-8-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/threadSvCmd.c.

2231
2232
2233
2234
2235
2236
2237
2238
2239
2240
2241
2242
2243
2244
2245
     * Get Tcl object types. These are used
     * in custom object duplicator function.
     */

    obj = Tcl_NewStringObj("no", -1);
    Tcl_GetBooleanFromObj(NULL, obj, &i);
    booleanObjTypePtr   = obj->typePtr;
    Tcl_GetCharLength(obj);
    stringObjTypePtr = obj->typePtr;
    Tcl_GetByteArrayFromObj(obj, &i);
    byteArrayObjTypePtr = obj->typePtr;
    Tcl_DecrRefCount(obj);

    obj = Tcl_NewDoubleObj(0.0);
    doubleObjTypePtr    = obj->typePtr;






|







2231
2232
2233
2234
2235
2236
2237
2238
2239
2240
2241
2242
2243
2244
2245
     * Get Tcl object types. These are used
     * in custom object duplicator function.
     */

    obj = Tcl_NewStringObj("no", -1);
    Tcl_GetBooleanFromObj(NULL, obj, &i);
    booleanObjTypePtr   = obj->typePtr;
    Tcl_GetUnicodeFromObj(obj, &i);
    stringObjTypePtr = obj->typePtr;
    Tcl_GetByteArrayFromObj(obj, &i);
    byteArrayObjTypePtr = obj->typePtr;
    Tcl_DecrRefCount(obj);

    obj = Tcl_NewDoubleObj(0.0);
    doubleObjTypePtr    = obj->typePtr;