diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2007-11-12 22:12:05 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2007-11-12 22:12:05 (GMT) |
| commit | 5b4e070132a72fbdc6e847f3d867b0ac50b2b27e (patch) | |
| tree | 03c22f508c951d244ef37a1f442a9ec42a8fadf3 /generic/tclInt.h | |
| parent | f1697bec1072b46875019441e44ac305288cd658 (diff) | |
| download | tcl-5b4e070132a72fbdc6e847f3d867b0ac50b2b27e.zip tcl-5b4e070132a72fbdc6e847f3d867b0ac50b2b27e.tar.gz tcl-5b4e070132a72fbdc6e847f3d867b0ac50b2b27e.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.
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 36 |
1 files changed, 1 insertions, 35 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 57033fa..2874a74 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -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: tclInt.h,v 1.343 2007/11/12 03:38:13 msofer Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.344 2007/11/12 22:12:07 msofer Exp $ */ #ifndef _TCLINT @@ -1973,39 +1973,6 @@ typedef struct InterpList { #define INTERP_TRACE_IN_PROGRESS 0x200 #define INTERP_ALTERNATE_WRONG_ARGS 0x400 #define ERR_LEGACY_COPY 0x800 -#define INTERP_RESULT_UNCLEAN 0x1000 - -/* - * The following macro resets the interp's obj result and returns 1 if a call - * to the full Tcl_ResetResult is needed. TclResetResult macro uses it. - */ - -#define ResetObjResultM(iPtr) \ - { \ - register Tcl_Obj *objResultPtr = (iPtr)->objResultPtr; \ - \ - if (Tcl_IsShared(objResultPtr)) {\ - TclDecrRefCount(objResultPtr);\ - TclNewObj(objResultPtr);\ - Tcl_IncrRefCount(objResultPtr);\ - (iPtr)->objResultPtr = objResultPtr; \ - } else if (objResultPtr->bytes != tclEmptyStringRep) { \ - if (objResultPtr->bytes != NULL) {\ - ckfree((char *) objResultPtr->bytes); \ - }\ - objResultPtr->bytes = tclEmptyStringRep;\ - objResultPtr->length = 0;\ - TclFreeIntRep(objResultPtr);\ - objResultPtr->typePtr = NULL;\ - }\ - } - -#define TclResetResult(iPtr) \ - {\ - ResetObjResultM((Interp *)(iPtr)); \ - if (((Interp *)(iPtr))->flags & INTERP_RESULT_UNCLEAN) \ - TclCleanResult((Interp *)(iPtr)); \ - }\ /* * Maximum number of levels of nesting permitted in Tcl commands (used to @@ -2449,7 +2416,6 @@ MODULE_SCOPE int TclChanCaughtErrorBypass(Tcl_Interp *interp, Tcl_Channel chan); MODULE_SCOPE void TclCleanupLiteralTable(Tcl_Interp *interp, LiteralTable *tablePtr); -MODULE_SCOPE void TclCleanResult(Interp *iPtr); MODULE_SCOPE int TclDoubleDigits(char *buf, double value, int *signum); MODULE_SCOPE void TclDeleteNamespaceVars(Namespace *nsPtr); /* TIP #280 - Modified token based evulation, with line information */ |