Attachment "singleWord.patch2" to
ticket [458361ffff]
added by
msofer
2001-09-11 19:06:18.
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/11 12:02:28
@@ -2801,6 +2801,21 @@
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);
+ if (result != TCL_ERROR) {
+ Tcl_DecrRefCount(objPtr);
+ return result;
+ }
+ }
+
+
/*
* Prevent the object from being deleted as a side effect of evaling it.
*/