Update to match 68020 4.84 version.

diff --git a/v7/src/compiler/machines/spectrum/compiler.pkg b/v7/src/compiler/machines/spectrum/compiler.pkg
index b7ae446bd8c21651a61c82254aa4c02a680f5906..dbd942135b262e83f7d2cc65a4c0bb5d79ded5c2 100644 (file)
--- a/v7/src/compiler/machines/spectrum/compiler.pkg
+++ b/v7/src/compiler/machines/spectrum/compiler.pkg
@@ -1,9 +1,9 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/spectrum/compiler.pkg,v 1.30 1990/07/22 18:49:57 jinx Rel $
-$MC68020-Header: comp.pkg,v 1.30 90/05/03 15:16:59 GMT jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/spectrum/compiler.pkg,v 1.31 1991/05/07 17:40:36 jinx Exp $
+$MC68020-Header: /scheme/compiler/bobcat/RCS/comp.pkg,v 1.32 1991/05/06 23:09:24 jinx Exp $
 
-Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
+Copyright (c) 1988-1991 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -90,6 +90,7 @@ MIT in each case. |#
          compiler:generate-rtl-files?
          compiler:generate-type-checks?
          compiler:implicit-self-static?
+         compiler:intersperse-rtl-in-lap?
          compiler:noisy?
          compiler:open-code-flonum-checks?
          compiler:open-code-primitives?
@@ -157,6 +158,7 @@ MIT in each case. |#
          cf
          compile-bin-file
          compile-procedure
+         compile-scode
          compiler:reset!
          cross-compile-bin-file
          cross-compile-bin-file-end)
@@ -599,7 +601,9 @@ MIT in each case. |#
   (export (compiler top-level)
          *interned-assignments*
          *interned-constants*
+         *interned-global-links*
          *interned-uuo-links*
+         *interned-static-variables*
          *interned-variables*
          *next-constant*
          generate-lap)

diff --git a/v7/src/compiler/machines/spectrum/make.scm b/v7/src/compiler/machines/spectrum/make.scm
index 537dd0881648c47d7b6a6fe18cb94cd78a9b3cf1..e6e13af879f34ab9d38d20db87146089b0307be6 100644 (file)
--- a/v7/src/compiler/machines/spectrum/make.scm
+++ b/v7/src/compiler/machines/spectrum/make.scm
@@ -1,7 +1,7 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/spectrum/make.scm,v 4.80 1991/03/06 01:01:23 cph Exp $
-$MC68020-Header: make.scm,v 4.76 90/08/21 02:20:43 GMT jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/spectrum/make.scm,v 4.84 1991/05/07 17:41:31 jinx Exp $
+$MC68020-Header: /scheme/compiler/bobcat/RCS/make.scm,v 4.84 1991/05/07 13:47:44 jinx Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -42,4 +42,4 @@ MIT in each case. |#
            ((package/reference (find-package name) 'INITIALIZE-PACKAGE!)))
          '((COMPILER MACROS)
            (COMPILER DECLARATIONS)))
-(add-system! (make-system "Liar (HP PA)" 4 80 '()))
\ No newline at end of file
+(add-system! (make-system "Liar (HP PA)" 4 84 '()))
\ No newline at end of file