diff options
| author | dgp <dgp@users.sourceforge.net> | 2004-06-17 20:17:48 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2004-06-17 20:17:48 (GMT) |
| commit | 257f4ada5c10c8baf4c123f22daba65b64dd0db1 (patch) | |
| tree | 17791d011922a87a9c6f8046c410664c20ab7296 /win/tclWinInit.c | |
| parent | f75c649ae374b3859584280866dcff801f5835f3 (diff) | |
| download | tcl-257f4ada5c10c8baf4c123f22daba65b64dd0db1.zip tcl-257f4ada5c10c8baf4c123f22daba65b64dd0db1.tar.gz tcl-257f4ada5c10c8baf4c123f22daba65b64dd0db1.tar.bz2 | |
silence compiler warning
Diffstat (limited to 'win/tclWinInit.c')
| -rw-r--r-- | win/tclWinInit.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/win/tclWinInit.c b/win/tclWinInit.c index 824a8eb..2eceea9 100644 --- a/win/tclWinInit.c +++ b/win/tclWinInit.c @@ -7,7 +7,7 @@ * Copyright (c) 1998-1999 by Scriptics Corporation. * All rights reserved. * - * RCS: @(#) $Id: tclWinInit.c,v 1.51 2004/06/17 19:41:45 dgp Exp $ + * RCS: @(#) $Id: tclWinInit.c,v 1.52 2004/06/17 20:17:48 dgp Exp $ */ #include "tclWinInt.h" @@ -848,7 +848,7 @@ TclpSetVariables(interp) if (TclGetEnv("USERNAME", &ds) == NULL) { if ( GetUserName( szUserName, &dwUserNameLen ) != 0 ) { - Tcl_WinTCharToUtf( szUserName, dwUserNameLen, &ds ); + Tcl_WinTCharToUtf( szUserName, (int)dwUserNameLen, &ds ); } } Tcl_SetVar2(interp, "tcl_platform", "user", Tcl_DStringValue(&ds), |