Tcl package Thread source code

Check-in [4307b6698b]
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:Merge trunk
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | novem
Files: files | file ages | folders
SHA3-256: 4307b6698b6a6e715d17f0b9909641f4c549e2f2a07ac754743f04069e51e2b2
User & Date: jan.nijtmans 2019-03-20 14:52:04
Context
2019-03-27
23:56
Merge trunk check-in: fd7e216d1a user: jan.nijtmans tags: novem
2019-03-20
14:52
Merge trunk check-in: 4307b6698b user: jan.nijtmans tags: novem
14:48
Merge 2.8 branch check-in: 0619548927 user: jan.nijtmans tags: trunk
2019-03-19
15:05
Merge trunk check-in: d5b48ff830 user: jan.nijtmans tags: novem
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclThreadInt.h.

122
123
124
125
126
127
128
129







130
 * and virtual server name for proper interp initializations.
 */

typedef struct {
    char *modname;
    char *server;
} NsThreadInterpData;








#endif /* _TCL_THREAD_INT_H_ */







>
>
>
>
>
>
>

122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
 * and virtual server name for proper interp initializations.
 */

typedef struct {
    char *modname;
    char *server;
} NsThreadInterpData;

#if defined(USE_TCL_STUBS)
# undef Tcl_GetUnicodeFromObj
# define Tcl_GetUnicodeFromObj(obj,len) ((((&(tclStubsPtr->tcl_PkgProvideEx))[378]) != ((&(tclStubsPtr->tcl_PkgProvideEx))[434])) ? \
  ((void (*)(Tcl_Obj *, int *))((&(tclStubsPtr->tcl_PkgProvideEx))[434]))((obj),(len)): \
  ((void (*)(Tcl_Obj *, int *))((&(tclStubsPtr->tcl_PkgProvideEx))[646]))((obj),(len)))
#endif

#endif /* _TCL_THREAD_INT_H_ */

Changes to generic/threadSvCmd.c.

2232
2233
2234
2235
2236
2237
2238
2239
2240
2241
2242
2243
2244
2245
2246
     * 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;






|







2232
2233
2234
2235
2236
2237
2238
2239
2240
2241
2242
2243
2244
2245
2246
     * 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;