From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 25 Apr 1988 15:43:08 +0000 (+0000)
Subject: Change conditionalization of `__GNU__' to `__GNUC__'.  Fix bug in
X-Git-Tag: 20090517-FFI~12808
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e98213ae806107ace55320b83e4a1aa8f0754155;p=mit-scheme.git

Change conditionalization of `__GNU__' to `__GNUC__'.  Fix bug in
`flush_input_buffer()' on USG systems: argument is `int', not `int *'.
Change file I/O to unbuffered; tty I/O remains buffered using stdio.
Opening fasl output file now deletes existing file first.
---

diff --git a/v7/src/microcode/fasl.h b/v7/src/microcode/fasl.h
index 73922c220..a533ed7ef 100644
--- a/v7/src/microcode/fasl.h
+++ b/v7/src/microcode/fasl.h
@@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/fasl.h,v 9.27 1988/02/10 04:21:32 jinx Rel $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/fasl.h,v 9.28 1988/04/25 15:43:08 cph Exp $
 
    Contains information relating to the format of FASL files.
    The machine/opsys information is contained in config.h
@@ -90,8 +90,8 @@ extern Boolean Open_Dump_File(), Close_Dump_File();
 		   (((Version) << (ADDRESS_LENGTH / 2)) |	\
 		    (Processor_Type)))
 
-#define WRITE_FLAG		"w"
-#define OPEN_FLAG		"r"
+#define WRITE_FLAG		1
+#define OPEN_FLAG		0
 
 /* "Memorable" FASL versions -- ones where we modified something
    and want to remain backwards compatible.
diff --git a/v8/src/microcode/fasl.h b/v8/src/microcode/fasl.h
index f72e0deaa..44638062f 100644
--- a/v8/src/microcode/fasl.h
+++ b/v8/src/microcode/fasl.h
@@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/fasl.h,v 9.27 1988/02/10 04:21:32 jinx Rel $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/fasl.h,v 9.28 1988/04/25 15:43:08 cph Exp $
 
    Contains information relating to the format of FASL files.
    The machine/opsys information is contained in config.h
@@ -90,8 +90,8 @@ extern Boolean Open_Dump_File(), Close_Dump_File();
 		   (((Version) << (ADDRESS_LENGTH / 2)) |	\
 		    (Processor_Type)))
 
-#define WRITE_FLAG		"w"
-#define OPEN_FLAG		"r"
+#define WRITE_FLAG		1
+#define OPEN_FLAG		0
 
 /* "Memorable" FASL versions -- ones where we modified something
    and want to remain backwards compatible.