From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 4 Oct 1995 22:53:58 +0000 (+0000)
Subject: Merge 8.0 and 7.4 versions of this file.
X-Git-Tag: 20090517-FFI~5919
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f2fb2d975a1857f7d58cf7f6b6f2e5b07144f88e;p=mit-scheme.git

Merge 8.0 and 7.4 versions of this file.
---

diff --git a/v7/src/microcode/config.h b/v7/src/microcode/config.h
index e6ec7fca6..b94f32535 100644
--- a/v7/src/microcode/config.h
+++ b/v7/src/microcode/config.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: config.h,v 9.89 1995/07/27 01:26:34 adams Exp $
+$Id: config.h,v 9.90 1995/10/04 22:53:58 cph Exp $
 
 Copyright (c) 1987-95 Massachusetts Institute of Technology
 
@@ -41,6 +41,7 @@ MIT in each case. */
 /* Default switches. */
 
 #include "oscond.h"
+#include "version.h"
 
 #ifndef butterfly
 #ifndef _UNIX
@@ -295,6 +296,8 @@ typedef unsigned long SCHEME_OBJECT;
 #define ADDRESS_TO_DATUM(address)					\
   ((SCHEME_OBJECT) (((unsigned long) (address)) & (~(HPPA_QUAD_MASK))))
 
+#if (VERSION > 11)
+
 /* SHARP_F is a magic value:
    Typecode TC_CONSTANT, high datum bits #b100, low datum bits are the top
    TYPE_CODE_LENGTH bits of HPPA_QUAD_BIT
@@ -308,6 +311,7 @@ typedef unsigned long SCHEME_OBJECT;
 */
 
 #define SHARP_F         0x22000010
+#endif /* (VERSION > 11) */
 
 #endif /* hp9000s800 */