From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Sun, 8 Feb 1987 23:09:10 +0000 (+0000)
Subject: Redo some extern declarations for new garbage collector.
X-Git-Tag: 20090517-FFI~13714
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e6a092d2082d172c93d479f69f8a50f64f980af9;p=mit-scheme.git

Redo some extern declarations for new garbage collector.
---

diff --git a/v7/src/microcode/extern.h b/v7/src/microcode/extern.h
index 5a3bf9f36..4305a74b2 100644
--- 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 60df66a8d..626c4dfaa 100644
--- 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"
-
+
+/* 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)
+
+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 37fbef6e2..c3587e48f 100644
--- 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"
-
-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();
+
 /* 	Memory Allocation, sequential processor:
 
    ------------------------------------------
diff --git a/v7/src/microcode/purify.c b/v7/src/microcode/purify.c
index 216018eba..3c257523c 100644
--- 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();
 
 /* 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 26a193c1b..5e0233c0b 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.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. */
 
@@ -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 6f8ca0113..37be933bc 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.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. */
 
@@ -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