diff options
author | hobbs <hobbs@noemail.net> | 2000-05-08 22:06:23 (GMT) |
---|---|---|
committer | hobbs <hobbs@noemail.net> | 2000-05-08 22:06:23 (GMT) |
commit | 6e7c5a93defd69a16436a2610f9b6703a2f3f59c (patch) | |
tree | 7c1e5e5a5417d3b72e512ae8a88f264d0c5f9c2a /generic/tclUtf.c | |
parent | 01486c58e41128217a9115b4293cb14f2afebd11 (diff) | |
download | tcl-6e7c5a93defd69a16436a2610f9b6703a2f3f59c.zip tcl-6e7c5a93defd69a16436a2610f9b6703a2f3f59c.tar.gz tcl-6e7c5a93defd69a16436a2610f9b6703a2f3f59c.tar.bz2 |
removed unreferenced var
FossilOrigin-Name: 5482dfcb56aca267dc17d3d86457c52cba7a37df
Diffstat (limited to 'generic/tclUtf.c')
-rw-r--r-- | generic/tclUtf.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/generic/tclUtf.c b/generic/tclUtf.c index b62a26c..a2f8e6e 100644 --- a/generic/tclUtf.c +++ b/generic/tclUtf.c @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclUtf.c,v 1.12 2000/05/08 21:59:58 hobbs Exp $ + * RCS: @(#) $Id: tclUtf.c,v 1.13 2000/05/08 22:06:24 hobbs Exp $ */ #include "tclInt.h" @@ -1676,7 +1676,6 @@ Tcl_UniCharCaseMatch(string, pattern, nocase) */ if (p == '*') { - int pSpecial; /* * Skip all successive *'s in the pattern */ |