From 638fb36d3dabed70160ad077066411bf850c042e Mon Sep 17 00:00:00 2001 From: dgp Date: Wed, 22 Nov 2006 19:43:19 +0000 Subject: * 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] --- ChangeLog | 7 +++++++ generic/tcl.h | 11 +---------- generic/tclInt.h | 15 +++++++++++++-- 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 + + * 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 * 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. *---------------------------------------------------------------- */ -- cgit v0.12