diff options
author | dgp <dgp@users.sourceforge.net> | 2004-10-15 04:01:22 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2004-10-15 04:01:22 (GMT) |
commit | 0eb70513827981212a928f0a5b63afb70c53c960 (patch) | |
tree | a5072bb17646340c040c80672eeba059e8b393f0 /generic/tclIOUtil.c | |
parent | 2b7d6e025eefe41b48ec7f948602faf2d3bf7055 (diff) | |
download | tcl-0eb70513827981212a928f0a5b63afb70c53c960.zip tcl-0eb70513827981212a928f0a5b63afb70c53c960.tar.gz tcl-0eb70513827981212a928f0a5b63afb70c53c960.tar.bz2 |
* 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.
Diffstat (limited to 'generic/tclIOUtil.c')
-rw-r--r-- | generic/tclIOUtil.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c index 0f31689..befc9c7 100644 --- a/generic/tclIOUtil.c +++ b/generic/tclIOUtil.c @@ -17,7 +17,7 @@ * 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.111 2004/10/07 14:50:22 vincentdarley Exp $ + * RCS: @(#) $Id: tclIOUtil.c,v 1.112 2004/10/15 04:01:31 dgp Exp $ */ #include "tclInt.h" @@ -1783,23 +1783,23 @@ Tcl_SetErrno(err) * * This procedure is typically called after UNIX kernel calls * return errors. It stores machine-readable information about - * the error in $errorCode returns an information string for - * the caller's use. + * the error in errorCode field of interp and returns an + * information string for the caller's use. * * Results: * The return value is a human-readable string describing the * error. * * Side effects: - * The global variable $errorCode is reset. + * The errorCode field of the interp is set. * *---------------------------------------------------------------------- */ CONST char * Tcl_PosixError(interp) - Tcl_Interp *interp; /* Interpreter whose $errorCode variable - * is to be changed. */ + Tcl_Interp *interp; /* Interpreter whose errorCode field + * is to be set. */ { CONST char *id, *msg; |