summaryrefslogtreecommitdiffstats
path: root/win
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2024-03-20 13:49:02 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2024-03-20 13:49:02 (GMT)
commitae22ee577e1296427b927dda75f49560f6256c60 (patch)
tree41badbabc8140d865699b5f639cd4c53edbe3851 /win
parenta72c1f969cba896ca61001393f0f7b74fb52e194 (diff)
parenta9b046b5bd7c666a406a17cbb0d86a2842091bac (diff)
downloadtcl-ae22ee577e1296427b927dda75f49560f6256c60.zip
tcl-ae22ee577e1296427b927dda75f49560f6256c60.tar.gz
tcl-ae22ee577e1296427b927dda75f49560f6256c60.tar.bz2
Few more spacing/formatting tweaks
Diffstat (limited to 'win')
-rw-r--r--win/tclWinChan.c10
-rw-r--r--win/tclWinConsole.c2
-rw-r--r--win/tclWinDde.c18
-rw-r--r--win/tclWinFile.c38
-rw-r--r--win/tclWinInit.c4
-rw-r--r--win/tclWinLoad.c14
-rw-r--r--win/tclWinNotify.c2
-rw-r--r--win/tclWinPipe.c16
-rw-r--r--win/tclWinReg.c6
-rw-r--r--win/tclWinSerial.c22
-rw-r--r--win/tclWinSock.c2
-rw-r--r--win/tclWinTest.c8
12 files changed, 70 insertions, 72 deletions
diff --git a/win/tclWinChan.c b/win/tclWinChan.c
index afd5de1..73b61ab 100644
--- a/win/tclWinChan.c
+++ b/win/tclWinChan.c
@@ -781,7 +781,7 @@ FileGetHandleProc(
return TCL_ERROR;
}
- *handlePtr = (void *) infoPtr->handle;
+ *handlePtr = (void *)infoPtr->handle;
return TCL_OK;
}
@@ -826,7 +826,7 @@ StoreElementInDict(
* duplicate keys.
*/
- Tcl_Obj *nameObj = Tcl_NewStringObj(name, -1);
+ Tcl_Obj *nameObj = Tcl_NewStringObj(name, TCL_INDEX_NONE);
Tcl_DictObjPut(NULL, dictObj, nameObj, valueObj);
}
@@ -910,9 +910,9 @@ StatOpenFile(
* Anything else and we definitely couldn't have got here anyway.
*/
if (attr & FILE_ATTRIBUTE_DIRECTORY) {
- STORE_ELEM("type", Tcl_NewStringObj("directory", -1));
+ STORE_ELEM("type", Tcl_NewStringObj("directory", TCL_INDEX_NONE));
} else {
- STORE_ELEM("type", Tcl_NewStringObj("file", -1));
+ STORE_ELEM("type", Tcl_NewStringObj("file", TCL_INDEX_NONE));
}
#undef STORE_ELEM
@@ -1194,7 +1194,7 @@ TclpOpenFileChannel(
"couldn't open \"%s\": bad file type",
TclGetString(pathPtr)));
Tcl_SetErrorCode(interp, "TCL", "VALUE", "CHANNEL", "BAD_TYPE",
- (void *)NULL);
+ (char *)NULL);
break;
}
diff --git a/win/tclWinConsole.c b/win/tclWinConsole.c
index c77d97f..4ee8033 100644
--- a/win/tclWinConsole.c
+++ b/win/tclWinConsole.c
@@ -2303,7 +2303,7 @@ ConsoleSetOptionProc(
"bad mode \"%s\" for -inputmode: must be"
" normal, password, raw, or reset", value));
Tcl_SetErrorCode(interp, "TCL", "OPERATION", "FCONFIGURE",
- "VALUE", (void *)NULL);
+ "VALUE", (char *)NULL);
}
return TCL_ERROR;
}
diff --git a/win/tclWinDde.c b/win/tclWinDde.c
index d883bac..f36407d 100644
--- a/win/tclWinDde.c
+++ b/win/tclWinDde.c
@@ -578,7 +578,7 @@ ExecuteRemoteObject(
Tcl_SetObjResult(riPtr->interp, Tcl_NewStringObj("permission denied: "
"a handler procedure must be defined for use in a safe "
"interp", -1));
- Tcl_SetErrorCode(riPtr->interp, "TCL", "DDE", "SECURITY_CHECK", (void *)NULL);
+ Tcl_SetErrorCode(riPtr->interp, "TCL", "DDE", "SECURITY_CHECK", (char *)NULL);
result = TCL_ERROR;
}
@@ -1050,7 +1050,7 @@ MakeDdeConnection(
Tcl_SetObjResult(interp, Tcl_ObjPrintf(
"no registered server named \"%s\"", Tcl_DStringValue(&dString)));
Tcl_DStringFree(&dString);
- Tcl_SetErrorCode(interp, "TCL", "DDE", "NO_SERVER", (void *)NULL);
+ Tcl_SetErrorCode(interp, "TCL", "DDE", "NO_SERVER", (char *)NULL);
}
return TCL_ERROR;
}
@@ -1281,7 +1281,7 @@ SetDdeError(
}
Tcl_SetObjResult(interp, Tcl_NewStringObj(errorMessage, -1));
- Tcl_SetErrorCode(interp, "TCL", "DDE", errorCode, (void *)NULL);
+ Tcl_SetErrorCode(interp, "TCL", "DDE", errorCode, (char *)NULL);
}
/*
@@ -1568,7 +1568,7 @@ DdeObjCmd(
Tcl_SetObjResult(interp,
Tcl_NewStringObj("cannot execute null data", -1));
Tcl_DStringFree(&dsBuf);
- Tcl_SetErrorCode(interp, "TCL", "DDE", "NULL", (void *)NULL);
+ Tcl_SetErrorCode(interp, "TCL", "DDE", "NULL", (char *)NULL);
result = TCL_ERROR;
break;
}
@@ -1618,7 +1618,7 @@ DdeObjCmd(
if (length == 0) {
Tcl_SetObjResult(interp,
Tcl_NewStringObj("cannot request value of null data", -1));
- Tcl_SetErrorCode(interp, "TCL", "DDE", "NULL", (void *)NULL);
+ Tcl_SetErrorCode(interp, "TCL", "DDE", "NULL", (char *)NULL);
result = TCL_ERROR;
goto cleanup;
}
@@ -1684,7 +1684,7 @@ DdeObjCmd(
if (length == 0) {
Tcl_SetObjResult(interp,
Tcl_NewStringObj("cannot have a null item", -1));
- Tcl_SetErrorCode(interp, "TCL", "DDE", "NULL", (void *)NULL);
+ Tcl_SetErrorCode(interp, "TCL", "DDE", "NULL", (char *)NULL);
result = TCL_ERROR;
goto cleanup;
}
@@ -1738,7 +1738,7 @@ DdeObjCmd(
if (serviceName == NULL) {
Tcl_SetObjResult(interp,
Tcl_NewStringObj("invalid service name \"\"", -1));
- Tcl_SetErrorCode(interp, "TCL", "DDE", "NO_SERVER", (void *)NULL);
+ Tcl_SetErrorCode(interp, "TCL", "DDE", "NO_SERVER", (char *)NULL);
result = TCL_ERROR;
goto cleanup;
}
@@ -1787,7 +1787,7 @@ DdeObjCmd(
"permission denied: a handler procedure must be"
" defined for use in a safe interp", -1));
Tcl_SetErrorCode(interp, "TCL", "DDE", "SECURITY_CHECK",
- (void *)NULL);
+ (char *)NULL);
result = TCL_ERROR;
}
@@ -1852,7 +1852,7 @@ DdeObjCmd(
invalidServerResponse:
Tcl_SetObjResult(interp,
Tcl_NewStringObj("invalid data returned from server", -1));
- Tcl_SetErrorCode(interp, "TCL", "DDE", "BAD_RESPONSE", (void *)NULL);
+ Tcl_SetErrorCode(interp, "TCL", "DDE", "BAD_RESPONSE", (char *)NULL);
result = TCL_ERROR;
goto cleanup;
}
diff --git a/win/tclWinFile.c b/win/tclWinFile.c
index d572628..17f4898 100644
--- a/win/tclWinFile.c
+++ b/win/tclWinFile.c
@@ -1535,12 +1535,12 @@ TclpGetUserHome(
result[i] = '/';
}
}
- NetApiBufferFree((void *) uiPtr);
+ NetApiBufferFree((void *)uiPtr);
}
Tcl_DStringFree(&ds);
}
if (wDomain != NULL) {
- NetApiBufferFree((void *) wDomain);
+ NetApiBufferFree((void *)wDomain);
}
return result;
@@ -2750,27 +2750,25 @@ TclpObjNormalizePath(
* Convert the entire known path to long form.
*/
- if (1) {
- WCHAR wpath[MAX_PATH];
- const WCHAR *nativePath;
- DWORD wpathlen;
+ WCHAR wpath[MAX_PATH];
+ const WCHAR *nativePath;
+ DWORD wpathlen;
- Tcl_DStringInit(&ds);
- nativePath =
- Tcl_UtfToWCharDString(path, lastValidPathEnd - path, &ds);
- wpathlen = GetLongPathNameProc(nativePath,
- (WCHAR *) wpath, MAX_PATH);
- /*
- * We have to make the drive letter uppercase.
- */
+ Tcl_DStringInit(&ds);
+ nativePath =
+ Tcl_UtfToWCharDString(path, lastValidPathEnd - path, &ds);
+ wpathlen = GetLongPathNameProc(nativePath,
+ (WCHAR *) wpath, MAX_PATH);
+ /*
+ * We have to make the drive letter uppercase.
+ */
- if (wpath[0] >= 'a') {
- wpath[0] -= ('a' - 'A');
- }
- Tcl_DStringAppend(&dsNorm, (const char *) wpath,
- wpathlen * sizeof(WCHAR));
- Tcl_DStringFree(&ds);
+ if (wpath[0] >= 'a') {
+ wpath[0] -= ('a' - 'A');
}
+ Tcl_DStringAppend(&dsNorm, (const char *) wpath,
+ wpathlen * sizeof(WCHAR));
+ Tcl_DStringFree(&ds);
#endif /* TclNORM_LONG_PATH */
}
diff --git a/win/tclWinInit.c b/win/tclWinInit.c
index 4ed5c6d..4234ceb 100644
--- a/win/tclWinInit.c
+++ b/win/tclWinInit.c
@@ -575,7 +575,7 @@ TclpFindVariable(
* entries in environ (for unsuccessful
* searches). */
{
- Tcl_Size i, length, result = -1;
+ Tcl_Size i, length, result = TCL_INDEX_NONE;
const WCHAR *env;
const char *p1, *p2;
char *envUpper, *nameUpper;
@@ -599,7 +599,7 @@ TclpFindVariable(
*/
Tcl_DStringInit(&envString);
- envUpper = Tcl_WCharToUtfDString(env, -1, &envString);
+ envUpper = Tcl_WCharToUtfDString(env, TCL_INDEX_NONE, &envString);
p1 = strchr(envUpper, '=');
if (p1 == NULL) {
continue;
diff --git a/win/tclWinLoad.c b/win/tclWinLoad.c
index 62590ef..1cc7ae1 100644
--- a/win/tclWinLoad.c
+++ b/win/tclWinLoad.c
@@ -133,32 +133,32 @@ TclpDlopen(
if (interp) {
switch (lastError) {
case ERROR_MOD_NOT_FOUND:
- Tcl_SetErrorCode(interp, "WIN_LOAD", "MOD_NOT_FOUND", (void *)NULL);
+ Tcl_SetErrorCode(interp, "WIN_LOAD", "MOD_NOT_FOUND", (char *)NULL);
goto notFoundMsg;
case ERROR_DLL_NOT_FOUND:
- Tcl_SetErrorCode(interp, "WIN_LOAD", "DLL_NOT_FOUND", (void *)NULL);
+ Tcl_SetErrorCode(interp, "WIN_LOAD", "DLL_NOT_FOUND", (char *)NULL);
notFoundMsg:
Tcl_AppendToObj(errMsg, "this library or a dependent library"
" could not be found in library path", TCL_INDEX_NONE);
break;
case ERROR_PROC_NOT_FOUND:
- Tcl_SetErrorCode(interp, "WIN_LOAD", "PROC_NOT_FOUND", (void *)NULL);
+ Tcl_SetErrorCode(interp, "WIN_LOAD", "PROC_NOT_FOUND", (char *)NULL);
Tcl_AppendToObj(errMsg, "A function specified in the import"
" table could not be resolved by the system. Windows"
" is not telling which one, I'm sorry.", TCL_INDEX_NONE);
break;
case ERROR_INVALID_DLL:
- Tcl_SetErrorCode(interp, "WIN_LOAD", "INVALID_DLL", (void *)NULL);
+ Tcl_SetErrorCode(interp, "WIN_LOAD", "INVALID_DLL", (char *)NULL);
Tcl_AppendToObj(errMsg, "this library or a dependent library"
" is damaged", TCL_INDEX_NONE);
break;
case ERROR_DLL_INIT_FAILED:
- Tcl_SetErrorCode(interp, "WIN_LOAD", "DLL_INIT_FAILED", (void *)NULL);
+ Tcl_SetErrorCode(interp, "WIN_LOAD", "DLL_INIT_FAILED", (char *)NULL);
Tcl_AppendToObj(errMsg, "the library initialization"
" routine failed", TCL_INDEX_NONE);
break;
case ERROR_BAD_EXE_FORMAT:
- Tcl_SetErrorCode(interp, "WIN_LOAD", "BAD_EXE_FORMAT", (void *)NULL);
+ Tcl_SetErrorCode(interp, "WIN_LOAD", "BAD_EXE_FORMAT", (char *)NULL);
Tcl_AppendToObj(errMsg, "Bad exe format. Possibly a 32/64-bit mismatch.", TCL_INDEX_NONE);
break;
default:
@@ -227,7 +227,7 @@ FindSymbol(
if (proc == NULL && interp != NULL) {
Tcl_SetObjResult(interp, Tcl_ObjPrintf(
"cannot find symbol \"%s\"", symbol));
- Tcl_SetErrorCode(interp, "TCL", "LOOKUP", "LOAD_SYMBOL", symbol, (void *)NULL);
+ Tcl_SetErrorCode(interp, "TCL", "LOOKUP", "LOAD_SYMBOL", symbol, (char *)NULL);
}
return proc;
}
diff --git a/win/tclWinNotify.c b/win/tclWinNotify.c
index 758276e..2c93a41 100644
--- a/win/tclWinNotify.c
+++ b/win/tclWinNotify.c
@@ -425,7 +425,7 @@ NotifierProc(
*
* TclpNotifierData --
*
- * This function returns a ClientData pointer to be associated
+ * This function returns a void pointer to be associated
* with a Tcl_AsyncHandler.
*
* Results:
diff --git a/win/tclWinPipe.c b/win/tclWinPipe.c
index 16efd6a..d587dda 100644
--- a/win/tclWinPipe.c
+++ b/win/tclWinPipe.c
@@ -1334,7 +1334,7 @@ ApplicationType(
}
header.e_magic = 0;
- ReadFile(hFile, (void *) &header, sizeof(header), &read, NULL);
+ ReadFile(hFile, (void *)&header, sizeof(header), &read, NULL);
if (header.e_magic != IMAGE_DOS_SIGNATURE) {
/*
* Doesn't have the magic number for relocatable executables. If
@@ -1369,7 +1369,7 @@ ApplicationType(
buf[0] = '\0';
SetFilePointer(hFile, header.e_lfanew, NULL, FILE_BEGIN);
- ReadFile(hFile, (void *) buf, 2, &read, NULL);
+ ReadFile(hFile, (void *)buf, 2, &read, NULL);
CloseHandle(hFile);
if ((buf[0] == 'N') && (buf[1] == 'E')) {
@@ -1880,10 +1880,10 @@ Tcl_CreatePipe(
return TCL_ERROR;
}
- *rchan = Tcl_MakeFileChannel((void *) readHandle, TCL_READABLE);
+ *rchan = Tcl_MakeFileChannel((void *)readHandle, TCL_READABLE);
Tcl_RegisterChannel(interp, *rchan);
- *wchan = Tcl_MakeFileChannel((void *) writeHandle, TCL_WRITABLE);
+ *wchan = Tcl_MakeFileChannel((void *)writeHandle, TCL_WRITABLE);
Tcl_RegisterChannel(interp, *wchan);
return TCL_OK;
@@ -2120,7 +2120,7 @@ PipeClose2Proc(
if (pipePtr->errorFile) {
WinFile *filePtr = (WinFile *) pipePtr->errorFile;
- errChan = Tcl_MakeFileChannel((void *) filePtr->handle,
+ errChan = Tcl_MakeFileChannel((void *)filePtr->handle,
TCL_READABLE);
Tcl_Free(filePtr);
Tcl_SetChannelOption(NULL, errChan, "-profile", "replace");
@@ -2515,12 +2515,12 @@ PipeGetHandleProc(
if (direction == TCL_READABLE && infoPtr->readFile) {
filePtr = (WinFile*) infoPtr->readFile;
- *handlePtr = (void *) filePtr->handle;
+ *handlePtr = (void *)filePtr->handle;
return TCL_OK;
}
if (direction == TCL_WRITABLE && infoPtr->writeFile) {
filePtr = (WinFile*) infoPtr->writeFile;
- *handlePtr = (void *) filePtr->handle;
+ *handlePtr = (void *)filePtr->handle;
return TCL_OK;
}
return TCL_ERROR;
@@ -3266,7 +3266,7 @@ TclpOpenTemporaryFile(
TclDecrRefCount(tmpObj);
}
- return Tcl_MakeFileChannel((void *) handle,
+ return Tcl_MakeFileChannel((void *)handle,
TCL_READABLE|TCL_WRITABLE);
gotError:
diff --git a/win/tclWinReg.c b/win/tclWinReg.c
index a0b4e90..68e22cb 100644
--- a/win/tclWinReg.c
+++ b/win/tclWinReg.c
@@ -466,7 +466,7 @@ DeleteKey(
if (*keyName == '\0') {
Tcl_SetObjResult(interp,
Tcl_NewStringObj("bad key: cannot delete root keys", -1));
- Tcl_SetErrorCode(interp, "WIN_REG", "DEL_ROOT_KEY", (void *)NULL);
+ Tcl_SetErrorCode(interp, "WIN_REG", "DEL_ROOT_KEY", (char *)NULL);
Tcl_Free(buffer);
return TCL_ERROR;
}
@@ -1146,7 +1146,7 @@ ParseKeyName(
if (!rootName) {
Tcl_SetObjResult(interp, Tcl_ObjPrintf(
"bad key \"%s\": must start with a valid root", name));
- Tcl_SetErrorCode(interp, "WIN_REG", "NO_ROOT_KEY", (void *)NULL);
+ Tcl_SetErrorCode(interp, "WIN_REG", "NO_ROOT_KEY", (char *)NULL);
return TCL_ERROR;
}
@@ -1538,7 +1538,7 @@ AppendSystemError(
}
snprintf(id, sizeof(id), "%ld", error);
- Tcl_SetErrorCode(interp, "WINDOWS", id, msg, (void *)NULL);
+ Tcl_SetErrorCode(interp, "WINDOWS", id, msg, (char *)NULL);
Tcl_AppendToObj(resultPtr, msg, length);
Tcl_SetObjResult(interp, resultPtr);
diff --git a/win/tclWinSerial.c b/win/tclWinSerial.c
index 14f36fd..c18837e 100644
--- a/win/tclWinSerial.c
+++ b/win/tclWinSerial.c
@@ -1255,7 +1255,7 @@ SerialGetHandleProc(
{
SerialInfo *infoPtr = (SerialInfo *) instanceData;
- *handlePtr = (void *) infoPtr->handle;
+ *handlePtr = (void *)infoPtr->handle;
return TCL_OK;
}
@@ -1655,7 +1655,7 @@ SerialSetOptionProc(
"bad mode \"%s\" for -closemode: must be"
" default, discard, or drain", value));
Tcl_SetErrorCode(interp, "TCL", "OPERATION", "FCONFIGURE",
- "VALUE", (void *)NULL);
+ "VALUE", (char *)NULL);
}
return TCL_ERROR;
}
@@ -1680,7 +1680,7 @@ SerialSetOptionProc(
Tcl_SetObjResult(interp, Tcl_ObjPrintf(
"bad value \"%s\" for -mode: should be baud,parity,data,stop",
value));
- Tcl_SetErrorCode(interp, "TCL", "VALUE", "SERIALMODE", (void *)NULL);
+ Tcl_SetErrorCode(interp, "TCL", "VALUE", "SERIALMODE", (char *)NULL);
}
return TCL_ERROR;
}
@@ -1744,7 +1744,7 @@ SerialSetOptionProc(
Tcl_SetObjResult(interp, Tcl_ObjPrintf(
"bad value \"%s\" for -handshake: must be one of"
" xonxoff, rtscts, dtrdsr or none", value));
- Tcl_SetErrorCode(interp, "TCL", "VALUE", "HANDSHAKE", (void *)NULL);
+ Tcl_SetErrorCode(interp, "TCL", "VALUE", "HANDSHAKE", (char *)NULL);
}
return TCL_ERROR;
}
@@ -1773,7 +1773,7 @@ SerialSetOptionProc(
Tcl_SetObjResult(interp, Tcl_NewStringObj(
"bad value for -xchar: should be a list of"
" two elements with each a single 8-bit character", TCL_INDEX_NONE));
- Tcl_SetErrorCode(interp, "TCL", "VALUE", "XCHAR", (void *)NULL);
+ Tcl_SetErrorCode(interp, "TCL", "VALUE", "XCHAR", (char *)NULL);
}
Tcl_Free((void *)argv);
return TCL_ERROR;
@@ -1830,7 +1830,7 @@ SerialSetOptionProc(
Tcl_SetObjResult(interp, Tcl_ObjPrintf(
"bad value \"%s\" for -ttycontrol: should be "
"a list of signal,value pairs", value));
- Tcl_SetErrorCode(interp, "TCL", "VALUE", "TTYCONTROL", (void *)NULL);
+ Tcl_SetErrorCode(interp, "TCL", "VALUE", "TTYCONTROL", (char *)NULL);
}
Tcl_Free((void *)argv);
return TCL_ERROR;
@@ -1848,7 +1848,7 @@ SerialSetOptionProc(
Tcl_SetObjResult(interp, Tcl_NewStringObj(
"can't set DTR signal", TCL_INDEX_NONE));
Tcl_SetErrorCode(interp, "TCL", "OPERATION",
- "FCONFIGURE", "TTY_SIGNAL", (void *)NULL);
+ "FCONFIGURE", "TTY_SIGNAL", (char *)NULL);
}
res = TCL_ERROR;
break;
@@ -1860,7 +1860,7 @@ SerialSetOptionProc(
Tcl_SetObjResult(interp, Tcl_NewStringObj(
"can't set RTS signal", TCL_INDEX_NONE));
Tcl_SetErrorCode(interp, "TCL", "OPERATION",
- "FCONFIGURE", "TTY_SIGNAL", (void *)NULL);
+ "FCONFIGURE", "TTY_SIGNAL", (char *)NULL);
}
res = TCL_ERROR;
break;
@@ -1872,7 +1872,7 @@ SerialSetOptionProc(
Tcl_SetObjResult(interp, Tcl_NewStringObj(
"can't set BREAK signal", TCL_INDEX_NONE));
Tcl_SetErrorCode(interp, "TCL", "OPERATION",
- "FCONFIGURE", "TTY_SIGNAL", (void *)NULL);
+ "FCONFIGURE", "TTY_SIGNAL", (char *)NULL);
}
res = TCL_ERROR;
break;
@@ -1883,7 +1883,7 @@ SerialSetOptionProc(
"bad signal name \"%s\" for -ttycontrol: must be"
" DTR, RTS or BREAK", argv[i]));
Tcl_SetErrorCode(interp, "TCL", "VALUE", "TTY_SIGNAL",
- (void *)NULL);
+ (char *)NULL);
}
res = TCL_ERROR;
break;
@@ -1923,7 +1923,7 @@ SerialSetOptionProc(
Tcl_SetObjResult(interp, Tcl_ObjPrintf(
"bad value \"%s\" for -sysbuffer: should be "
"a list of one or two integers > 0", value));
- Tcl_SetErrorCode(interp, "TCL", "VALUE", "SYS_BUFFER", (void *)NULL);
+ Tcl_SetErrorCode(interp, "TCL", "VALUE", "SYS_BUFFER", (char *)NULL);
}
return TCL_ERROR;
}
diff --git a/win/tclWinSock.c b/win/tclWinSock.c
index 2d083bb..c51d69d 100644
--- a/win/tclWinSock.c
+++ b/win/tclWinSock.c
@@ -1730,7 +1730,7 @@ TcpConnect(
* Set kernel space buffering
*/
- TclSockMinimumBuffers((void *) statePtr->sockets->fd,
+ TclSockMinimumBuffers((void *)statePtr->sockets->fd,
TCP_BUFFER_SIZE);
/*
diff --git a/win/tclWinTest.c b/win/tclWinTest.c
index 1a6a3db..753fe12 100644
--- a/win/tclWinTest.c
+++ b/win/tclWinTest.c
@@ -152,7 +152,7 @@ TesteventloopCmd(
framePtr = oldFramePtr;
} else {
Tcl_AppendResult(interp, "bad option \"", Tcl_GetString(objv[1]),
- "\": must be done or wait", (void *)NULL);
+ "\": must be done or wait", (char *)NULL);
return TCL_ERROR;
}
return TCL_OK;
@@ -206,11 +206,11 @@ TestvolumetypeCmd(
if (found == 0) {
Tcl_AppendResult(interp, "could not get volume type for \"",
- (path?path:""), "\"", (void *)NULL);
+ (path?path:""), "\"", (char *)NULL);
Tcl_WinConvertError(GetLastError());
return TCL_ERROR;
}
- Tcl_AppendResult(interp, volType, (void *)NULL);
+ Tcl_AppendResult(interp, volType, (char *)NULL);
return TCL_OK;
#undef VOL_BUF_SIZE
}
@@ -657,7 +657,7 @@ TestchmodCmd(
}
if (TestplatformChmod(translated, mode) != 0) {
Tcl_AppendResult(interp, translated, ": ", Tcl_PosixError(interp),
- (void *)NULL);
+ (char *)NULL);
return TCL_ERROR;
}
Tcl_DStringFree(&buffer);