diff options
| -rw-r--r-- | ChangeLog | 5 | ||||
| -rw-r--r-- | generic/tclObj.c | 4 |
2 files changed, 9 insertions, 0 deletions
@@ -1,3 +1,8 @@ +2011-03-23 Miguel Sofer <msofer@users.sf.net> + + * generic/tclObj.c: exploit HAVE_FAST_TSD for the deletion context + in TclFreeObj() + 2011-03-22 Miguel Sofer <msofer@users.sf.net> * generic/tclThreadAlloc.c: simpler initialization of Cache diff --git a/generic/tclObj.c b/generic/tclObj.c index 3bc6f12..5fc8142 100644 --- a/generic/tclObj.c +++ b/generic/tclObj.c @@ -162,6 +162,10 @@ typedef struct PendingObjData { 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) \ |