From ebd1917d90af9956d8162ce001290af44f9d6fe4 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sun, 28 Apr 1991 23:14:49 +0000
Subject: [PATCH] Fixed 32 bit sap refs.  There were shifting the offset up
 twice, once in the vop and once in loadw.  Changed them to just use the l
 inst directly.

---
 compiler/rt/sap.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/rt/sap.lisp b/compiler/rt/sap.lisp
index dd2626488..47f4b5ca6 100644
--- a/compiler/rt/sap.lisp
+++ b/compiler/rt/sap.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/sap.lisp,v 1.3 1991/04/20 16:59:34 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/sap.lisp,v 1.4 1991/04/28 23:14:49 wlott Exp $
 ;;;
 ;;; This file contains the IBM RT VM definition of SAP operations.
 ;;;
@@ -190,7 +190,7 @@
 		  (inst lh result base offset))))
 	   (2 ;Want 32 bits.  Incoming offset is in 32-bit quantities.
 	      ;Offset here is in bytes.
-	    '((loadw result base offset)))))
+	    '((inst l result base offset)))))
 	(name-c (symbolicate name "-C")))
     `(progn
        (define-vop (,name-c)
-- 
GitLab