diff options
| author | sof <unknown> | 1999-01-23 17:44:40 +0000 |
|---|---|---|
| committer | sof <unknown> | 1999-01-23 17:44:40 +0000 |
| commit | 99b153d655bc142bec0fd5b6ace27642bb52a6b3 (patch) | |
| tree | 7542b1f60543a456307cf1196eacd52a61e41f41 /ghc/lib/std/cbits/openFile.c | |
| parent | 4d38d0728a1e6e899c23efd7a67060d45bf784cd (diff) | |
| download | haskell-99b153d655bc142bec0fd5b6ace27642bb52a6b3.tar.gz | |
[project @ 1999-01-23 17:44:40 by sof]
Removed workaround for bug - fixed (a while ago.)
Diffstat (limited to 'ghc/lib/std/cbits/openFile.c')
| -rw-r--r-- | ghc/lib/std/cbits/openFile.c | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/ghc/lib/std/cbits/openFile.c b/ghc/lib/std/cbits/openFile.c index 5c5848b2ea..2d5afe516b 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. |