From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 16 Dec 1986 06:27:48 +0000 (+0000)
Subject: Fix type-extraction rules to use ROL instruction rather than LSR.
X-Git-Tag: 20090517-FFI~13809
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9a30b84b5fc59dad9b6062550abbe2b8fecd8982;p=mit-scheme.git

Fix type-extraction rules to use ROL instruction rather than LSR.
---

diff --git a/v7/src/compiler/machines/bobcat/lapgen.scm b/v7/src/compiler/machines/bobcat/lapgen.scm
index 44970dd94..ca5eb1fc6 100644
--- a/v7/src/compiler/machines/bobcat/lapgen.scm
+++ b/v7/src/compiler/machines/bobcat/lapgen.scm
@@ -37,7 +37,7 @@
 
 ;;;; RTL Rules for 68020
 
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/lapgen.scm,v 1.139 1986/12/15 05:48:37 cph Exp $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/lapgen.scm,v 1.140 1986/12/16 06:27:48 cph Exp $
 
 (declare (usual-integrations))
 (using-syntax (access lap-generator-syntax-table compiler-package)
@@ -266,7 +266,7 @@
   (ASSIGN (REGISTER (? target)) (OBJECT->TYPE (REGISTER (? source))))
   (QUALIFIER (pseudo-register? target))
   (let ((target (move-to-alias-register! source 'DATA target)))
-    `((LS R (& 24) ,target))))
+    `((RO L L (& 8) ,target))))
 
 (define-rule statement
   (ASSIGN (REGISTER (? target)) (OFFSET (REGISTER (? address)) (? offset)))
@@ -402,7 +402,7 @@
   (QUALIFIER (pseudo-register? register))
   (set-standard-branches! 'EQ)
   (let ((reference (move-to-temporary-register! register 'DATA)))
-    `((LS R (& 24) ,reference)
+    `((RO L L (& 8) ,reference)
       ,(test-byte type reference))))
 
 (define-rule predicate