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 9dfb17b752f4d6addf9d9ee0b02dc5b56a331644..fa34c415b8f4507f0f1ad909190dbad8c6c642c7 100644 (file)
--- 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 704d627812e76805d3b1871c6b56a0583a730425..5e7cc62c95ad1de5d4e5fad0fa6b3c1260622264 100644 (file)
--- 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)