diff options
| -rw-r--r-- | ChangeLog | 7 | ||||
| -rw-r--r-- | generic/tcl.h | 11 | ||||
| -rw-r--r-- | generic/tclInt.h | 15 |
3 files changed, 21 insertions, 12 deletions
@@ -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. *---------------------------------------------------------------- */ |