diff options
| author | msofer <msofer@noemail.net> | 2007-11-12 22:12:04 (GMT) |
|---|---|---|
| committer | msofer <msofer@noemail.net> | 2007-11-12 22:12:04 (GMT) |
| commit | 672449f39dcf29847f495f6d9601fbf75141000c (patch) | |
| tree | 03c22f508c951d244ef37a1f442a9ec42a8fadf3 /generic/tclStubLib.c | |
| parent | cbfe96b1ae090810d47a773fc09793872ff9948b (diff) | |
| download | tcl-672449f39dcf29847f495f6d9601fbf75141000c.zip tcl-672449f39dcf29847f495f6d9601fbf75141000c.tar.gz tcl-672449f39dcf29847f495f6d9601fbf75141000c.tar.bz2 | |
RE: [Patch 1830184] TclResetResult
THIS PATCH WAS REVERTED: initial (mis)measurements overstated the
perfomance wins, which turn out to be tiny. Not worth the
complication.
FossilOrigin-Name: 5ff0531ab624809e194e643878b266b786c50050
Diffstat (limited to 'generic/tclStubLib.c')
| -rw-r--r-- | generic/tclStubLib.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/generic/tclStubLib.c b/generic/tclStubLib.c index 0ee0d4a..1d65bc8 100644 --- a/generic/tclStubLib.c +++ b/generic/tclStubLib.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: tclStubLib.c,v 1.19 2007/11/12 03:38:14 msofer Exp $ + * RCS: @(#) $Id: tclStubLib.c,v 1.20 2007/11/12 22:12:07 msofer Exp $ */ /* @@ -50,7 +50,6 @@ HasStubSupport( interp->result = "This interpreter does not support stubs-enabled extensions."; interp->freeProc = TCL_STATIC; - ((Interp *)interp)->flags |= INTERP_RESULT_UNCLEAN; return NULL; } |