Skip to content
Snippets Groups Projects
Commit 1a92a21e authored by ch's avatar ch
Browse files

Changed IMMEDIATE-CONSTANT-SC to use VM:STATIC-SYMBOL-P.

parent 2225e1d3
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Lisp, please contact Scott Fahlman (Scott.Fahlman@CS.CMU.EDU)
;;; **********************************************************************
;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/vm.lisp,v 1.9 1990/02/23 20:24:11 wlott Exp $
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/vm.lisp,v 1.10 1990/02/24 17:03:52 ch Exp $
;;;
;;; This file contains the VM definition for the MIPS R2000 and the new
;;; object format.
......@@ -429,7 +429,7 @@
((integer #x1FFF #x3FFE)
(sc-number-or-lose 'unsigned-immediate))
(symbol
(if (member value vm:initial-symbols)
(if (vm:static-symbol-p value)
(sc-number-or-lose 'random-immediate)
nil))
(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