Skip to content
Snippets Groups Projects
Commit c8551885 authored by wlott's avatar wlott
Browse files

Changed a SC restriction to be unsigned-reg instead of doing the shift

myself.  Changed get-header-data to treat the header data as unsigned.
parent 404671ac
Branches
Tags
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; Scott Fahlman (FAHLMAN@CMUC).
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/system.lisp,v 1.14 1990/05/14 02:00:23 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/system.lisp,v 1.15 1990/05/18 00:57:18 wlott Exp $
;;; ;;;
;;; MIPS VM definitions of various system hacking operations. ;;; MIPS VM definitions of various system hacking operations.
;;; ;;;
...@@ -98,12 +98,10 @@ ...@@ -98,12 +98,10 @@
(define-vop (get-header-data) (define-vop (get-header-data)
(:args (x :scs (descriptor-reg))) (:args (x :scs (descriptor-reg)))
(:temporary (:scs (non-descriptor-reg) :type random) temp) (:results (res :scs (unsigned-reg)))
(:results (res :scs (any-reg descriptor-reg)))
(:generator 6 (:generator 6
(loadw temp x 0 vm:other-pointer-type) (loadw res x 0 vm:other-pointer-type)
(inst sra temp temp vm:type-bits) (inst srl res res vm:type-bits)))
(inst sll res temp 2)))
(define-vop (set-header-data) (define-vop (set-header-data)
(:args (x :scs (descriptor-reg) :target res) (:args (x :scs (descriptor-reg) :target res)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment