970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
|
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
|
-
+
-
+
|
void
TclpInitAllocCache(void)
{
/*
* We need to make sure that TclpFreeAllocCache is called on each
* thread that calls this, but only on threads that call this.
*/
tlsKey = TlsAlloc();
if (tlsKey == TLS_OUT_OF_INDEXES) {
Tcl_Panic("could not allocate thread local storage");
}
}
}
void *
TclpGetAllocCache(void)
{
void *result;
result = TlsGetValue(tlsKey);
|