diff options
| author | dgp <dgp@users.sourceforge.net> | 2001-10-16 05:10:34 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2001-10-16 05:10:34 (GMT) |
| commit | 15c387a97b11f816847a8836a2f60e091b7ff7ff (patch) | |
| tree | 3bc613c0232ee4ef5707b1a11feecf8e83636bd6 /generic/tclRegexp.c | |
| parent | 4833f0f4df984e373b6500a7a707a63f36f2fc1d (diff) | |
| download | tcl-15c387a97b11f816847a8836a2f60e091b7ff7ff.zip tcl-15c387a97b11f816847a8836a2f60e091b7ff7ff.tar.gz tcl-15c387a97b11f816847a8836a2f60e091b7ff7ff.tar.bz2 | |
* Added test to demonstrate memory corruption problems. [Bug 219393].
Diffstat (limited to 'generic/tclRegexp.c')
| -rw-r--r-- | generic/tclRegexp.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclRegexp.c b/generic/tclRegexp.c index 2a32675..34e5f6f 100644 --- a/generic/tclRegexp.c +++ b/generic/tclRegexp.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclRegexp.c,v 1.11 2001/05/21 22:32:01 hobbs Exp $ + * RCS: @(#) $Id: tclRegexp.c,v 1.12 2001/10/16 05:10:34 dgp Exp $ */ #include "tclInt.h" @@ -243,9 +243,9 @@ Tcl_RegExpRange(re, index, startPtr, endPtr) int index; /* 0 means give the range of the entire * match, > 0 means give the range of * a matching subrange. */ - char **startPtr; /* Store address of first character in + CONST char **startPtr; /* Store address of first character in * (sub-) range here. */ - char **endPtr; /* Store address of character just after last + CONST char **endPtr; /* Store address of character just after last * in (sub-) range here. */ { TclRegexp *regexpPtr = (TclRegexp *) re; |