From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Mon, 15 May 1989 22:06:49 +0000 (+0000)
Subject: Allow TC_COMPILED_CODE_BLOCK when the allow_cc option is given.
X-Git-Tag: 20090517-FFI~12077
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ff03039eef5c280c1e4b8e6653155125a7789629;p=mit-scheme.git

Allow TC_COMPILED_CODE_BLOCK when the allow_cc option is given.
---

diff --git a/v7/src/microcode/bintopsb.c b/v7/src/microcode/bintopsb.c
index 9dfb17b75..fa34c415b 100644
--- a/v7/src/microcode/bintopsb.c
+++ b/v7/src/microcode/bintopsb.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-Copyright (c) 1987 Massachusetts Institute of Technology
+Copyright (c) 1987, 1989 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -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.35 1988/05/05 09:35:34 cph Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bintopsb.c,v 9.36 1989/05/15 22:06:49 jinx Exp $
  *
  * This File contains the code to translate internal format binary
  * files to portable format.
@@ -961,6 +961,18 @@ Process_Area(Code, Area, Bound, Obj, FObj)
 	quit(1);
       }
 
+
+      case TC_COMPILED_CODE_BLOCK:
+	compiled_p = true;
+	if (!allow_compiled_p)
+	{
+	  fprintf(stderr,
+		  "%s: File contains compiled code.\n",
+		  program_name);
+	  quit(1);
+	}
+	Do_Pointer(*Area, Do_Vector);
+
       case_compiled_entry_point:
 	compiled_p = true;
 	if (!allow_compiled_p)
diff --git a/v8/src/microcode/bintopsb.c b/v8/src/microcode/bintopsb.c
index 704d62781..5e7cc62c9 100644
--- a/v8/src/microcode/bintopsb.c
+++ b/v8/src/microcode/bintopsb.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-Copyright (c) 1987 Massachusetts Institute of Technology
+Copyright (c) 1987, 1989 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -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.35 1988/05/05 09:35:34 cph Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/bintopsb.c,v 9.36 1989/05/15 22:06:49 jinx Exp $
  *
  * This File contains the code to translate internal format binary
  * files to portable format.
@@ -961,6 +961,18 @@ Process_Area(Code, Area, Bound, Obj, FObj)
 	quit(1);
       }
 
+
+      case TC_COMPILED_CODE_BLOCK:
+	compiled_p = true;
+	if (!allow_compiled_p)
+	{
+	  fprintf(stderr,
+		  "%s: File contains compiled code.\n",
+		  program_name);
+	  quit(1);
+	}
+	Do_Pointer(*Area, Do_Vector);
+
       case_compiled_entry_point:
 	compiled_p = true;
 	if (!allow_compiled_p)