diff options
| author | dgp <dgp@noemail.net> | 2004-09-21 22:45:24 (GMT) |
|---|---|---|
| committer | dgp <dgp@noemail.net> | 2004-09-21 22:45:24 (GMT) |
| commit | c98b39e1adf6ea1c967ae89feaa05e6fd2b76f1c (patch) | |
| tree | 9a6f4d0fee8ce88471f221dc2fa8d566f014fa3c /generic/tclCompile.c | |
| parent | bf479a844d0137dcfaf2d3efdb9e24d7795af0ca (diff) | |
| download | tcl-c98b39e1adf6ea1c967ae89feaa05e6fd2b76f1c.zip tcl-c98b39e1adf6ea1c967ae89feaa05e6fd2b76f1c.tar.gz tcl-c98b39e1adf6ea1c967ae89feaa05e6fd2b76f1c.tar.bz2 | |
* generic/tclBasic.c: Reworked management of the interp
* generic/tclCompile.c: flag ERR_ALREADY_LOGGED, to reduce
* generic/tclExecute.c: its exposure. Still left several
* generic/tclNamesp.c: references that are just too nice
on performace to do away with. These changes also resolve
an inconsistency in the ::errorInfo values produced by
[namespace eval x error foo bar] and
[namespace eval x {error foo bar}].
* generic/tclExecute.c (TclCompEvalObj): Simplified
the TclCompEvalObj routine. Much housekeeping now reliably
happens elsewhere. [Patch 1031949]
FossilOrigin-Name: 0d93a42195a153e7fcbdfd2cf011237c3beb0b91
Diffstat (limited to 'generic/tclCompile.c')
| -rw-r--r-- | generic/tclCompile.c | 11 |
1 files changed, 1 insertions, 10 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index 03b62ca..8682429 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCompile.c,v 1.71 2004/07/15 17:42:12 msofer Exp $ + * RCS: @(#) $Id: tclCompile.c,v 1.72 2004/09/21 22:45:41 dgp Exp $ */ #include "tclInt.h" @@ -1807,15 +1807,6 @@ LogCompilationInfo(interp, script, command, length) Interp *iPtr = (Interp *) interp; Tcl_Obj *message; - if (iPtr->flags & ERR_ALREADY_LOGGED) { - /* - * Someone else has already logged error information for this - * command; we shouldn't add anything more. - */ - - return; - } - /* * Compute the line number where the error occurred. */ |