diff options
| author | hobbs <hobbs> | 2005-02-17 18:31:47 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2005-02-17 18:31:47 (GMT) |
| commit | a5b53a8dd972652d3f80cd6041f2c702bbc9b49b (patch) | |
| tree | 151e9345cf5e1928f66f36a9649fa2c9fea16b98 | |
| parent | a277081417ca7ce77a114fabd3b2f658afb3005b (diff) | |
| download | tcl-a5b53a8dd972652d3f80cd6041f2c702bbc9b49b.zip tcl-a5b53a8dd972652d3f80cd6041f2c702bbc9b49b.tar.gz tcl-a5b53a8dd972652d3f80cd6041f2c702bbc9b49b.tar.bz2 | |
* win/tclWinFCmd.c (TraverseWinTree): use wcslen on wchar, not
Tcl_UniCharLen.
| -rw-r--r-- | ChangeLog | 11 | ||||
| -rw-r--r-- | win/tclWinFCmd.c | 6 |
2 files changed, 11 insertions, 6 deletions
@@ -1,6 +1,11 @@ +2005-02-17 Jeff Hobbs <jeffh@ActiveState.com> + + * win/tclWinFCmd.c (TraverseWinTree): use wcslen on wchar, not + Tcl_UniCharLen. + 2005-02-16 Miguel Sofer <msofer@users.sf.net> - * /doc/variable.n: fix for [Bug 1124160], variables are detected + * doc/variable.n: fix for [Bug 1124160], variables are detected by [info vars] but not by [info locals]. 2005-02-10 Jeff Hobbs <jeffh@ActiveState.com> @@ -62,8 +67,8 @@ 2005-01-25 Don Porter <dgp@users.sourceforge.net> - * library/auto.tcl: Updated [auto_reset] to clear auto-loaded - procs in namespaces other than :: [Bug 1101670]. + * library/auto.tcl: Updated [auto_reset] to clear auto-loaded + procs in namespaces other than :: [Bug 1101670]. 2005-01-25 Daniel Steffen <das@users.sourceforge.net> diff --git a/win/tclWinFCmd.c b/win/tclWinFCmd.c index e8033f9..29094c4 100644 --- a/win/tclWinFCmd.c +++ b/win/tclWinFCmd.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: tclWinFCmd.c,v 1.35.2.2 2004/06/21 22:07:32 mdejong Exp $ + * RCS: @(#) $Id: tclWinFCmd.c,v 1.35.2.3 2005/02/17 18:31:54 hobbs Exp $ */ #include "tclWinInt.h" @@ -1291,7 +1291,7 @@ TraverseWinTree( } } nativeName = (TCHAR *) data.w.cFileName; - len = Tcl_UniCharLen(data.w.cFileName) * sizeof(WCHAR); + len = wcslen(data.w.cFileName) * sizeof(WCHAR); } else { if ((strcmp(data.a.cFileName, ".") == 0) || (strcmp(data.a.cFileName, "..") == 0)) { @@ -1356,7 +1356,7 @@ TraverseWinTree( } result = TCL_ERROR; } - + return result; } |