summaryrefslogtreecommitdiffstats
path: root/unix/tclUnixChan.c
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2005-11-11 23:46:34 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2005-11-11 23:46:34 (GMT)
commit1a2498d774a65abfc4aa734a107ea67438c8b625 (patch)
treeb3ab0395489143eb6c7a5337a521d3e8cb505875 /unix/tclUnixChan.c
parent2dc0d2ce91e0ef65ce9cbc9c886b63f8e9c26a0c (diff)
downloadtcl-1a2498d774a65abfc4aa734a107ea67438c8b625.zip
tcl-1a2498d774a65abfc4aa734a107ea67438c8b625.tar.gz
tcl-1a2498d774a65abfc4aa734a107ea67438c8b625.tar.bz2
More bits of ANSIfying
Diffstat (limited to 'unix/tclUnixChan.c')
-rw-r--r--unix/tclUnixChan.c14
1 files changed, 7 insertions, 7 deletions
diff --git a/unix/tclUnixChan.c b/unix/tclUnixChan.c
index 111d9f3..364bd54 100644
--- a/unix/tclUnixChan.c
+++ b/unix/tclUnixChan.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclUnixChan.c,v 1.62 2005/10/21 17:05:43 dgp Exp $
+ * RCS: @(#) $Id: tclUnixChan.c,v 1.63 2005/11/11 23:46:34 dkf Exp $
*/
#include "tclInt.h" /* Internal definitions for Tcl. */
@@ -1801,11 +1801,11 @@ TclpOpenFileChannel(
fd = TclOSopen(native, mode, permissions);
#ifdef SUPPORTS_TTY
- ctl_tty = (strcmp (native, "/dev/tty") == 0);
+ ctl_tty = (strcmp(native, "/dev/tty") == 0);
#endif /* SUPPORTS_TTY */
if (fd < 0) {
- if (interp != (Tcl_Interp *) NULL) {
+ if (interp != NULL) {
Tcl_AppendResult(interp, "couldn't open \"",
TclGetString(pathPtr), "\": ", Tcl_PosixError(interp),
NULL);
@@ -2636,7 +2636,7 @@ CreateSocketAddress(
struct hostent *hostent; /* Host database entry */
struct in_addr addr; /* For 64/32 bit madness */
- (void) memset((VOID *) sockaddrPtr, '\0', sizeof(struct sockaddr_in));
+ (void) memset((void *) sockaddrPtr, '\0', sizeof(struct sockaddr_in));
sockaddrPtr->sin_family = AF_INET;
sockaddrPtr->sin_port = htons((unsigned short) (port & 0xFFFF));
if (host == NULL) {
@@ -2658,8 +2658,8 @@ CreateSocketAddress(
if (addr.s_addr == 0xFFFFFFFF) {
hostent = gethostbyname(native); /* INTL: Native. */
if (hostent != NULL) {
- memcpy((VOID *) &addr,
- (VOID *) hostent->h_addr_list[0],
+ memcpy((void *) &addr,
+ (void *) hostent->h_addr_list[0],
(size_t) hostent->h_length);
} else {
#ifdef EHOSTUNREACH
@@ -3188,7 +3188,7 @@ TclUnixWaitForFile(
if (fd >= FD_SETSIZE) {
Tcl_Panic("TclWaitForFile can't handle file id %d", fd);
}
- memset((VOID *) readyMasks, 0, 3*MASK_SIZE*sizeof(fd_mask));
+ memset((void *) readyMasks, 0, 3*MASK_SIZE*sizeof(fd_mask));
index = fd/(NBBY*sizeof(fd_mask));
bit = 1 << (fd%(NBBY*sizeof(fd_mask)));