Differences From Artifact [8f4b726f76]:

• File unix/tclUnixThrd.c — part of check-in [0c2541e057] at 2006-12-19 04:35:19 on branch core-8-4-branch — * unix/tclUnixThrd.c (TclpInetNtoa): fix for 64 bit. (user: das size: 21850)

To Artifact [1d65853178]:

• File unix/tclUnixThrd.c — part of check-in [8010f24374] at 2007-05-29 23:35:46 on branch core-8-4-branch — * unix/tclUnixThrd.c (Tcl_JoinThread): fix for 64-bit handling of pthread_join exit return code storage. [Bug 1712723] (user: hobbs size: 21927)

161
162
163
164
165
166
167

168
169



170
171
172
173
174
175
176

    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;


    result = pthread_join ((pthread_t) threadId, (VOID**) state);



    return (result == 0) ? TCL_OK : TCL_ERROR;
#else
    return TCL_ERROR;
#endif
}

#ifdef TCL_THREADS

>

|
>
>
>

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**) &retcode);
    if (state) {
	*state = (int) retcode;
    }
    return (result == 0) ? TCL_OK : TCL_ERROR;
#else
    return TCL_ERROR;
#endif
}

#ifdef TCL_THREADS