From: sof <unknown>
Date: Sun, 19 Sep 1999 19:26:57 +0000 (+0000)
Subject: [project @ 1999-09-19 19:26:57 by sof]
X-Git-Tag: Approximately_9120_patches~5763
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=72ed2d6ddf7122ac66f9f08713d5b385c3b91f8b;p=ghc-hetmet.git

[project @ 1999-09-19 19:26:57 by sof]
updates
---

diff --git a/ghc/lib/std/cbits/fileObject.h b/ghc/lib/std/cbits/fileObject.h
index 0da85ac..deca1b0 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 ff0e82d..0e3bb77 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);