diff options
Diffstat (limited to 'generic/tclProc.c')
-rw-r--r-- | generic/tclProc.c | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/generic/tclProc.c b/generic/tclProc.c index 833e6d7..1be2e09 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclProc.c,v 1.59 2004/10/06 10:11:05 dkf Exp $ + * RCS: @(#) $Id: tclProc.c,v 1.60 2004/10/15 04:01:33 dgp Exp $ */ #include "tclInt.h" @@ -1295,7 +1295,7 @@ TclProcCompileProc(interp, procPtr, bodyPtr, nsPtr, description, procName) * Side effects: * If the result returned is TCL_ERROR, traceback information about * the procedure just executed is appended to the interpreter's - * "errorInfo" variable. + * errorInfo field. * *---------------------------------------------------------------------- */ @@ -1439,7 +1439,7 @@ TclProcCleanupProc(procPtr) * the procedure, instead of TCL_RETURN. * * Side effects: - * The errorInfo and errorCode variables may get modified. + * The errorInfo and errorCode fields may get set. * *---------------------------------------------------------------------- */ @@ -1481,9 +1481,8 @@ TclUpdateReturnInfo(iPtr) Tcl_DictObjGet(NULL, iPtr->returnOpts, iPtr->returnErrorinfoKey, &valuePtr); if (valuePtr != NULL) { - Tcl_ObjSetVar2((Tcl_Interp *) iPtr, iPtr->execEnvPtr->errorInfo, - NULL, valuePtr, TCL_GLOBAL_ONLY); - iPtr->flags |= ERR_IN_PROGRESS; + iPtr->errorInfo = valuePtr; + Tcl_IncrRefCount(iPtr->errorInfo); } } return code; |