From 6a0bc8889da7822d63179ef42a17f36917266b22 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 4 Jan 1988 18:58:17 +0000 Subject: [PATCH] Don't forget to set `compiled_p' flag when compiled code is found. --- v7/src/microcode/bintopsb.c | 3 ++- v8/src/microcode/bintopsb.c | 3 ++- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/v7/src/microcode/bintopsb.c b/v7/src/microcode/bintopsb.c index c58a4a85b..5b5bf2190 100644 --- a/v7/src/microcode/bintopsb.c +++ b/v7/src/microcode/bintopsb.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/Attic/bintopsb.c,v 9.31 1987/11/23 05:11:12 cph Exp $ +/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bintopsb.c,v 9.32 1988/01/04 18:58:17 cph Rel $ * * This File contains the code to translate internal format binary * files to portable format. @@ -892,6 +892,7 @@ Process_Area(Code, Area, Bound, Obj, FObj) break; case_compiled_entry_point: + compiled_p = true; if (!allow_compiled_p) { fprintf(stderr, diff --git a/v8/src/microcode/bintopsb.c b/v8/src/microcode/bintopsb.c index 3a2707f3d..b7e06a957 100644 --- a/v8/src/microcode/bintopsb.c +++ b/v8/src/microcode/bintopsb.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/bintopsb.c,v 9.31 1987/11/23 05:11:12 cph Exp $ +/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/bintopsb.c,v 9.32 1988/01/04 18:58:17 cph Rel $ * * This File contains the code to translate internal format binary * files to portable format. @@ -892,6 +892,7 @@ Process_Area(Code, Area, Bound, Obj, FObj) break; case_compiled_entry_point: + compiled_p = true; if (!allow_compiled_p) { fprintf(stderr, -- 2.25.1