Redo some extern declarations for new garbage collector.

diff --git a/v7/src/microcode/extern.h b/v7/src/microcode/extern.h
index 5a3bf9f365bc71907c7ff6cfc5cb0a07b3098130..4305a74b24ee0b5ac997e2a404f5ab6c39a3609c 100644 (file)
--- a/v7/src/microcode/extern.h
+++ b/v7/src/microcode/extern.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/extern.h,v 9.21 1987/01/22 14:23:54 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/extern.h,v 9.22 1987/02/08 23:08:27 jinx Exp $
  *
  * External declarations.
  *
@@ -183,8 +183,7 @@ extern void Load_Data(), Write_Data(), OS_Re_Init();
 
 /* Memory management utilities */
 
-extern void GCFlip(), GC();
-extern Pointer *GCLoop(), Purify_Pass_2(), Fasload();
+extern Pointer Purify_Pass_2(), Fasload();
 extern Boolean Pure_Test();
 
 /* Interpreter utilities */

diff --git a/v7/src/microcode/gcloop.c b/v7/src/microcode/gcloop.c
index 60df66a8d6f1866f2f75ce8837874d11c19ccb12..626c4dfaae687fd180b95cb26ce66bc892d6eca6 100644 (file)
--- a/v7/src/microcode/gcloop.c
+++ b/v7/src/microcode/gcloop.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/gcloop.c,v 9.22 1987/02/03 15:56:10 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/gcloop.c,v 9.23 1987/02/08 23:09:10 jinx Exp $
  *
  * This file contains the code for the most primitive part
  * of garbage collection.
@@ -39,15 +39,20 @@ MIT in each case. */
 
 #include "scheme.h"
 #include "gccode.h"
-\f
+
+/* Exports */
+
+extern Pointer *GCLoop();
+
 #define GC_Pointer(Code)                                       \
 Old = Get_Pointer(Temp);                                       \
 Code
 
 #define Setup_Pointer_for_GC(Extra_Code)                       \
 GC_Pointer(Setup_Pointer(true, Extra_Code))
-
-Pointer *GCLoop(Scan, To_Pointer)
+\f
+Pointer
+*GCLoop(Scan, To_Pointer)
 fast Pointer *Scan;
 Pointer **To_Pointer;
 { fast Pointer *To, *Old, Temp, *Low_Constant, New_Address;

diff --git a/v7/src/microcode/memmag.c b/v7/src/microcode/memmag.c
index 37fbef6e22b810aca289c34543ff79ec3a03a702..c3587e48f9bcb9dc461152a11788b610bfd5e9ee 100644 (file)
--- a/v7/src/microcode/memmag.c
+++ b/v7/src/microcode/memmag.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/memmag.c,v 9.25 1987/02/08 12:28:47 jinx Exp $ */
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/memmag.c,v 9.26 1987/02/08 23:06:34 jinx Exp $ */
 
 /* Memory management top level.
 
@@ -47,9 +47,16 @@ MIT in each case. */
 #include "scheme.h"
 #include "primitive.h"
 #include "gccode.h"
-\f
-extern void Clear_Memory(), Setup_Memory(), Reset_Memory();
 
+/* Imports */
+
+extern Pointer *GCLoop();
+
+/* Exports */
+
+extern void GCFlip(), GC();
+extern void Clear_Memory(), Setup_Memory(), Reset_Memory();
+\f
 /*     Memory Allocation, sequential processor:
 
    ------------------------------------------

diff --git a/v7/src/microcode/purify.c b/v7/src/microcode/purify.c
index 216018eba4ff32be3de6ca7ff6d6a783ad025da2..3c257523cedc2d159516fffd18baa6730e492b59 100644 (file)
--- a/v7/src/microcode/purify.c
+++ b/v7/src/microcode/purify.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/purify.c,v 9.22 1987/02/03 15:57:39 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/purify.c,v 9.23 1987/02/08 23:05:47 jinx Exp $
  *
  * This file contains the code for primitives dealing with pure
  * and constant space.
@@ -41,6 +41,11 @@ MIT in each case. */
 #include "primitive.h"
 #include "gccode.h"
 #include "zones.h"
+
+/* Imports */
+
+extern void GCFlip(), GC();
+extern Pointer *GCLoop();
 \f
 /* This is a copy of GCLoop, with GC_Mode handling added, and
    debugging printout removed.

diff --git a/v7/src/microcode/version.h b/v7/src/microcode/version.h
index 26a193c1b90928c20611244921f1850003554f6c..5e0233c0bf0b63a9f6d7aaa274151fc621d025f3 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.24 1987/02/07 15:31:17 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 9.25 1987/02/08 23:05:21 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     24
+#define SUBVERSION     25
 #endif
 
 #ifndef UCODE_TABLES_FILENAME

diff --git a/v8/src/microcode/version.h b/v8/src/microcode/version.h
index 6f8ca0113236c431b5840774d351feca93b155ff..37be933bc6cd6c5fd3354e02548478348cf93bfc 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.24 1987/02/07 15:31:17 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 9.25 1987/02/08 23:05:21 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     24
+#define SUBVERSION     25
 #endif
 
 #ifndef UCODE_TABLES_FILENAME