Attachment "926500.patch" to
ticket [926500ffff]
added by
dgp
2006-11-23 02:40:22.
Index: generic/tcl.h
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tcl.h,v
retrieving revision 1.227
diff -u -r1.227 tcl.h
--- generic/tcl.h 15 Nov 2006 14:58:26 -0000 1.227
+++ generic/tcl.h 22 Nov 2006 19:38:08 -0000
@@ -559,15 +559,6 @@
* matches */
/*
- * The following flag is experimental and only intended for use by Expect. It
- * will probably go away in a later release.
- */
-
-#define TCL_REG_BOSONLY 002000 /* prepend \A to pattern so it only
- * matches at the beginning of the
- * string. */
-
-/*
* Flags values passed to Tcl_RegExpExecObj.
*/
Index: generic/tclInt.h
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclInt.h,v
retrieving revision 1.296
diff -u -r1.296 tclInt.h
--- generic/tclInt.h 15 Nov 2006 20:08:44 -0000 1.296
+++ generic/tclInt.h 22 Nov 2006 19:38:09 -0000
@@ -947,7 +947,18 @@
/*
*----------------------------------------------------------------
- * Data structures related to expressions. These are used only in tclExpr.c.
+ * Experimental flag value passed to Tcl_GetRegExpFromObj.
+ * Intended for use only by Expect.
+ * It will probably go away in a later release.
+ *----------------------------------------------------------------
+ */
+#define TCL_REG_BOSONLY 002000 /* prepend \A to pattern so it only
+ * matches at the beginning of the
+ * string. */
+
+/*
+ *----------------------------------------------------------------
+ * Data structures related to expressions.
*----------------------------------------------------------------
*/