From d68b078b5ccb7111f9c82f5d536184052563a8bd Mon Sep 17 00:00:00 2001
From: mig <mig>
Date: Wed, 23 Mar 2011 13:11:16 +0000
Subject: * generic/tclObj.c: exploit HAVE_FAST_TSD for the deletion context in
 TclFreeObj()

---
 ChangeLog        | 5 +++++
 generic/tclObj.c | 4 ++++
 2 files changed, 9 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index 07bcdf5..0b0297c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -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) \
-- 
cgit v0.12