From 7eadfb61395f08f5935178555f431c3f6d480093 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Tue, 14 Jan 1992 19:23:41 +0000
Subject: [PATCH] Move definitions of linkage kinds outside the
HAS_COMPILER_SUPPORT #ifdef.
---
v7/src/microcode/cmpgc.h | 20 +++++++++++---------
1 file changed, 11 insertions(+), 9 deletions(-)
diff --git a/v7/src/microcode/cmpgc.h b/v7/src/microcode/cmpgc.h
index edec2b986..c5d767833 100644
--- a/v7/src/microcode/cmpgc.h
+++ b/v7/src/microcode/cmpgc.h
@@ -1,8 +1,8 @@
/* -*-C-*-
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/cmpgc.h,v 1.16 1991/05/05 00:40:42 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/cmpgc.h,v 1.17 1992/01/14 19:23:41 jinx Exp $
-Copyright (c) 1989-1991 Massachusetts Institute of Technology
+Copyright (c) 1989-1992 Massachusetts Institute of Technology
This material was developed by the Scheme project at the Massachusetts
Institute of Technology, Department of Electrical Engineering and
@@ -46,6 +46,15 @@ See cmpint.txt, cmpint.c, cmpint-md.h, and cmpaux-md.m4 for more details.
#define NOP() do {} while (0) /* A useful macro */
+/* These are needed whether or not there is a compiler,
+ so their definition must be outside the HAS_COMPILER_SUPPORT ifdef.
+ */
+
+#define OPERATOR_LINKAGE_KIND 0x000000
+#define REFERENCE_LINKAGE_KIND 0x010000
+#define ASSIGNMENT_LINKAGE_KIND 0x020000
+#define GLOBAL_OPERATOR_LINKAGE_KIND 0x030000
+
#ifdef HAS_COMPILER_SUPPORT
#include "cmpint2.h"
@@ -229,11 +238,6 @@ MAKE_POINTER_OBJECT((OBJECT_TYPE(object)), \
/* Linkage sections */
-#define OPERATOR_LINKAGE_KIND 0x000000
-#define REFERENCE_LINKAGE_KIND 0x010000
-#define ASSIGNMENT_LINKAGE_KIND 0x020000
-#define GLOBAL_OPERATOR_LINKAGE_KIND 0x030000
-
#define READ_LINKAGE_KIND(header) \
((header) & 0xff0000)
@@ -344,8 +348,6 @@ typedef unsigned short format_word;
#define READ_LINKAGE_KIND(header) \
(GC_NO_COMPILER_EXPR ((int)))
-#define OPERATOR_LINKAGE_KIND 0
-
#define READ_CACHE_LINKAGE_COUNT(header) \
(GC_NO_COMPILER_EXPR ((int)))
--
2.25.1