From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 31 Aug 1988 06:45:18 +0000 (+0000)
Subject: Change back end of compiler to not join bit strings that will be
X-Git-Tag: 20090517-FFI~12551
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9aa3554c53957d175cb1ea713b2869e4e48bec0a;p=mit-scheme.git

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.
---

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