diff options
| author | rrt <unknown> | 2001-03-01 12:25:33 +0000 |
|---|---|---|
| committer | rrt <unknown> | 2001-03-01 12:25:33 +0000 |
| commit | ae2fa137637637d21e3ca46b25b9325a77e77641 (patch) | |
| tree | da5bad2d07aad10a7420b39fd0cec4944395777d /ghc/lib/std/cbits/setBuffering.c | |
| parent | f0c9e5607b8c45773d6c099645e3228af2694d81 (diff) | |
| download | haskell-ae2fa137637637d21e3ca46b25b9325a77e77641.tar.gz | |
[project @ 2001-03-01 12:25:32 by rrt]
Apply stat fix for mingw. It's ugly, it's implausible, but it seems to work.
Unlike Cygwin...(missing no. 3).
Diffstat (limited to 'ghc/lib/std/cbits/setBuffering.c')
| -rw-r--r-- | ghc/lib/std/cbits/setBuffering.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ghc/lib/std/cbits/setBuffering.c b/ghc/lib/std/cbits/setBuffering.c index 4a8c5bf67e..6bc943a4ac 100644 --- a/ghc/lib/std/cbits/setBuffering.c +++ b/ghc/lib/std/cbits/setBuffering.c @@ -1,7 +1,7 @@ /* * (c) The GRASP/AQUA Project, Glasgow University, 1994-1998 * - * $Id: setBuffering.c,v 1.10 2001/02/19 16:10:23 rrt Exp $ + * $Id: setBuffering.c,v 1.11 2001/03/01 12:25:33 rrt Exp $ * * hSetBuffering Runtime Support */ @@ -38,7 +38,7 @@ setBuffering(StgForeignPtr ptr, StgInt size) #ifndef mingw32_TARGET_OS struct termios tio; #endif - struct stat sb; + struct Stat sb; /* First off, flush old buffer.. */ if ( (fo->flags & FILEOBJ_WRITE) ) { @@ -100,7 +100,7 @@ setBuffering(StgForeignPtr ptr, StgInt size) case SB_BB: #ifdef HAVE_ST_BLKSIZE - while (fstat(fo->fd, &sb) < 0) { + while (Fstat(fo->fd, &sb) < 0) { /* not very likely.. */ if ( errno != EINTR ) { cvtErrno(); |