161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
|
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
|
+
-
+
+
+
+
|
Tcl_ThreadId threadId; /* Id of the thread to wait upon */
int* state; /* Reference to the storage the result
* of the thread we wait upon will be
* written into. */
{
#ifdef TCL_THREADS
int result;
unsigned long retcode;
result = pthread_join ((pthread_t) threadId, (VOID**) state);
result = pthread_join((pthread_t) threadId, (void**) &retcode);
if (state) {
*state = (int) retcode;
}
return (result == 0) ? TCL_OK : TCL_ERROR;
#else
return TCL_ERROR;
#endif
}
#ifdef TCL_THREADS
|