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