diff options
| author | hobbs <hobbs> | 2005-02-17 18:34:36 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2005-02-17 18:34:36 (GMT) |
| commit | 98629c27d8c127efb34d3b0a51b2d314658a112e (patch) | |
| tree | 11a178e1e82df47ecce1e8d2591f06408e65edf8 /win/tclWinFCmd.c | |
| parent | b4ff3c2539d633872f55f9e907d4df15f2989c3c (diff) | |
| download | tcl-98629c27d8c127efb34d3b0a51b2d314658a112e.zip tcl-98629c27d8c127efb34d3b0a51b2d314658a112e.tar.gz tcl-98629c27d8c127efb34d3b0a51b2d314658a112e.tar.bz2 | |
* win/tclWinFCmd.c (TraverseWinTree): use wcslen on wchar, not
Tcl_UniCharLen.
Diffstat (limited to 'win/tclWinFCmd.c')
| -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 1821f8f..249b051 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.43 2004/10/06 16:37:18 dgp Exp $ + * RCS: @(#) $Id: tclWinFCmd.c,v 1.44 2005/02/17 18:34:36 hobbs Exp $ */ #include "tclWinInt.h" @@ -1331,7 +1331,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)) { @@ -1396,7 +1396,7 @@ TraverseWinTree( } result = TCL_ERROR; } - + return result; } |