summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2006-11-22 19:43:19 (GMT)
committerdgp <dgp@users.sourceforge.net>2006-11-22 19:43:19 (GMT)
commit638fb36d3dabed70160ad077066411bf850c042e (patch)
treef32713f8e9f1d434ef2e700cdecf99ecfac30758
parenta23b22d1236f195c8aff34ed42355da55ca5e18a (diff)
downloadtcl-638fb36d3dabed70160ad077066411bf850c042e.zip
tcl-638fb36d3dabed70160ad077066411bf850c042e.tar.gz
tcl-638fb36d3dabed70160ad077066411bf850c042e.tar.bz2
* generic/tcl.h: Moved TCL_REG_BOSONLY #define from tcl.h to
* generic/tclInt.h: tclInt.h. Only know user is Expect, which already #include's tclInt.h. No need to continue greater exposure. [Bug 926500]
-rw-r--r--ChangeLog7
-rw-r--r--generic/tcl.h11
-rw-r--r--generic/tclInt.h15
3 files changed, 21 insertions, 12 deletions
diff --git a/ChangeLog b/ChangeLog
index 829f493..51a3ce2 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2006-11-12 Don Porter <dgp@users.sourceforge.net>
+
+ * generic/tcl.h: Moved TCL_REG_BOSONLY #define from tcl.h to
+ * generic/tclInt.h: tclInt.h. Only know user is Expect, which
+ already #include's tclInt.h. No need to continue greater exposure.
+ [Bug 926500]
+
2006-11-20 Donal K. Fellows <dkf@users.sf.net>
* generic/tclBasic.c (Tcl_CreateInterp, TclHideUnsafeCommands):
diff --git a/generic/tcl.h b/generic/tcl.h
index a888949..41e835e 100644
--- a/generic/tcl.h
+++ b/generic/tcl.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: tcl.h,v 1.227 2006/11/15 14:58:26 dgp Exp $
+ * RCS: @(#) $Id: tcl.h,v 1.228 2006/11/22 19:43:19 dgp Exp $
*/
#ifndef _TCL
@@ -559,15 +559,6 @@ typedef void (Tcl_ThreadCreateProc) _ANSI_ARGS_((ClientData clientData));
* 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.
*/
diff --git a/generic/tclInt.h b/generic/tclInt.h
index 88c6536..c65fd21 100644
--- a/generic/tclInt.h
+++ b/generic/tclInt.h
@@ -12,7 +12,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.296 2006/11/15 20:08:44 dgp Exp $
+ * RCS: @(#) $Id: tclInt.h,v 1.297 2006/11/22 19:43:19 dgp Exp $
*/
#ifndef _TCLINT
@@ -947,7 +947,18 @@ typedef void **TclHandle;
/*
*----------------------------------------------------------------
- * 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.
*----------------------------------------------------------------
*/