[project @ 1999-01-23 17:44:40 by sof]

Removed workaround for bug - fixed (a while ago.)

diff --git a/ghc/lib/std/cbits/openFile.c b/ghc/lib/std/cbits/openFile.c
index 5c5848b..2d5afe5 100644 (file)
--- 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.