diff options
Diffstat (limited to 'ghc/lib/std/cbits/openFile.c')
| -rw-r--r-- | ghc/lib/std/cbits/openFile.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ghc/lib/std/cbits/openFile.c b/ghc/lib/std/cbits/openFile.c index 66f7eab686..5ce3340806 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.18 2000/05/15 09:20:11 simonmar Exp $ + * $Id: openFile.c,v 1.19 2001/03/01 12:25:33 rrt Exp $ * * openFile Runtime Support */ @@ -79,7 +79,7 @@ openFile(StgByteArray file, StgInt how, StgInt binary) int oflags; int for_writing; int created = 0; - struct stat sb; + struct Stat sb; IOFileObject* fo; int flags = 0; @@ -136,7 +136,7 @@ openFile(StgByteArray file, StgInt how, StgInt binary) } else { /* If it is a dangling symlink, break off now, too. */ #ifndef mingw32_TARGET_OS - struct stat st; + struct Stat st; if ( lstat(file,&st) == 0) { ghc_errtype = ERR_NOSUCHTHING; ghc_errstr = "dangling symlink"; @@ -193,7 +193,7 @@ openFile(StgByteArray file, StgInt how, StgInt binary) /* Make sure that we aren't looking at a directory */ - while (fstat(fd, &sb) < 0) { + while (Fstat(fd, &sb) < 0) { /* highly unlikely */ if (errno != EINTR) { cvtErrno(); |