Differences From Artifact [da26937cb8]:

• File unix/tclUnixThrd.c — part of check-in [942144282c] at 2004-08-10 19:40:48 on branch trunk — Changed handling of the returned thread ID since broken on 64-bit systems (Cray). Thanks to Rob Ratcliff for reporting the bug. (user: vasiljevic size: 23757) [more...]

To Artifact [c36bb07c3f]:

• File unix/tclUnixThrd.c — part of check-in [de53d33e5e] at 2004-11-22 22:40:31 on branch trunk — * unix/configure: Regen. * unix/tcl.m4 (SC_ENABLE_THREADS): Check for a 2 argument version of readdir_r that is known to exists under IRIX 5.3. * unix/tclUnixThrd.c (TclpReaddir): Use either 2 arg or 3 arg version of readdir_r. [Bug 1001325] (user: mdejong size: 23903) [more...]

879
880
881
882
883
884
885
886



887

888
889
890
891
892
893
894

TclpReaddir(DIR * dir)
{
    Tcl_DirEntry *ent;
#ifdef TCL_THREADS
    ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&dataKey);

#ifdef HAVE_READDIR_R
    ent = &tsdPtr->rdbuf.ent; 



    if (TclOSreaddir_r(dir, ent, &ent) != 0) {

	ent = NULL;
    }

#else /* !HAVE_READDIR_R */

    Tcl_MutexLock(&rdMutex);
#   ifdef HAVE_STRUCT_DIRENT64

|
>
>
>

>

879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898

TclpReaddir(DIR * dir)
{
    Tcl_DirEntry *ent;
#ifdef TCL_THREADS
    ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&dataKey);

#ifdef HAVE_READDIR_R
    ent = &tsdPtr->rdbuf.ent;
# ifdef HAVE_TWO_ARG_READDIR_R
    if (TclOSreaddir_r(dir, ent) != 0) {
# else /* HAVE_THREE_ARG_READDIR_R */
    if (TclOSreaddir_r(dir, ent, &ent) != 0) {
# endif /* HAVE_TWO_ARG_READDIR_R */
	ent = NULL;
    }

#else /* !HAVE_READDIR_R */

    Tcl_MutexLock(&rdMutex);
#   ifdef HAVE_STRUCT_DIRENT64