From 98fe233ed6ff10bcb7361ece978e99a451863f19 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Wed, 7 Mar 1990 18:42:45 +0000 Subject: [PATCH] Changed result sc of sap-system-ref to no longer include descriptor-reg. Why do the move myself, when the move vop can do it for me? --- compiler/mips/system.lisp | 11 +++-------- 1 file changed, 3 insertions(+), 8 deletions(-) diff --git a/compiler/mips/system.lisp b/compiler/mips/system.lisp index 7de318891..412afdbcd 100644 --- a/compiler/mips/system.lisp +++ b/compiler/mips/system.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/system.lisp,v 1.4 1990/03/06 22:11:28 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/system.lisp,v 1.5 1990/03/07 18:42:45 wlott Exp $ ;;; ;;; MIPS VM definitions of various system hacking operations. ;;; @@ -174,12 +174,7 @@ (inst lw temp sap 0) (sc-case result (sap-reg - (move result temp)) - (descriptor-reg - ;; ### Need to allocate the silly thing instead of stripping - ;; off the low two bits. - (inst sra temp temp 2) - (inst sll result temp 2))))))) + (move result temp))))))) (define-vop (sap-set) @@ -229,7 +224,7 @@ (define-vop (sap-system-ref sap-ref) - (:results (result :scs (descriptor-reg sap-reg))) + (:results (result :scs (sap-reg))) (:variant :pointer nil)) (define-vop (sap-system-set sap-set) -- GitLab