summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorgeorgeps <georgeps>2008-07-16 23:31:29 (GMT)
committergeorgeps <georgeps>2008-07-16 23:31:29 (GMT)
commit8c89eda3cecbbeefdac39bbaf98c2230a64bebd2 (patch)
tree14b8d3bdede282cc3a35212b14b41efb92955244
parent50c3ec45e663031133f8f9024976f0d5501a3f46 (diff)
downloadtcl-8c89eda3cecbbeefdac39bbaf98c2230a64bebd2.zip
tcl-8c89eda3cecbbeefdac39bbaf98c2230a64bebd2.tar.gz
tcl-8c89eda3cecbbeefdac39bbaf98c2230a64bebd2.tar.bz2
* win/tclWinThrd.c: Test for TLS_OUT_OF_INDEXES to make certain that
thread key creation is successful.
-rw-r--r--ChangeLog5
-rw-r--r--win/tclWinThrd.c6
2 files changed, 10 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog
index e9d76f3..f8fad22 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2008-07-16 George Peter Staplin <georgeps@users.sf.net>
+
+ * win/tclWinThrd.c: Test for TLS_OUT_OF_INDEXES to make certain that
+ thread key creation is successful.
+
2008-07-16 Donal K. Fellows <dkf@users.sf.net>
* generic/tclOO.c, generic/tclOOInt.h, generic/tclOOBasic.c:
diff --git a/win/tclWinThrd.c b/win/tclWinThrd.c
index 6ee0a5e..d9dd0f7 100644
--- a/win/tclWinThrd.c
+++ b/win/tclWinThrd.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclWinThrd.c,v 1.46 2008/06/13 05:45:15 mistachkin Exp $
+ * RCS: @(#) $Id: tclWinThrd.c,v 1.47 2008/07/16 23:31:29 georgeps Exp $
*/
#include "tclWinInt.h"
@@ -969,6 +969,10 @@ void *TclpThreadCreateKey (void) {
}
*key = TlsAlloc();
+
+ if (*key == TLS_OUT_OF_INDEXES) {
+ Tcl_Panic("unable to allocate thread-local storage");
+ }
return key;
}