From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Thu, 27 Jul 1995 01:26:34 +0000 (+0000)
Subject: Define the HPPA magical SHARP_F.
X-Git-Tag: 20090517-FFI~6126
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=44cea748f0c696f52109890cb77d392bcc111641;p=mit-scheme.git

Define the HPPA magical SHARP_F.
---

diff --git a/v7/src/microcode/config.h b/v7/src/microcode/config.h
index 313229e93..e6ec7fca6 100644
--- a/v7/src/microcode/config.h
+++ b/v7/src/microcode/config.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: config.h,v 9.88 1995/06/14 22:58:19 cph Exp $
+$Id: config.h,v 9.89 1995/07/27 01:26:34 adams Exp $
 
 Copyright (c) 1987-95 Massachusetts Institute of Technology
 
@@ -295,6 +295,20 @@ typedef unsigned long SCHEME_OBJECT;
 #define ADDRESS_TO_DATUM(address)					\
   ((SCHEME_OBJECT) (((unsigned long) (address)) & (~(HPPA_QUAD_MASK))))
 
+/* 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
+
+   SHARP_F is stored in gr5 for access by compiled code.  This allows
+   us to generate #F and test against #F quickly, and also to use gr5
+   for compiled OBJECT->ADDRESS operations.  If we ever go to 5bit
+   typecodes we will be able to dispense with this overloading.
+
+   See also cmpauxmd/hppa.m4
+*/
+
+#define SHARP_F         0x22000010
+
 #endif /* hp9000s800 */
 
 #if defined(hp9000s300) || defined(__hp9000s300)