From ff18cbdf3d69e0ca1611947154c90b29597a5ea0 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Tue, 7 May 1991 17:41:31 +0000 Subject: [PATCH] Update to match 68020 4.84 version. --- v7/src/compiler/machines/spectrum/compiler.pkg | 10 +++++++--- v7/src/compiler/machines/spectrum/make.scm | 6 +++--- 2 files changed, 10 insertions(+), 6 deletions(-) diff --git a/v7/src/compiler/machines/spectrum/compiler.pkg b/v7/src/compiler/machines/spectrum/compiler.pkg index b7ae446bd..dbd942135 100644 --- 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 537dd0881..e6e13af87 100644 --- 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 -- 2.25.1