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

Minor tweek to suppress a warning in the gengc system.

parent 6d20381c
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/support.lisp,v 1.12 1993/05/25 21:22:50 wlott Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/support.lisp,v 1.13 1993/08/25 18:05:02 wlott Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -19,16 +19,14 @@ ...@@ -19,16 +19,14 @@
(def-vm-support-routine generate-call-sequence (name style vop) (def-vm-support-routine generate-call-sequence (name style vop)
(ecase style (ecase style
(:raw (:raw
(values (let (#+gengc (ra (make-symbol "RA")))
`((inst jal (make-fixup ',name :assembly-routine)) (values
(inst nop)) `((inst jal #+gengc ra (make-fixup ',name :assembly-routine))
#+gengc (inst nop))
(let ((ra (make-symbol "RA"))) `(#+gengc
`((:temporary (:sc descriptor-reg :from (:eval 0) :to (:eval 1) (:temporary (:sc descriptor-reg :from (:eval 0) :to (:eval 1)
:offset ra-offset) :offset ra-offset)
,ra) ,ra)))))
(:ignore ,ra)))
#-gengc nil))
(:full-call (:full-call
(let ((temp (make-symbol "TEMP")) (let ((temp (make-symbol "TEMP"))
(nfp-save (make-symbol "NFP-SAVE")) (nfp-save (make-symbol "NFP-SAVE"))
......
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