From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Tue, 10 Sep 1991 00:53:56 +0000 (+0000)
Subject: Allow multiple inclusion.
X-Git-Tag: 20090517-FFI~10223
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6f94d49c32ec56963106618bd18defba2caf9455;p=mit-scheme.git

Allow multiple inclusion.
dump_free_directly now returns the new value of free_buffer_bottom.
---

diff --git a/v7/src/microcode/bchgcc.h b/v7/src/microcode/bchgcc.h
index b85f44cd7..bb136a43b 100644
--- a/v7/src/microcode/bchgcc.h
+++ b/v7/src/microcode/bchgcc.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bchgcc.h,v 9.39 1991/09/07 22:46:14 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bchgcc.h,v 9.40 1991/09/10 00:53:56 jinx Exp $
 
 Copyright (c) 1987-1991 Massachusetts Institute of Technology
 
@@ -32,6 +32,10 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
+#ifndef _BCHGCC_H_INCLUDED
+
+#define _BCHGCC_H_INCLUDED
+
 #include "oscond.h"
 #include "gccode.h"
 #ifdef _BSD
@@ -81,13 +85,13 @@ extern SCHEME_OBJECT
   * EXFUN (GCLoop, (SCHEME_OBJECT *, SCHEME_OBJECT **, SCHEME_OBJECT **)),
   * EXFUN (dump_and_reload_scan_buffer, (long, Boolean *)),
   * EXFUN (dump_and_reset_free_buffer, (long, Boolean *)),
+  * EXFUN (dump_free_directly, (SCHEME_OBJECT *, long, Boolean *)),
   * EXFUN (initialize_free_buffer, (void)),
   * EXFUN (initialize_scan_buffer, (void));
 
 extern void
   EXFUN (GC, (SCHEME_OBJECT)),
   EXFUN (end_transport, (Boolean *)),
-  EXFUN (dump_free_directly, (SCHEME_OBJECT *, long, Boolean *)),
   EXFUN (load_buffer, (long, SCHEME_OBJECT *, long, char *)),
   EXFUN (extend_scan_buffer, (char *, SCHEME_OBJECT *)),
   EXFUN (gc_death, (long, char *, SCHEME_OBJECT *, SCHEME_OBJECT *));
@@ -160,7 +164,7 @@ extern char
     To = (dump_and_reset_free_buffer (0, success));			\
     real_length = (overflow >> gc_buffer_shift);			\
     if (real_length > 0)						\
-      dump_free_directly (Old, real_length, success);			\
+      To = dump_free_directly (Old, real_length, success);		\
     Old += (real_length << gc_buffer_shift);				\
     Scan = To + (overflow & gc_buffer_mask);				\
   }									\
@@ -304,3 +308,5 @@ do {									\
   relocate_compiled_entry (in_gc_p);					\
   STORE_CLOSURE_ENTRY_ADDRESS (Temp, Scan);				\
 }
+
+#endif /* _BCHGCC_H_INCLUDED */