From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Mon, 6 Nov 1989 17:37:30 +0000 (+0000)
Subject: First batch of changes to run scheme:
X-Git-Tag: 20090517-FFI~11700
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d5fb82ffdf5e611814f4ea11446728242265531c;p=mit-scheme.git

First batch of changes to run scheme:

Add MAKE_LINKAGE_SECTION_HEADER definition.
---

diff --git a/v7/src/microcode/cmpgc.h b/v7/src/microcode/cmpgc.h
index 6d6fd76b9..58207deda 100644
--- a/v7/src/microcode/cmpgc.h
+++ b/v7/src/microcode/cmpgc.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/cmpgc.h,v 1.6 1989/11/01 18:54:12 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/cmpgc.h,v 1.7 1989/11/06 17:37:30 jinx Exp $
    $MC68020-Header: cmp68kgc.h,v 9.30 89/03/27 23:14:31 GMT jinx Exp $
 
 Utilities to relocate compiled code in garbage collection-like processes. 
@@ -236,6 +236,13 @@ MAKE_POINTER_OBJECT((OBJECT_TYPE(object)),				\
 #define READ_OPERATOR_LINKAGE_COUNT(header)				\
   (EXECUTE_CACHE_COUNT_TO_ENTRIES((header) & 0xffff))
   
+#define MAKE_LINKAGE_SECTION_HEADER(kind, count)			\
+  (MAKE_OBJECT(TC_LINKAGE_SECTION,					\
+	       ((kind) |						\
+		(((kind) == OPERATOR_LINKAGE_KIND) ?			\
+		 (EXECUTE_CACHE_ENTRIES_TO_COUNT(count)) :		\
+		 (count)))))
+
 /* This takes into account the 1 added by the main loop of the
    relocators.
  */