From 98629c27d8c127efb34d3b0a51b2d314658a112e Mon Sep 17 00:00:00 2001 From: hobbs Date: Thu, 17 Feb 2005 18:34:36 +0000 Subject: * win/tclWinFCmd.c (TraverseWinTree): use wcslen on wchar, not Tcl_UniCharLen. --- ChangeLog | 11 ++++++++--- win/tclWinFCmd.c | 6 +++--- 2 files changed, 11 insertions(+), 6 deletions(-) diff --git a/ChangeLog b/ChangeLog index 27cf29a..c5e3b6e 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,6 +1,11 @@ +2005-02-17 Jeff Hobbs + + * win/tclWinFCmd.c (TraverseWinTree): use wcslen on wchar, not + Tcl_UniCharLen. + 2005-02-16 Miguel Sofer - * /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-11 Jeff Hobbs @@ -62,8 +67,8 @@ 2005-02-01 Don Porter - * generic/tclExecute.c (TclCompEvalObj): Removed stray statement - left behind in prior code reorganization. + * generic/tclExecute.c (TclCompEvalObj): Removed stray statement + left behind in prior code reorganization. 2005-01-31 Don Porter 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; } -- cgit v0.12