diff options
| author | dgp@users.sourceforge.net <dgp> | 2004-09-30 23:06:47 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2004-09-30 23:06:47 (GMT) |
| commit | c5bf39c2825a30e87dd11edab1d1901a59d01329 (patch) | |
| tree | 80cd1a43eaad19a6b5ca302dc244897f6602805b /generic/tclBasic.c | |
| parent | d7793efe591c97ccb51871d37c510b51db9df3f4 (diff) | |
| download | tcl-c5bf39c2825a30e87dd11edab1d1901a59d01329.zip tcl-c5bf39c2825a30e87dd11edab1d1901a59d01329.tar.gz tcl-c5bf39c2825a30e87dd11edab1d1901a59d01329.tar.bz2 | |
* generic/tclBasic.c (Tcl_AddObjErrorInfo): More re-organization
* generic/tclCmdAH.c (Tcl_ErrorObjCmd): of the management of
* generic/tclCmdMZ.c (TclProcessReturn): the errorCode value.
* tests/error.test (error-6.4-9):
* generic/tclNamespace.c (TclTeardownNamespace): Tcl_Obj-ified
* tests/namespace.test (namespace-8.5,6): the save/restore
of ::errorInfo and ::errorCode during global namespace teardown.
Revised the comment to clarify why this is done, and added tests
that will fail if this is not done.
* generic/tclResult.c (TclTransferResult): Added safety
checks so that unexpected undefined ::errorInfo or ::errorCode
will not lead to a segfault.
* generic/tclTrace.c (TclCallVarTraces): Save/restore the flag
* tests/var.test (var-16.1): values that define part of the
interpreter state during variable traces. [Bug 10381021].
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 16 |
1 files changed, 1 insertions, 15 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 6401e73..ea3e03c 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -13,7 +13,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclBasic.c,v 1.119 2004/09/27 22:39:20 msofer Exp $ + * RCS: @(#) $Id: tclBasic.c,v 1.120 2004/09/30 23:06:47 dgp Exp $ */ #include "tclInt.h" @@ -4529,20 +4529,6 @@ Tcl_AddObjErrorInfo(interp, message, length) Tcl_ObjSetVar2(interp, iPtr->execEnvPtr->errorInfo, NULL, Tcl_NewStringObj(interp->result, -1), TCL_GLOBAL_ONLY); } - - /* - * If the errorCode variable wasn't set by the code that generated - * the error, set it to "NONE". - * - * NOTE: The main check for setting the default value of - * errorCode to NONE is in Tcl_LogCommandInfo. This one - * should go away, but currently it's taking care of setting - * up errorCode after compile errors. - */ - - if (!(iPtr->flags & ERROR_CODE_SET)) { - Tcl_SetErrorCode(interp, "NONE", NULL); - } } /* |