diff options
| author | dgp <dgp@users.sourceforge.net> | 2017-04-12 13:36:47 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2017-04-12 13:36:47 (GMT) |
| commit | 6c3fce3382f7ac57f7d06b696f4061f42e010e12 (patch) | |
| tree | 1a3a88e3800b4e20589af252610944895d51e33c /generic/tclRegexp.c | |
| parent | bc2940927e48190e91f3dd7a90274411eecbccc9 (diff) | |
| parent | 62b2b9bf4592ef78dc71f0bbdbdbaafea3a58713 (diff) | |
| download | tcl-6c3fce3382f7ac57f7d06b696f4061f42e010e12.zip tcl-6c3fce3382f7ac57f7d06b696f4061f42e010e12.tar.gz tcl-6c3fce3382f7ac57f7d06b696f4061f42e010e12.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic/tclRegexp.c')
| -rw-r--r-- | generic/tclRegexp.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclRegexp.c b/generic/tclRegexp.c index 7596fa0..a01ace3 100644 --- a/generic/tclRegexp.c +++ b/generic/tclRegexp.c @@ -65,7 +65,7 @@ #define NUM_REGEXPS 30 -typedef struct ThreadSpecificData { +typedef struct { int initialized; /* Set to 1 when the module is initialized. */ char *patterns[NUM_REGEXPS];/* Strings corresponding to compiled regular * expression patterns. NULL means that this @@ -678,7 +678,7 @@ TclRegAbout( resultObj = Tcl_NewObj(); Tcl_ListObjAppendElement(NULL, resultObj, - Tcl_NewIntObj((int) regexpPtr->re.re_nsub)); + Tcl_NewWideIntObj((Tcl_WideInt) regexpPtr->re.re_nsub)); /* * Now append a list of all the bit-flags set for the RE. |