diff options
| author | hobbs <hobbs> | 2000-05-08 22:06:24 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2000-05-08 22:06:24 (GMT) |
| commit | 542a01ddf6b642a4fd17d55ee11a190fe852ea7b (patch) | |
| tree | 7c1e5e5a5417d3b72e512ae8a88f264d0c5f9c2a /generic/tclUtf.c | |
| parent | e9772997bffaf8c03335012651a479151207163d (diff) | |
| download | tcl-542a01ddf6b642a4fd17d55ee11a190fe852ea7b.zip tcl-542a01ddf6b642a4fd17d55ee11a190fe852ea7b.tar.gz tcl-542a01ddf6b642a4fd17d55ee11a190fe852ea7b.tar.bz2 | |
removed unreferenced var
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 */ |