diff options
| author | ericm <ericm> | 2000-06-13 20:30:23 (GMT) |
|---|---|---|
| committer | ericm <ericm> | 2000-06-13 20:30:23 (GMT) |
| commit | 757d7e36f57c08d84ed7c80206dc6adf8bfdca57 (patch) | |
| tree | b14abd2689333bd6dba627cc2ba74f5fffd63503 /win/tclWinInit.c | |
| parent | 7076d5005853e3fb3651487d8a6a7f0ca6585ba6 (diff) | |
| download | tcl-757d7e36f57c08d84ed7c80206dc6adf8bfdca57.zip tcl-757d7e36f57c08d84ed7c80206dc6adf8bfdca57.tar.gz tcl-757d7e36f57c08d84ed7c80206dc6adf8bfdca57.tar.bz2 | |
* win/tclWinDde.c:
* win/tclWinInit.c:
* win/tclWinNotify.c:
* win/tclWinPipe.c:
* win/tclWinReg.c:
* win/tclWinThrd.c: Applied patch from [Bug 5794].
Diffstat (limited to 'win/tclWinInit.c')
| -rw-r--r-- | win/tclWinInit.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/win/tclWinInit.c b/win/tclWinInit.c index dbf44ea..7576763 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.22 2000/03/31 08:52:31 hobbs Exp $ + * RCS: @(#) $Id: tclWinInit.c,v 1.23 2000/06/13 20:30:23 ericm Exp $ */ #include "tclWinInt.h" @@ -88,7 +88,6 @@ static DWORD mainThreadId; static void AppendEnvironment(Tcl_Obj *listPtr, CONST char *lib); static void AppendDllPath(Tcl_Obj *listPtr, HMODULE hModule, CONST char *lib); -static void AppendRegistry(Tcl_Obj *listPtr, CONST char *lib); static int ToUtf(CONST WCHAR *wSrc, char *dst); /* @@ -622,7 +621,7 @@ TclpSetVariables(interp) Tcl_DStringSetLength(&ds, 100); if (TclGetEnv("USERNAME", &ds) == NULL) { - if (GetUserName(Tcl_DStringValue(&ds), &Tcl_DStringLength(&ds)) == 0) { + if (GetUserName(Tcl_DStringValue(&ds), (LPDWORD) &Tcl_DStringLength(&ds)) == 0) { Tcl_DStringSetLength(&ds, 0); } } |