Tcl Source Code

Check-in [6968a9adbd]
Login

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

Overview
Comment:Merge to feature branch
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | dkf-notifier-poll
Files: files | file ages | folders
SHA1: 6968a9adbd079fcfe63cd87cbc34eb1205dbc3d7
User & Date: dkf 2011-03-24 06:23:28
Context
2011-03-24
10:23
Merge to feature branch check-in: 1c5281d1a4 user: dkf tags: dkf-notifier-poll
06:23
Merge to feature branch check-in: 6968a9adbd user: dkf tags: dkf-notifier-poll
2011-03-23
13:11
* generic/tclObj.c: exploit HAVE_FAST_TSD for the deletion context in TclFreeObj() check-in: 005a498bda user: mig tags: trunk
2011-03-22
11:21
Merge to feature branch check-in: 03f3ae79e3 user: dkf tags: dkf-notifier-poll
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to ChangeLog.






1
2
3
4
5
6
7





2011-03-22  Miguel Sofer  <[email protected]>

	* generic/tclThreadAlloc.c: simpler initialization of Cache
	under HAVE_FAST_TSD, from mig-alloc-reform.

2011-03-21  Jan Nijtmans  <[email protected]>

>
>
>
>
>







1
2
3
4
5
6
7
8
9
10
11
12
2011-03-23  Miguel Sofer  <[email protected]>

	* generic/tclObj.c: exploit HAVE_FAST_TSD for the deletion context
	in TclFreeObj()

2011-03-22  Miguel Sofer  <[email protected]>

	* generic/tclThreadAlloc.c: simpler initialization of Cache
	under HAVE_FAST_TSD, from mig-alloc-reform.

2011-03-21  Jan Nijtmans  <[email protected]>

Changes to generic/tclObj.c.

156
157
158
159
160
161
162




163
164
165
166
167
168
169
    (contextPtr)->deletionStack = (Tcl_Obj *) (objPtrVar)->bytes

/*
 * Macro to set up the local reference to the deletion context.
 */
#ifndef TCL_THREADS
static PendingObjData pendingObjData;




#define ObjInitDeletionContext(contextPtr) \
    PendingObjData *const contextPtr = &pendingObjData
#else
static Tcl_ThreadDataKey pendingObjDataKey;
#define ObjInitDeletionContext(contextPtr) \
    PendingObjData *const contextPtr =                                  \
	    Tcl_GetThreadData(&pendingObjDataKey, sizeof(PendingObjData))







>
>
>
>







156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
    (contextPtr)->deletionStack = (Tcl_Obj *) (objPtrVar)->bytes

/*
 * Macro to set up the local reference to the deletion context.
 */
#ifndef TCL_THREADS
static PendingObjData pendingObjData;
#define ObjInitDeletionContext(contextPtr) \
    PendingObjData *const contextPtr = &pendingObjData
#elif HAVE_FAST_TSD
static __thread PendingObjData pendingObjData;
#define ObjInitDeletionContext(contextPtr) \
    PendingObjData *const contextPtr = &pendingObjData
#else
static Tcl_ThreadDataKey pendingObjDataKey;
#define ObjInitDeletionContext(contextPtr) \
    PendingObjData *const contextPtr =                                  \
	    Tcl_GetThreadData(&pendingObjDataKey, sizeof(PendingObjData))