From 7e4f43b70b6b464f7a0a88d20532d44cc773695e Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Mon, 13 Mar 1995 04:33:05 +0000 Subject: [PATCH] *** empty log message *** --- v8/src/compiler/machines/spectrum/compiler.sf | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/v8/src/compiler/machines/spectrum/compiler.sf b/v8/src/compiler/machines/spectrum/compiler.sf index c907ba6a2..0dad5bc01 100644 --- a/v8/src/compiler/machines/spectrum/compiler.sf +++ b/v8/src/compiler/machines/spectrum/compiler.sf @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: compiler.sf,v 1.3 1995/01/07 00:29:42 cph Exp $ +$Id: compiler.sf,v 1.4 1995/03/13 04:33:05 adams Exp $ Copyright (c) 1988-95 Massachusetts Institute of Technology @@ -35,6 +35,7 @@ MIT in each case. |# ;;;; Script to incrementally syntax the compiler ;; Guarantee that the package modeller is loaded. +(load-option 'SF) (load-option 'CREF) ;; Guarantee that the compiler's package structure exists. @@ -88,6 +89,16 @@ MIT in each case. |# (sf-and-load '("machines/spectrum/inerly" "back/syerly") '(COMPILER LAP-SYNTAXER)))) +(if (lexical-unreferenceable? (->environment '()) '%matchup) + (let ((sf-and-load + (lambda (files package) + (sf-conditionally files) + (for-each (lambda (file) + (load (string-append file ".bin") package)) + files)))) + (write-string "\n\n---- Loading compile-time files ----") + (sf-and-load '("midend/synutl") '()))) ;; This should go elsewhere! + ;; Load the assembler instruction database. (in-package (->environment '(COMPILER LAP-SYNTAXER)) (if (and compiler:enable-expansion-declarations? -- 2.25.1