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 73922c2206ecc897672c0b43c364d12f7c3613f3..a533ed7efedb0cef6962f1aea70baf64e0e99672 100644 (file)
--- 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
 \f
 /* "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 f72e0deaa6512cd60e3089003ad1446c2910b6fc..44638062f47f4556597d9ab807e652cc873031c4 100644 (file)
--- 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
 \f
 /* "Memorable" FASL versions -- ones where we modified something
    and want to remain backwards compatible.