From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 4 Jan 1988 18:58:17 +0000 (+0000)
Subject: Don't forget to set `compiled_p' flag when compiled code is found.
X-Git-Tag: 20090517-FFI~12946
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6a0bc8889da7822d63179ef42a17f36917266b22;p=mit-scheme.git

Don't forget to set `compiled_p' flag when compiled code is found.
---

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,