* generic/tcl.h: Make Tcl_ThreadDataKey a void *.

        * generic/tclInt.h:     Change around some function names and
         add some new per-platform declarations for thread-specific data
         functions.
        * generic/tclThread.c:  Make use of of the new function names
         that no longer have a Tclp prefix.
        * generic/tclThreadStorage.c: Replace the core thread-specific data
        (TSD) mechanism with an array offset solution that eliminates the
        hash tables, and only uses one slot of native TSD.
        Many thanks to Kevin B. Kenny for his help with this.

        * unix/tclUnixThrd.c:   Add platform-specific TSD functions for use
        by tclThreadStorage.c.
        * win/tclWinThrd.c:     Add platform-specific TSD functions for use
        by tclThreadStorage.c.

1 files changed, 44 insertions, 1 deletions

diff --git a/unix/tclUnixThrd.c b/unix/tclUnixThrd.c
index 0cb4b5d..63e8733 100644
--- a/unix/tclUnixThrd.c
+++ b/unix/tclUnixThrd.c
@@ -5,11 +5,12 @@
  *
  * Copyright (c) 1991-1994 The Regents of the University of California.
  * Copyright (c) 1994-1997 Sun Microsystems, Inc.
+ * Copyright (c) 2008 by George Peter Staplin
  *
  * See the file "license.terms" for information on usage and redistribution of
  * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclUnixThrd.c,v 1.57 2008/01/11 11:53:02 msofer Exp $
+ * RCS: @(#) $Id: tclUnixThrd.c,v 1.58 2008/05/09 04:58:54 georgeps Exp $
  */
 
 #include "tclInt.h"
@@ -851,6 +852,48 @@ TclpSetAllocCache(
     pthread_setspecific(key, arg);
 }
 #endif /* USE_THREAD_ALLOC */
+
+
+
+void *TclpThreadCreateKey(void) {
+    pthread_key_t *key;
+
+    key = TclpSysAlloc(sizeof *key, 0);
+    if (NULL == key) {
+	Tcl_Panic("unable to allocate thread key!");
+    }
+
+    if (pthread_key_create(key, NULL)) {
+	Tcl_Panic("unable to create pthread key!");
+    }
+
+    return key;
+}
+
+void TclpThreadDeleteKey(void *keyPtr) {
+    pthread_key_t *key = keyPtr;
+
+    if (pthread_key_delete(*key)) {
+	Tcl_Panic("unable to delete key!");
+    }
+
+    TclpSysFree(keyPtr);
+}
+
+void TclpThreadSetMasterTSD(void *tsdKeyPtr, void *ptr) {
+    pthread_key_t *key = tsdKeyPtr;
+    
+    if (pthread_setspecific(*key, ptr)) {
+	Tcl_Panic("unable to set master TSD value");
+    }
+}
+
+void *TclpThreadGetMasterTSD(void *tsdKeyPtr) {
+    pthread_key_t *key = tsdKeyPtr;
+
+    return pthread_getspecific(*key);
+}
+
 #endif /* TCL_THREADS */
 
 /*