diff options
author | hobbs <hobbs@noemail.net> | 2005-02-17 18:31:46 (GMT) |
---|---|---|
committer | hobbs <hobbs@noemail.net> | 2005-02-17 18:31:46 (GMT) |
commit | d09488750dca90bc7743069fa71af2c3142556f9 (patch) | |
tree | 151e9345cf5e1928f66f36a9649fa2c9fea16b98 /win | |
parent | 160159471edb591ba66959a95a23e032e0f0586e (diff) | |
download | tcl-d09488750dca90bc7743069fa71af2c3142556f9.zip tcl-d09488750dca90bc7743069fa71af2c3142556f9.tar.gz tcl-d09488750dca90bc7743069fa71af2c3142556f9.tar.bz2 |
* win/tclWinFCmd.c (TraverseWinTree): use wcslen on wchar, not
Tcl_UniCharLen.
FossilOrigin-Name: 492d51196c705bc1037f0cecdfa9010814a9c7d0
Diffstat (limited to 'win')
-rw-r--r-- | win/tclWinFCmd.c | 6 |
1 files changed, 3 insertions, 3 deletions
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; } |