From e98213ae806107ace55320b83e4a1aa8f0754155 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 25 Apr 1988 15:43:08 +0000 Subject: [PATCH] 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. --- v7/src/microcode/fasl.h | 6 +++--- v8/src/microcode/fasl.h | 6 +++--- 2 files changed, 6 insertions(+), 6 deletions(-) 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. -- 2.25.1