From: Simon Marlow <marlowsd@gmail.com>
Date: Sun, 22 Mar 2009 19:53:19 +0000 (+0000)
Subject: check return value of write (quiets gcc)
X-Git-Tag: 2009-06-25~447
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=1c45176f3b9be75b5c4744d9ef074430bf034e3f

check return value of write (quiets gcc)
---

diff --git a/rts/posix/Signals.c b/rts/posix/Signals.c
index 6d5ef43..c1ffb5d 100644
--- a/rts/posix/Signals.c
+++ b/rts/posix/Signals.c
@@ -102,20 +102,24 @@ setIOManagerPipe (int fd)
 void
 ioManagerWakeup (void)
 {
+    int r;
     // Wake up the IO Manager thread by sending a byte down its pipe
     if (io_manager_pipe >= 0) {
 	StgWord8 byte = (StgWord8)IO_MANAGER_WAKEUP;
-	write(io_manager_pipe, &byte, 1);
+	r = write(io_manager_pipe, &byte, 1);
+        if (r == -1) { sysErrorBelch("ioManagerWakeup: write"); }
     }
 }
 
 void
 ioManagerDie (void)
 {
+    int r;
     // Ask the IO Manager thread to exit
     if (io_manager_pipe >= 0) {
 	StgWord8 byte = (StgWord8)IO_MANAGER_DIE;
-	write(io_manager_pipe, &byte, 1);
+	r = write(io_manager_pipe, &byte, 1);
+        if (r == -1) { sysErrorBelch("ioManagerDie: write"); }
         close(io_manager_pipe);
         io_manager_pipe = -1;
     }