Tcl package Thread source code

Check-in [add8f8baeb]
Login

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

Overview
Comment:merge 2.8
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: add8f8baebf1a6f0fa9e74712f5a3807e8099640581306052409b5c9bb0f063d
User & Date: sebres 2019-03-19 15:42:27.258
Context
2019-03-20
14:48
Merge 2.8 branch check-in: 0619548927 user: jan.nijtmans tags: trunk
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:03
Merge 2.8 check-in: ba84bb8eed user: jan.nijtmans tags: trunk
Changes
Unified Diff 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;