From 2eb315d4954763b0e5bbe8ed0626f822c122e812 Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Tue, 12 Jan 1999 10:53:02 +0000
Subject: [PATCH] [project @ 1999-01-12 10:53:02 by sewardj] Removed extraneous
test following 'if ( fo->flags & FILEOBJ_NONBLOCKING_IO )'
---
ghc/lib/std/cbits/filePutc.c | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/ghc/lib/std/cbits/filePutc.c b/ghc/lib/std/cbits/filePutc.c
index 6a86dc40f878..6c0e999c9f30 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.3 1998/12/02 13:27:29 simonm Exp $
+ * $Id: filePutc.c,v 1.4 1999/01/12 10:53:02 sewardj Exp $
*
* hPutChar Runtime Support
*/
@@ -70,7 +70,7 @@ StgChar c;
return rc;
}
- if ( fo->flags & FILEOBJ_NONBLOCKING_IO && inputReady(ptr,0) != 1 )
+ if ( fo->flags & FILEOBJ_NONBLOCKING_IO )
return FILEOBJ_BLOCKED_WRITE;
/* Unbuffered, write the character directly. */
--
GitLab