Differences From Artifact [b41f98b53d]:

• File generic/tclIOUtil.c — part of check-in [264b4df978] at 2004-10-15 04:01:22 on branch trunk — * generic/tclBasic.c (Tcl_CreateInterp,Tcl_DeleteInterp, TclEvalObjvInternal,Tcl_LogCommandInfo,TclAddObjErrorInfo): * generic/tclCmdAH.c (Tcl_CatchObjCmd): * generic/tclEvent.c (BgError,ErrAssocData,Tcl_BackgroundError, HandleBgErrors,BgErrorDeleteProc): * generic/tclExecute.c (TclCreateExecEnv,TclDeleteExecEnv): * generic/tclIOUtil.c (comments only): * generic/tclInt.h (ExecEnv,Interp, ERR_IN_PROGRESS): * generic/tclInterp.c ([tclInit]): * generic/tclMain.c (comments only): * generic/tclNamesp.c (Tcl_CreateNamespace,Tcl_DeleteNamespace,TclTeardownNamespace): * generic/tclProc.c (TclUpdateReturnInfo): * generic/tclResult.c (Tcl_ResetResult,TclTransferResult): * generic/tclTrace.c (CallVarTraces): Reworked management of the "errorInfo" data of an interp. That information is now primarily stored in a new private (Tcl_Obj *) field of the Interp struct, rather than using a global variable ::errorInfo as the primary storage. The ERR_IN_PROGRESS flag bit value is no longer required to manage the value in its new location, and is removed. Variable traces are established to support compatibility for any code expecting the ::errorInfo variable to hold the information. ***POTENTIAL INCOMPATIBILITY*** Code that sets traces on the ::errorInfo variable may notice a difference in timing of the firing of those traces. Code that uses the value ERR_IN_PROGRESS. (user: dgp size: 138825)

To Artifact [bf550cdf71]:

• File generic/tclIOUtil.c — part of check-in [5ce5994b49] at 2004-11-17 00:31:34 on branch trunk — * generic/tclIOUtil.c (TclFSEpochOk): There were two code paths via which the thread copy of filesystemEpoch could be synched with the master copy, but only one kept the filesystem list cache up to date. Fix routes everything through a single code path. [Bug 1035775]. (user: dgp size: 138651)

13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

 *
 * Copyright (c) 1991-1994 The Regents of the University of California.
 * Copyright (c) 1994-1997 Sun Microsystems, Inc.
 *
 * See the file "license.terms" for information on usage and redistribution
 * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 *
 * RCS: @(#) $Id: tclIOUtil.c,v 1.112 2004/10/15 04:01:31 dgp Exp $
 */

#include "tclInt.h"
#ifdef __WIN32__
#include "tclWinInt.h"
#endif
#include "tclFileSystem.h"

|

13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

 *
 * Copyright (c) 1991-1994 The Regents of the University of California.
 * Copyright (c) 1994-1997 Sun Microsystems, Inc.
 *
 * See the file "license.terms" for information on usage and redistribution
 * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 *
 * RCS: @(#) $Id: tclIOUtil.c,v 1.113 2004/11/17 00:31:47 dgp Exp $
 */

#include "tclInt.h"
#ifdef __WIN32__
#include "tclWinInt.h"
#endif
#include "tclFileSystem.h"

638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658

 * removed and by env(HOME) changing.
 */
int
TclFSEpochOk (filesystemEpoch)
    int filesystemEpoch; 
{
    ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&tclFsDataKey);
#ifndef TCL_THREADS
    tsdPtr->filesystemEpoch = theFilesystemEpoch;
#else
    Tcl_MutexLock(&filesystemMutex);
    tsdPtr->filesystemEpoch = theFilesystemEpoch;
    Tcl_MutexUnlock(&filesystemMutex);
#endif
    return (filesystemEpoch == tsdPtr->filesystemEpoch);
}

/* 
 * If non-NULL, clientData is owned by us and must be freed later.
 */
static void

<
<
<
|
<
<
<

638
639
640
641
642
643
644



645



646
647
648
649
650
651
652

 * removed and by env(HOME) changing.
 */
int
TclFSEpochOk (filesystemEpoch)
    int filesystemEpoch; 
{
    ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&tclFsDataKey);



    (void) FsGetFirstFilesystem();



    return (filesystemEpoch == tsdPtr->filesystemEpoch);
}

/* 
 * If non-NULL, clientData is owned by us and must be freed later.
 */
static void