From 99b153d655bc142bec0fd5b6ace27642bb52a6b3 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Sat, 23 Jan 1999 17:44:40 +0000
Subject: [PATCH] [project @ 1999-01-23 17:44:40 by sof] Removed workaround for
bug - fixed (a while ago.)
---
ghc/lib/std/cbits/openFile.c | 7 +------
1 file changed, 1 insertion(+), 6 deletions(-)
diff --git a/ghc/lib/std/cbits/openFile.c b/ghc/lib/std/cbits/openFile.c
index 5c5848b2eaba..2d5afe516b53 100644
--- a/ghc/lib/std/cbits/openFile.c
+++ b/ghc/lib/std/cbits/openFile.c
@@ -1,7 +1,7 @@
/*
* (c) The GRASP/AQUA Project, Glasgow University, 1994-1998
*
- * $Id: openFile.c,v 1.4 1999/01/07 15:48:40 simonm Exp $
+ * $Id: openFile.c,v 1.5 1999/01/23 17:44:40 sof Exp $
*
* openFile Runtime Support
*/
@@ -68,11 +68,6 @@ StgInt flags;
struct stat sb;
IOFileObject* fo;
-#ifdef __CONCURRENT_HASKELL__
-#warning FixMe: Ignoring bogus bit 7 in openFiles 2nd argument
- how = how & 0x7f;
-#endif
-
/*
* Since we aren't supposed to succeed when we're opening for writing and
* there's another writer, we can't just do an open() with O_WRONLY.
--
GitLab