Skip to content
Snippets Groups Projects
Commit 65e16a45 authored by ch's avatar ch
Browse files

Made MAKE-FIXNUM always return positive fixnums. Some code in the

system (hash tables for example) depend on this being true.
parent 545e1330
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC).
;;; **********************************************************************
;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/system.lisp,v 1.12 1990/05/09 06:40:50 wlott Exp $
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/system.lisp,v 1.13 1990/05/13 21:49:29 ch Exp $
;;;
;;; MIPS VM definitions of various system hacking operations.
;;;
......@@ -126,7 +126,11 @@
(:args (ptr :scs (any-reg descriptor-reg)))
(:results (res :scs (any-reg descriptor-reg)))
(:generator 1
(inst sll res ptr 2)))
;;
;; Some code (the hash table code) depends on this returning a
;; positive number so make sure it does.
(inst sll res ptr 3)
(inst srl res res 1)))
(define-vop (make-other-immediate-type)
(:args (val :scs (any-reg descriptor-reg))
......
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