From 0f6ceb07d899c12e50ab5f80c1646d72762255ef Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 21 Apr 1987 15:02:02 +0000 Subject: [PATCH] Change some error messages to go out to stderr. --- v7/src/microcode/interp.c | 14 ++++++++------ v8/src/microcode/interp.c | 14 ++++++++------ 2 files changed, 16 insertions(+), 12 deletions(-) diff --git a/v7/src/microcode/interp.c b/v7/src/microcode/interp.c index ec85344d7..f72416df7 100644 --- a/v7/src/microcode/interp.c +++ b/v7/src/microcode/interp.c @@ -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/interp.c,v 9.23 1987/04/16 02:24:28 jinx Exp $ +/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/interp.c,v 9.24 1987/04/21 15:02:02 cph Exp $ * * This file contains the heart of the Scheme Scode * interpreter @@ -1527,11 +1527,13 @@ return_from_compiled_code: case RC_NORMAL_GC_DONE: End_GC_Hook(); if (GC_Check(GC_Space_Needed)) - { printf("\nGC just ended. The free pointer is at 0x%x, the top of this heap\n", - Free); - printf("is at 0x%x, and we are trying to cons 0x%x objects. Dead!\n", - MemTop, GC_Space_Needed); - Microcode_Termination(TERM_EXIT); + { fprintf(stderr, + "\nGC just ended. The free pointer is at 0x%x, the top of this heap\n", + Free); + fprintf(stderr, + "is at 0x%x, and we are trying to cons 0x%x objects. Dead!\n", + MemTop, GC_Space_Needed); + Microcode_Termination(TERM_NO_SPACE); } GC_Space_Needed = 0; Val = Fetch_Expression(); diff --git a/v8/src/microcode/interp.c b/v8/src/microcode/interp.c index c8cf5f2cf..808857373 100644 --- a/v8/src/microcode/interp.c +++ b/v8/src/microcode/interp.c @@ -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/interp.c,v 9.23 1987/04/16 02:24:28 jinx Exp $ +/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/interp.c,v 9.24 1987/04/21 15:02:02 cph Exp $ * * This file contains the heart of the Scheme Scode * interpreter @@ -1527,11 +1527,13 @@ return_from_compiled_code: case RC_NORMAL_GC_DONE: End_GC_Hook(); if (GC_Check(GC_Space_Needed)) - { printf("\nGC just ended. The free pointer is at 0x%x, the top of this heap\n", - Free); - printf("is at 0x%x, and we are trying to cons 0x%x objects. Dead!\n", - MemTop, GC_Space_Needed); - Microcode_Termination(TERM_EXIT); + { fprintf(stderr, + "\nGC just ended. The free pointer is at 0x%x, the top of this heap\n", + Free); + fprintf(stderr, + "is at 0x%x, and we are trying to cons 0x%x objects. Dead!\n", + MemTop, GC_Space_Needed); + Microcode_Termination(TERM_NO_SPACE); } GC_Space_Needed = 0; Val = Fetch_Expression(); -- 2.25.1