diff options
| author | dgp <dgp@users.sourceforge.net> | 2006-11-22 19:43:19 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2006-11-22 19:43:19 (GMT) |
| commit | 638fb36d3dabed70160ad077066411bf850c042e (patch) | |
| tree | f32713f8e9f1d434ef2e700cdecf99ecfac30758 /generic | |
| parent | a23b22d1236f195c8aff34ed42355da55ca5e18a (diff) | |
| download | tcl-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]
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tcl.h | 11 | ||||
| -rw-r--r-- | generic/tclInt.h | 15 |
2 files changed, 14 insertions, 12 deletions
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. *---------------------------------------------------------------- */ |