Attachment "singleWord.patch" to
ticket [458361ffff]
added by
msofer
2001-09-11 04:49:21.
Index: generic/tclBasic.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclBasic.c,v
retrieving revision 1.35
diff -u -r1.35 tclBasic.c
--- generic/tclBasic.c 2001/09/01 00:51:31 1.35
+++ generic/tclBasic.c 2001/09/10 21:41:56
@@ -2801,6 +2801,19 @@
return result;
}
+ /*
+ * Hack to avoid repeated recompilation of single-word scripts
+ * [Bug 458361]
+ */
+
+ if (objPtr->typePtr == &tclCmdNameType) {
+ Tcl_Obj *objvPtr = objPtr;
+ result = Tcl_EvalObjv(interp, 1, &objvPtr, flags);
+ Tcl_DecrRefCount(objPtr);
+ return result;
+ }
+
+
/*
* Prevent the object from being deleted as a side effect of evaling it.
*/