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

Don't try to use string-char-p when compiled with the new-comiler. Just

assume that all characters can be represented in the immediate-base-char
SC.
parent 4d1e8b92
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.31 1990/06/17 22:28:27 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/vm.lisp,v 1.32 1990/07/14 09:27:52 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.
...@@ -549,9 +549,12 @@ ...@@ -549,9 +549,12 @@
(system-area-pointer (system-area-pointer
(sc-number-or-lose 'immediate-sap)) (sc-number-or-lose 'immediate-sap))
(character (character
#-new-compiler
(if (string-char-p value) (if (string-char-p value)
(sc-number-or-lose 'immediate-base-character) (sc-number-or-lose 'immediate-base-character)
nil)))) nil)
#+new-compiler
(sc-number-or-lose 'immediate-base-character))))
;;;; Function Call Parameters ;;;; Function Call Parameters
......
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