diff options
author | stanton <stanton@noemail.net> | 1999-05-13 01:50:31 (GMT) |
---|---|---|
committer | stanton <stanton@noemail.net> | 1999-05-13 01:50:31 (GMT) |
commit | 7235b0a4aa192d05300926ac16b14be5a016104d (patch) | |
tree | 2ed4e906d3b8d7624d3d173ae41938257d15e24f /generic/tclRegexp.h | |
parent | 915d85ed4b6e000558094996ad477257634ce45c (diff) | |
download | tcl-7235b0a4aa192d05300926ac16b14be5a016104d.zip tcl-7235b0a4aa192d05300926ac16b14be5a016104d.tar.gz tcl-7235b0a4aa192d05300926ac16b14be5a016104d.tar.bz2 |
* tests/regexp.test:
* generic/tclInt.h:
* generic/tclBasic.c:
* generic/tclRegexp.h:
* generic/tclRegexp.c: Replaced the per-interpreter regexp cache
with a per-thread cache. Changed the Regexp object to take
advantage of this extra cache. Added a reference count to the
TclRegexp type so regexps can be shared by multiple objects.
Removed the per-interp regexp cache from the interpreter. Now
regexps can be used with no need for an interpreter. [Bug: 1063]
FossilOrigin-Name: 2e8f1dd6ab40a0a67e71dfa9b45e818ef94267f2
Diffstat (limited to 'generic/tclRegexp.h')
-rw-r--r-- | generic/tclRegexp.h | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/tclRegexp.h b/generic/tclRegexp.h index 7be13c1..948a72d 100644 --- a/generic/tclRegexp.h +++ b/generic/tclRegexp.h @@ -33,7 +33,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.h,v 1.5 1999/04/16 00:46:52 stanton Exp $ + * RCS: @(#) $Id: tclRegexp.h,v 1.6 1999/05/13 01:50:33 stanton Exp $ */ #ifndef _TCLREGEXP @@ -64,6 +64,8 @@ typedef struct TclRegexp { * representation of the last string matched * with this regexp to indicate the location * of subexpressions. */ + int refCount; /* Count of number of references to this + * compiled regexp. } TclRegexp; /* |