summaryrefslogtreecommitdiffstats
path: root/generic/tclInt.h
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2007-11-12 22:12:05 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2007-11-12 22:12:05 (GMT)
commit5b4e070132a72fbdc6e847f3d867b0ac50b2b27e (patch)
tree03c22f508c951d244ef37a1f442a9ec42a8fadf3 /generic/tclInt.h
parentf1697bec1072b46875019441e44ac305288cd658 (diff)
downloadtcl-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.h36
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 */