From 72ed2d6ddf7122ac66f9f08713d5b385c3b91f8b Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Sun, 19 Sep 1999 19:26:57 +0000
Subject: [PATCH] [project @ 1999-09-19 19:26:57 by sof] updates
---
ghc/lib/std/cbits/fileObject.h | 1 +
ghc/lib/std/cbits/stgio.h | 14 ++++++++------
2 files changed, 9 insertions(+), 6 deletions(-)
diff --git a/ghc/lib/std/cbits/fileObject.h b/ghc/lib/std/cbits/fileObject.h
index 0da85ac2309d..deca1b0cc5a3 100644
--- a/ghc/lib/std/cbits/fileObject.h
+++ b/ghc/lib/std/cbits/fileObject.h
@@ -53,6 +53,7 @@ typedef struct _IOFileObject {
* we need to use separate r/w calls.
*/
#define FILEOBJ_WINSOCK 1024
+#define FILEOBJ_BINARY 2048
#define FILEOBJ_IS_EOF(x) ((x)->flags & FILEOBJ_EOF)
#define FILEOBJ_SET_EOF(x) ((x)->flags |= FILEOBJ_EOF)
diff --git a/ghc/lib/std/cbits/stgio.h b/ghc/lib/std/cbits/stgio.h
index ff0e82d823f0..0e3bb7770c70 100644
--- a/ghc/lib/std/cbits/stgio.h
+++ b/ghc/lib/std/cbits/stgio.h
@@ -1,7 +1,7 @@
/*
* (c) The GRASP/AQUA Project, Glasgow University, 1994-1998
*
- * $Id: stgio.h,v 1.11 1999/09/12 14:26:32 sof Exp $
+ * $Id: stgio.h,v 1.12 1999/09/19 19:26:57 sof Exp $
*
* Helper code for GHC's IO subsystem.
*/
@@ -104,7 +104,7 @@ StgInt fill_up_line_buffer(IOFileObject*);
/* filePosn.c */
StgInt getFilePosn (StgForeignPtr);
-StgInt setFilePosn (StgForeignPtr, StgInt);
+StgInt setFilePosn (StgForeignPtr, StgInt, StgByteArray);
/* filePutc.c */
StgInt filePutc (StgForeignPtr, StgChar);
@@ -154,9 +154,9 @@ StgInt getLock (StgInt, StgInt);
StgInt inputReady (StgForeignPtr, StgInt);
/* openFile.c */
-IOFileObject* openFile (StgByteArray, StgInt, StgInt, StgInt);
+IOFileObject* openFile (StgByteArray, StgInt, StgInt);
IOFileObject* openFd (StgInt, StgInt, StgInt);
-IOFileObject* openStdFile (StgInt, StgInt, StgInt);
+IOFileObject* openStdFile (StgInt, StgInt);
/* progargs.c */
StgAddr get_prog_argv(void);
@@ -185,6 +185,9 @@ StgInt seekFile (StgForeignPtr, StgInt, StgInt, StgByteArray);
StgInt seekFile_int64 (StgForeignPtr, StgInt, StgInt64);
StgInt seekFileP (StgForeignPtr);
+/* setBinaryMode.c */
+StgInt setBinaryMode__ (StgForeignPtr, StgInt);
+
/* setBuffering.c */
StgInt setBuffering (StgForeignPtr, StgInt);
StgInt const_BUFSIZ (void);
@@ -225,8 +228,7 @@ StgAddr toUTCTime (StgInt, StgByteArray, StgByteArray);
StgInt prim_toUTCTime ( StgInt64,StgByteArray );
/* toClockSec.c */
-StgAddr toClockSec (StgInt, StgInt, StgInt, StgInt, StgInt, StgInt, StgInt, StgByteArray);
-StgInt prim_toClockSec(StgInt, StgInt, StgInt, StgInt, StgInt, StgInt, StgInt, StgByteArray);
+StgInt toClockSec (StgInt, StgInt, StgInt, StgInt, StgInt, StgInt, StgInt, StgByteArray);
/* writeError.c */
void writeErrString__ (StgAddr, StgByteArray, StgInt);
--
GitLab