From 9aa3554c53957d175cb1ea713b2869e4e48bec0a Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 31 Aug 1988 06:45:18 +0000 Subject: [PATCH] Change back end of compiler to not join bit strings that will be adjacent in the output code. This loses slightly on space but avoids costly bit string copying. Also extend RTL constructors to handle `offset' locative with constant base address. --- v7/src/compiler/machines/bobcat/make.scm-68040 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/compiler/machines/bobcat/make.scm-68040 b/v7/src/compiler/machines/bobcat/make.scm-68040 index a1191e1a1..544315512 100644 --- a/v7/src/compiler/machines/bobcat/make.scm-68040 +++ b/v7/src/compiler/machines/bobcat/make.scm-68040 @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/make.scm-68040,v 4.22 1988/08/30 02:16:13 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/make.scm-68040,v 4.23 1988/08/31 06:45:18 cph Exp $ Copyright (c) 1988 Massachusetts Institute of Technology @@ -41,4 +41,4 @@ MIT in each case. |# ((package/reference (find-package name) 'INITIALIZE-PACKAGE!))) '((COMPILER MACROS) (COMPILER DECLARATIONS))) -(add-system! (make-system "Liar" 4 22 '())) \ No newline at end of file +(add-system! (make-system "Liar" 4 23 '())) \ No newline at end of file -- 2.25.1