projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2001-03-01 12:25:32 by rrt]
[ghc-hetmet.git]
/
ghc
/
lib
/
std
/
cbits
/
getBufferMode.c
diff --git
a/ghc/lib/std/cbits/getBufferMode.c
b/ghc/lib/std/cbits/getBufferMode.c
index
8e3c09b
..
c802909
100644
(file)
--- a/
ghc/lib/std/cbits/getBufferMode.c
+++ b/
ghc/lib/std/cbits/getBufferMode.c
@@
-1,7
+1,7
@@
/*
* (c) The GRASP/AQUA Project, Glasgow University, 1994-1998
*
/*
* (c) The GRASP/AQUA Project, Glasgow University, 1994-1998
*
- * $Id: getBufferMode.c,v 1.3 1998/12/02 13:27:35 simonm Exp $
+ * $Id: getBufferMode.c,v 1.4 2001/03/01 12:25:33 rrt Exp $
*
* hIs...Buffered Runtime Support
*/
*
* hIs...Buffered Runtime Support
*/
@@
-32,11
+32,11
@@
getBufferMode(ptr)
StgForeignPtr ptr;
{
IOFileObject* fo = (IOFileObject*)ptr;
StgForeignPtr ptr;
{
IOFileObject* fo = (IOFileObject*)ptr;
- struct stat sb;
+ struct Stat sb;
int fd = fo->fd;
/* Try to find out the file type */
int fd = fo->fd;
/* Try to find out the file type */
- while (fstat(fd, &sb) < 0) {
+ while (Fstat(fd, &sb) < 0) {
/* highly unlikely */
if (errno != EINTR) {
cvtErrno();
/* highly unlikely */
if (errno != EINTR) {
cvtErrno();