From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 16 Apr 1987 14:34:28 +0000 (+0000)
Subject: Move Make_Prim_Exts to primutl.c.
X-Git-Tag: 20090517-FFI~13627
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ee507dedd168f1b49d24e66afd778a78f3a4ed04;p=mit-scheme.git

Move Make_Prim_Exts to primutl.c.
---

diff --git a/v7/src/microcode/fasdump.c b/v7/src/microcode/fasdump.c
index c0204f7d4..8643b6233 100644
--- 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();
 
 /* Some statics used freely in this file */
 Pointer *NewFree, *NewMemTop, *Fixup, *Orig_New_Free;
@@ -185,37 +187,6 @@ int Dump_Mode;
   return true;
 } /* DumpLoop */
 
-/*
-   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;
-}
-
 void
 Fasdump_Exit()
 {
diff --git a/v7/src/microcode/primutl.c b/v7/src/microcode/primutl.c
index cce09d0c7..09a30bc8c 100644
--- 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);
 }
+
+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 86650d538..08126ce1f 100644
--- 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. */
 
@@ -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 aa92b35ae..7ec862bd8 100644
--- 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. */
 
@@ -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