From e65c100685b26bb4ffd75e00af4e473fa5af2b1f Mon Sep 17 00:00:00 2001 From: ssmith Date: Wed, 25 Oct 1995 19:54:30 +0000 Subject: [PATCH] Updated to be more like Spectrum's --- v8/src/compiler/machines/i386/make.scm | 17 +++++++++++------ 1 file changed, 11 insertions(+), 6 deletions(-) diff --git a/v8/src/compiler/machines/i386/make.scm b/v8/src/compiler/machines/i386/make.scm index 69d20b0bf..0b368792f 100644 --- a/v8/src/compiler/machines/i386/make.scm +++ b/v8/src/compiler/machines/i386/make.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: make.scm,v 1.1 1995/01/10 20:53:03 adams Exp $ +$Id: make.scm,v 1.2 1995/10/25 19:54:30 ssmith Exp $ Copyright (c) 1992-1993 Massachusetts Institute of Technology @@ -36,8 +36,13 @@ MIT in each case. |# (declare (usual-integrations)) -(let* ((val ((load "base/make") "Intel i386")) - (env (->environment '(compiler)))) - (set! (access compiler:generate-stack-checks? env) false) - (set! (access compiler:compress-top-level? env) true) - val) \ No newline at end of file +(let ((loader + (lambda () + (load-option 'SF) + (let ((value ((load "base/make") "Intel i386")) + (env (->environment '(compiler)))) + (set! (access compiler:generate-stack-checks? env) false) + (set! (access compiler:compress-top-level? env) true) + val) + (load "midend/load" #F)))) + (loader)) -- 2.25.1