From ba757b806e5a25331de9ca31eeb21c8bd96e57a3 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Wed, 9 May 1990 06:40:50 +0000 Subject: [PATCH] Do an and-immediate instead of a load-immediate/and-register. --- compiler/mips/system.lisp | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/compiler/mips/system.lisp b/compiler/mips/system.lisp index 78e483e81..fb0ebbe51 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.11 1990/05/06 05:25:50 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/system.lisp,v 1.12 1990/05/09 06:40:50 wlott Exp $ ;;; ;;; MIPS VM definitions of various system hacking operations. ;;; @@ -111,14 +111,13 @@ (:temporary (:scs (non-descriptor-reg) :type random) t1 t2) (:generator 6 (loadw t1 x 0 vm:other-pointer-type) - (inst li t2 vm:type-mask) - (inst and t1 t1 t2) + (inst and t1 vm:type-mask) (sc-case data (any-reg (inst sll t2 data (- vm:type-bits 2)) - (inst or t1 t1 t2)) + (inst or t1 t2)) (immediate - (inst or t1 t1 (ash (tn-value data) vm:type-bits)))) + (inst or t1 (ash (tn-value data) vm:type-bits)))) (storew t1 x 0 vm:other-pointer-type) (move res x))) -- GitLab