diff options
| author | mig <mig@noemail.net> | 2011-03-23 13:11:16 (GMT) |
|---|---|---|
| committer | mig <mig@noemail.net> | 2011-03-23 13:11:16 (GMT) |
| commit | 17c1163f995dcfdb85e43f7a4fe0b08f37f8ca6f (patch) | |
| tree | 4d40533848d8ac8332055dc6ff3b360bc1e73ef9 /generic/tclObj.c | |
| parent | 582a89b3a62f4cd26461857dfecdeee6735f1a72 (diff) | |
| download | tcl-17c1163f995dcfdb85e43f7a4fe0b08f37f8ca6f.zip tcl-17c1163f995dcfdb85e43f7a4fe0b08f37f8ca6f.tar.gz tcl-17c1163f995dcfdb85e43f7a4fe0b08f37f8ca6f.tar.bz2 | |
* generic/tclObj.c: exploit HAVE_FAST_TSD for the deletion context in TclFreeObj()
FossilOrigin-Name: 005a498bdae8b29ab6d22e99ffbefa3e95c8bb57
Diffstat (limited to 'generic/tclObj.c')
| -rw-r--r-- | generic/tclObj.c | 4 |
1 files changed, 4 insertions, 0 deletions
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) \ |