From 3a13a138e1b636f6086f132d8141f4d1936bb5f3 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Sun, 28 Feb 1993 06:20:47 +0000
Subject: [PATCH] Add generate/remote-links, PC caching, and cache hints for
 consing, and PA-RISC 1.1 registers.

---
 v7/src/compiler/machines/spectrum/machin.scm | 24 +++++++++++++++++---
 v7/src/compiler/machines/spectrum/make.scm   |  9 +++++---
 2 files changed, 27 insertions(+), 6 deletions(-)

diff --git a/v7/src/compiler/machines/spectrum/machin.scm b/v7/src/compiler/machines/spectrum/machin.scm
index 334d09b0d..d835c4556 100644
--- a/v7/src/compiler/machines/spectrum/machin.scm
+++ b/v7/src/compiler/machines/spectrum/machin.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: machin.scm,v 4.27 1993/01/08 00:05:02 cph Exp $
+$Id: machin.scm,v 4.28 1993/02/28 06:20:24 gjr Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -201,7 +201,25 @@ MIT in each case. |#
 (define-integrable fp14 46)
 (define-integrable fp15 47)
 
-(define-integrable number-of-machine-registers 48)
+;; The following registers are available only on the newer processors
+(define-integrable fp16 48)
+(define-integrable fp17 49)
+(define-integrable fp18 50)
+(define-integrable fp19 51)
+(define-integrable fp20 52)
+(define-integrable fp21 53)
+(define-integrable fp22 54)
+(define-integrable fp23 55)
+(define-integrable fp24 56)
+(define-integrable fp25 57)
+(define-integrable fp26 58)
+(define-integrable fp27 59)
+(define-integrable fp28 60)
+(define-integrable fp29 61)
+(define-integrable fp30 62)
+(define-integrable fp31 63)
+
+(define-integrable number-of-machine-registers 64)
 (define-integrable number-of-temporary-registers 256)
 
 ;;; Fixed-use registers for Scheme compiled code.
@@ -244,7 +262,7 @@ MIT in each case. |#
 	 value-class=address)
 	((= register 5)
 	 value-class=immediate)
-	((<= 32 register 47)
+	((<= 32 register 63)
 	 value-class=float)
 	(else
 	 (error "illegal machine register" register))))
diff --git a/v7/src/compiler/machines/spectrum/make.scm b/v7/src/compiler/machines/spectrum/make.scm
index c3abdd164..72cb564dd 100644
--- a/v7/src/compiler/machines/spectrum/make.scm
+++ b/v7/src/compiler/machines/spectrum/make.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/spectrum/make.scm,v 4.88 1991/10/25 12:29:52 cph Exp $
+$Id: make.scm,v 4.89 1993/02/28 06:20:47 gjr Exp $
 
-Copyright (c) 1988-91 Massachusetts Institute of Technology
+Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -36,4 +36,7 @@ MIT in each case. |#
 
 (declare (usual-integrations))
 
-((load "base/make") "HP PA")
\ No newline at end of file
+(let ((value ((load "base/make") "HP PA")))
+  (set! (access compiler:compress-top-level? (->environment '(compiler)))
+	true)
+  value)
\ No newline at end of file
-- 
2.25.1