diff options
| author | simonmar <unknown> | 1999-12-08 15:47:08 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 1999-12-08 15:47:08 +0000 |
| commit | 4ee0f622625f8e7cc76488e99762a323c46df952 (patch) | |
| tree | 3aea37e6a21b358e8cbadffab6f3594b64e81f3a /ghc/lib/std/cbits/filePutc.c | |
| parent | 9c370d695ac7b7b7108440b028b017459ae5ef02 (diff) | |
| download | haskell-4ee0f622625f8e7cc76488e99762a323c46df952.tar.gz | |
[project @ 1999-12-08 15:47:06 by simonmar]
misc ansification and -Wall cleanup
Diffstat (limited to 'ghc/lib/std/cbits/filePutc.c')
| -rw-r--r-- | ghc/lib/std/cbits/filePutc.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/ghc/lib/std/cbits/filePutc.c b/ghc/lib/std/cbits/filePutc.c index a95cbf1bea..f9bacd60be 100644 --- a/ghc/lib/std/cbits/filePutc.c +++ b/ghc/lib/std/cbits/filePutc.c @@ -1,7 +1,7 @@ /* * (c) The GRASP/AQUA Project, Glasgow University, 1994-1998 * - * $Id: filePutc.c,v 1.10 1999/11/26 16:25:56 simonmar Exp $ + * $Id: filePutc.c,v 1.11 1999/12/08 15:47:07 simonmar Exp $ * * hPutChar Runtime Support */ @@ -76,19 +76,19 @@ filePutc(StgForeignPtr ptr, StgChar c) } /* Unbuffered, write the character directly. */ - while (rc = ( + while ((rc = ( #ifdef USE_WINSOCK fo->flags & FILEOBJ_WINSOCK ? send(fo->fd, &c, 1, 0) : - write(fo->fd, &c, 1)) <= 0) { + write(fo->fd, &c, 1))) <= 0) { #else - write(fo->fd, &c, 1)) <= 0) { + write(fo->fd, &c, 1))) <= 0) { #endif if ( rc == -1 && errno == EAGAIN) { errno = 0; return FILEOBJ_BLOCKED_WRITE; - } else if (rc == 0 || rc == -1 && errno != EINTR) { + } else if (rc == 0 || (rc == -1 && errno != EINTR)) { cvtErrno(); stdErrno(); return -1; |