172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
|
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
|
-
+
+
|
Tcl_MutexUnlock(&threadMutex);
Tcl_CreateObjCommand(interp, "testthread", ThreadObjCmd, NULL, NULL);
return TCL_OK;
}
void * TclThreadTestFinalize() {
void TclThreadTestFinalize() {
if (errorProcString != NULL) {
ckfree(errorProcString);
errorProcString= NULL;
}
return;
}
/*
*----------------------------------------------------------------------
*
* ThreadObjCmd --
*
|