diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2004-02-23 10:43:23 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2004-02-23 10:43:23 (GMT) |
| commit | 6842d4e8779d8ccdfd67170215cef172e9474e9e (patch) | |
| tree | ae547be750c6e5e12af1bdea4b42aef1911500fe /generic/regc_locale.c | |
| parent | 17485c720f551fd753dbaa2f744bc5ad46abb444 (diff) | |
| download | tcl-6842d4e8779d8ccdfd67170215cef172e9474e9e.zip tcl-6842d4e8779d8ccdfd67170215cef172e9474e9e.tar.gz tcl-6842d4e8779d8ccdfd67170215cef172e9474e9e.tar.bz2 | |
Fix memleak. [Bug 902562]
Diffstat (limited to 'generic/regc_locale.c')
| -rw-r--r-- | generic/regc_locale.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/regc_locale.c b/generic/regc_locale.c index f6a10ed..50f4792 100644 --- a/generic/regc_locale.c +++ b/generic/regc_locale.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: regc_locale.c,v 1.10 2002/07/29 12:27:51 dkf Exp $ + * RCS: @(#) $Id: regc_locale.c,v 1.11 2004/02/23 10:43:23 dkf Exp $ */ /* ASCII character-name table */ @@ -770,7 +770,7 @@ cclass(v, startp, endp, cases) break; } } - Tcl_DStringInit(&ds); + Tcl_DStringFree(&ds); if (index == -1) { ERR(REG_ECTYPE); return NULL; |