Add generate/remote-links, PC caching, and cache hints for consing,

and PA-RISC 1.1 registers.

diff --git a/v7/src/compiler/machines/spectrum/machin.scm b/v7/src/compiler/machines/spectrum/machin.scm
index 334d09b0de33667b637668ae037dbcaad0c2acc3..d835c4556a6a33de5b0dacfec3eb5297885ff034 100644 (file)
--- 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)
 \f
 ;;; 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 c3abdd164dbf04b4e378d06bdbc547ea326234e6..72cb564ddea57e44b515dcff4ab1974a1809975c 100644 (file)
--- 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