Differences From Artifact [db85f1ceff]:

• Executable file generic/alloc/tclThreadAlloc.c — part of check-in [d0f1659e90] at 2011-03-15 14:15:37 on branch mig-alloc-reform — reorganisation towards (hopefuly) defining the allocator and/or purify at app start time; for now it's still at compile time, and tclNativeAlloc.c is still not complete (user: mig size: 24773)

To Artifact [0dc118e949]:

• Executable file generic/alloc/tclThreadAlloc.c — part of check-in [536791f045] at 2011-03-15 14:53:24 on branch mig-alloc-reform — fix so that thread blocks are recycled when a thread dies (HAVE_FAST_TSD), just keep the original stuff (user: mig size: 24609)

161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186

	if (!allocInitialized) {		\
	    allocInitialized = 1;		\
	    GetCache();				\
	}					\
	(cachePtr) = &tcache;			\
    } while (0)

void *
TclpGetAllocCache(void)
{
    if (!allocInitialized) {
	allocInitialized = 1;
	GetCache();
    }
    return &tcache;
}

#define TclpSetAllocCache(cachePtr)

#else
# define GETCACHE(cachePtr)			\
    do {					\
	(cachePtr) = TclpGetAllocCache();	\
	if ((cachePtr) == NULL) {		\
	    (cachePtr) = GetCache();		\
	}					\

<
<
<
<
<
<
<
<
<
<
<
<

161
162
163
164
165
166
167












168
169
170
171
172
173
174

	if (!allocInitialized) {		\
	    allocInitialized = 1;		\
	    GetCache();				\
	}					\
	(cachePtr) = &tcache;			\
    } while (0)













#else
# define GETCACHE(cachePtr)			\
    do {					\
	(cachePtr) = TclpGetAllocCache();	\
	if ((cachePtr) == NULL) {		\
	    (cachePtr) = GetCache();		\
	}					\