From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 4 Jan 1988 18:55:54 +0000 (+0000)
Subject: Add changes to allow compiled code to appear in PSB files.
X-Git-Tag: 20090517-FFI~12947
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=dfc5aa5c290b8d87376e1192a1d7acfa6180eda5;p=mit-scheme.git

Add changes to allow compiled code to appear in PSB files.
---

diff --git a/v7/src/microcode/psbtobin.c b/v7/src/microcode/psbtobin.c
index 4b0099de1..a4d5ad173 100644
--- a/v7/src/microcode/psbtobin.c
+++ b/v7/src/microcode/psbtobin.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/psbtobin.c,v 9.30 1987/11/23 05:11:58 cph Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/psbtobin.c,v 9.31 1988/01/04 18:55:54 cph Rel $
  *
  * This File contains the code to translate portable format binary
  * files to internal format.
@@ -44,6 +44,10 @@ MIT in each case. */
 
 #include "psbmap.h"
 
+static Boolean
+  allow_compiled_p = false,
+  allow_nmv_p = false;
+
 static long
   Dumped_Object_Addr,
   Dumped_Heap_Base, Heap_Objects, Heap_Count,
@@ -846,7 +850,9 @@ Read_Header_and_Allocate()
   READ_HEADER("Flags", "%ld", Flags);
   READ_FLAGS(Flags);
 
-  if ((compiled_p || nmv_p) && (Machine != FASL_INTERNAL_FORMAT))
+  if (((compiled_p && (! allow_compiled_p)) ||
+       (nmv_p && (! allow_nmv_p))) &&
+      (Machine != FASL_INTERNAL_FORMAT))
   {
     if (compiled_p)
     {
@@ -925,6 +931,7 @@ do_it()
   Boolean result;
   long Size;
 
+  allow_nmv_p = (allow_nmv_p || allow_compiled_p);
   Size = Read_Header_and_Allocate();
 
   Stack_Top = &Heap[Size];
@@ -1074,12 +1081,11 @@ do_it()
 
 /* Top level */
 
-/* C does not usually like empty initialized arrays, so ... */
-
 static struct Option_Struct Options[] =
-  {{"dummy", true, NULL}};
+    {{"Allow_Compiled", true, &allow_compiled_p},
+     {"Allow_NMVs", true, &allow_nmv_p}};
 
-static int Noptions = 0;
+static int Noptions = 2;
 
 main(argc, argv)
      int argc;
diff --git a/v8/src/microcode/psbtobin.c b/v8/src/microcode/psbtobin.c
index b9dac3643..64daed2dd 100644
--- a/v8/src/microcode/psbtobin.c
+++ b/v8/src/microcode/psbtobin.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/psbtobin.c,v 9.30 1987/11/23 05:11:58 cph Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/psbtobin.c,v 9.31 1988/01/04 18:55:54 cph Rel $
  *
  * This File contains the code to translate portable format binary
  * files to internal format.
@@ -44,6 +44,10 @@ MIT in each case. */
 
 #include "psbmap.h"
 
+static Boolean
+  allow_compiled_p = false,
+  allow_nmv_p = false;
+
 static long
   Dumped_Object_Addr,
   Dumped_Heap_Base, Heap_Objects, Heap_Count,
@@ -846,7 +850,9 @@ Read_Header_and_Allocate()
   READ_HEADER("Flags", "%ld", Flags);
   READ_FLAGS(Flags);
 
-  if ((compiled_p || nmv_p) && (Machine != FASL_INTERNAL_FORMAT))
+  if (((compiled_p && (! allow_compiled_p)) ||
+       (nmv_p && (! allow_nmv_p))) &&
+      (Machine != FASL_INTERNAL_FORMAT))
   {
     if (compiled_p)
     {
@@ -925,6 +931,7 @@ do_it()
   Boolean result;
   long Size;
 
+  allow_nmv_p = (allow_nmv_p || allow_compiled_p);
   Size = Read_Header_and_Allocate();
 
   Stack_Top = &Heap[Size];
@@ -1074,12 +1081,11 @@ do_it()
 
 /* Top level */
 
-/* C does not usually like empty initialized arrays, so ... */
-
 static struct Option_Struct Options[] =
-  {{"dummy", true, NULL}};
+    {{"Allow_Compiled", true, &allow_compiled_p},
+     {"Allow_NMVs", true, &allow_nmv_p}};
 
-static int Noptions = 0;
+static int Noptions = 2;
 
 main(argc, argv)
      int argc;