diff options
| -rw-r--r-- | generic/tclClock.c | 2 | ||||
| -rw-r--r-- | generic/tclIO.c | 2 | ||||
| -rw-r--r-- | win/tclWinInt.h | 2 | ||||
| -rw-r--r-- | win/tclWinSock.c | 6 |
4 files changed, 6 insertions, 6 deletions
diff --git a/generic/tclClock.c b/generic/tclClock.c index c601521..d2ce146 100644 --- a/generic/tclClock.c +++ b/generic/tclClock.c @@ -1052,7 +1052,7 @@ ConvertUTCToLocalUsingC( time_t tock; struct tm *timeVal; /* Time after conversion */ int diff; /* Time zone diff local-Greenwich */ - char buffer[8]; /* Buffer for time zone name */ + char buffer[16]; /* Buffer for time zone name */ /* * Use 'localtime' to determine local year, month, day, time of day. diff --git a/generic/tclIO.c b/generic/tclIO.c index 99d7010..78a0f2d 100644 --- a/generic/tclIO.c +++ b/generic/tclIO.c @@ -200,7 +200,7 @@ static int FilterInputBytes(Channel *chanPtr, static int FlushChannel(Tcl_Interp *interp, Channel *chanPtr, int calledFromAsyncFlush); static int TclGetsObjBinary(Tcl_Channel chan, Tcl_Obj *objPtr); -static Tcl_Encoding GetBinaryEncoding(); +static Tcl_Encoding GetBinaryEncoding(void); static void FreeBinaryEncoding(ClientData clientData); static Tcl_HashTable * GetChannelTable(Tcl_Interp *interp); static int GetInput(Channel *chanPtr); diff --git a/win/tclWinInt.h b/win/tclWinInt.h index 07c1b9e..3b31d8a 100644 --- a/win/tclWinInt.h +++ b/win/tclWinInt.h @@ -47,7 +47,7 @@ MODULE_SCOPE TclWinProcs tclWinProcs; MODULE_SCOPE char TclWinDriveLetterForVolMountPoint( const WCHAR *mountPoint); -MODULE_SCOPE void TclWinEncodingsCleanup(); +MODULE_SCOPE void TclWinEncodingsCleanup(void); MODULE_SCOPE void TclWinInit(HINSTANCE hInst); MODULE_SCOPE TclFile TclWinMakeFile(HANDLE handle); MODULE_SCOPE Tcl_Channel TclWinOpenConsoleChannel(HANDLE handle, diff --git a/win/tclWinSock.c b/win/tclWinSock.c index 8b42b9b..8f61b08 100644 --- a/win/tclWinSock.c +++ b/win/tclWinSock.c @@ -363,12 +363,12 @@ InitializeHostName( unsigned int *lengthPtr, Tcl_Encoding *encodingPtr) { - WCHAR wbuf[MAX_COMPUTERNAME_LENGTH + 1]; - DWORD length = MAX_COMPUTERNAME_LENGTH + 1; + WCHAR wbuf[256]; + DWORD length = sizeof(wbuf)/sizeof(WCHAR); Tcl_DString ds; Tcl_DStringInit(&ds); - if (GetComputerNameW(wbuf, &length) != 0) { + if (GetComputerNameExW(ComputerNameDnsFullyQualified, wbuf, &length) != 0) { /* * Convert string from native to UTF then change to lowercase. */ |