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

Allow non-fixnum integer primitive types (unsigned-byte-32, etc) to be

stored in descriptor-regs (represented as bignums) also.
parent d1208e43
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Lisp, please contact Scott Fahlman (Scott.Fahlman@CS.CMU.EDU) ;;; Lisp, please contact Scott Fahlman (Scott.Fahlman@CS.CMU.EDU)
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/vm.lisp,v 1.24 1990/05/06 05:32:32 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/vm.lisp,v 1.25 1990/05/07 14:32:16 wlott Exp $
;;; ;;;
;;; This file contains the VM definition for the MIPS R2000 and the new ;;; This file contains the VM definition for the MIPS R2000 and the new
;;; object format. ;;; object format.
...@@ -193,13 +193,13 @@ ...@@ -193,13 +193,13 @@
;;; ;;;
(def-primitive-type positive-fixnum (any-reg signed-reg unsigned-reg) (def-primitive-type positive-fixnum (any-reg signed-reg unsigned-reg)
:type (unsigned-byte 29)) :type (unsigned-byte 29))
(def-primitive-type unsigned-byte-31 (signed-reg unsigned-reg) (def-primitive-type unsigned-byte-31 (signed-reg unsigned-reg descriptor-reg)
:type (unsigned-byte 31)) :type (unsigned-byte 31))
(def-primitive-type unsigned-byte-32 (unsigned-reg) (def-primitive-type unsigned-byte-32 (unsigned-reg descriptor-reg)
:type (unsigned-byte 32)) :type (unsigned-byte 32))
(def-primitive-type fixnum (any-reg signed-reg) (def-primitive-type fixnum (any-reg signed-reg)
:type (signed-byte 30)) :type (signed-byte 30))
(def-primitive-type signed-byte-32 (signed-reg) (def-primitive-type signed-byte-32 (signed-reg descriptor-reg)
:type (signed-byte 32)) :type (signed-byte 32))
(def-primitive-type-alias tagged-num (:or positive-fixnum fixnum)) (def-primitive-type-alias tagged-num (:or positive-fixnum fixnum))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment