Move Make_Prim_Exts to primutl.c.

diff --git a/v7/src/microcode/fasdump.c b/v7/src/microcode/fasdump.c
index c0204f7d46258573826392b0b072edf58750c29c..8643b6233aee45a9cfb0d870a2e03a6afb8b4a9b 100644 (file)
--- a/v7/src/microcode/fasdump.c
+++ b/v7/src/microcode/fasdump.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/fasdump.c,v 9.24 1987/04/16 02:21:39 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/fasdump.c,v 9.25 1987/04/16 14:34:02 jinx Exp $
 
    This file contains code for fasdump and dump-band.
 */
@@ -42,6 +42,8 @@ MIT in each case. */
 #include "trap.h"
 #include "lookup.h"
 #include "dump.c"
+
+extern Pointer Make_Prim_Exts();
 \f
 /* Some statics used freely in this file */
 Pointer *NewFree, *NewMemTop, *Fixup, *Orig_New_Free;
@@ -185,37 +187,6 @@ int Dump_Mode;
   return true;
 } /* DumpLoop */
 \f
-/*
-   Used to create a vector with symbols for each of the external
-   primitives known to the system.
-*/
-
-Pointer 
-Make_Prim_Exts()
-{
-  extern Pointer external_primitive_name();
-  fast Pointer Result, *scan;
-  fast long i, Max, Count;
-
-  Max = NUndefined();
-  Count = (MAX_EXTERNAL_PRIMITIVE + Max + 1);
-  Primitive_GC_If_Needed(Count + 1);
-  Result = Make_Pointer(TC_VECTOR, Free);
-  scan = Free;
-  Free += Count + 1;
-
-  *scan++ = Make_Non_Pointer(TC_MANIFEST_VECTOR, Count);
-  for (i = 0; i <= MAX_EXTERNAL_PRIMITIVE; i++)
-  {
-    *scan++ = external_primitive_name(i);
-  }
-  for (i = 1; i <= Max; i++)
-  {
-    *scan++ = User_Vector_Ref(Undefined_Externals, i);
-  }
-  return Result;
-}
-\f
 void
 Fasdump_Exit()
 {

diff --git a/v7/src/microcode/primutl.c b/v7/src/microcode/primutl.c
index cce09d0c7fb42ab046c74ae832d590eb1a8ff2d3..09a30bc8cdcfb00eb7729cf3bb239800de8778b9 100644 (file)
--- a/v7/src/microcode/primutl.c
+++ b/v7/src/microcode/primutl.c
@@ -31,7 +31,7 @@ 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/primutl.c,v 9.39 1987/04/16 02:01:24 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/primutl.c,v 9.40 1987/04/16 14:34:28 jinx Rel $
  *
  * This file contains the support routines for mapping primitive names
  * to numbers within the microcode.  This mechanism is only used by
@@ -228,3 +228,35 @@ external_primitive_to_arity(code)
                            &External_Arity_Table[0],
                            MAX_EXTERNAL_PRIMITIVE);
 }
+\f
+extern Pointer Make_Prim_Exts();
+
+/*
+   Used to create a vector with symbols for each of the external
+   primitives known to the system.
+*/
+
+Pointer 
+Make_Prim_Exts()
+{
+  fast Pointer Result, *scan;
+  fast long i, Max, Count;
+
+  Max = NUndefined();
+  Count = (MAX_EXTERNAL_PRIMITIVE + Max + 1);
+  Primitive_GC_If_Needed(Count + 1);
+  Result = Make_Pointer(TC_VECTOR, Free);
+  scan = Free;
+  Free += Count + 1;
+
+  *scan++ = Make_Non_Pointer(TC_MANIFEST_VECTOR, Count);
+  for (i = 0; i <= MAX_EXTERNAL_PRIMITIVE; i++)
+  {
+    *scan++ = external_primitive_name(i);
+  }
+  for (i = 1; i <= Max; i++)
+  {
+    *scan++ = User_Vector_Ref(Undefined_Externals, i);
+  }
+  return Result;
+}

diff --git a/v7/src/microcode/version.h b/v7/src/microcode/version.h
index 86650d538637b6a02839811f26e47c08232de06c..08126ce1fe35ed7f61b0617852710ddd72c765de 100644 (file)
--- a/v7/src/microcode/version.h
+++ b/v7/src/microcode/version.h
@@ -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/version.h,v 9.39 1987/04/16 02:32:57 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 9.40 1987/04/16 14:33:34 jinx Exp $
 
 This file contains version information for the microcode. */
 \f
@@ -46,7 +46,7 @@ This file contains version information for the microcode. */
 #define VERSION                9
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION     39
+#define SUBVERSION     40
 #endif
 
 #ifndef UCODE_TABLES_FILENAME

diff --git a/v8/src/microcode/version.h b/v8/src/microcode/version.h
index aa92b35ae6748c0e8e67f2cbc468044f95ec758b..7ec862bd84e14848c51341ea261f42595ad4b885 100644 (file)
--- a/v8/src/microcode/version.h
+++ b/v8/src/microcode/version.h
@@ -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/version.h,v 9.39 1987/04/16 02:32:57 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 9.40 1987/04/16 14:33:34 jinx Exp $
 
 This file contains version information for the microcode. */
 \f
@@ -46,7 +46,7 @@ This file contains version information for the microcode. */
 #define VERSION                9
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION     39
+#define SUBVERSION     40
 #endif
 
 #ifndef UCODE_TABLES_FILENAME