From b55875a9f9267a5cc4a3da4ed5eae5dfadcf9978 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Wed, 25 Aug 1993 18:05:02 +0000 Subject: [PATCH] Minor tweek to suppress a warning in the gengc system. --- assembly/mips/support.lisp | 18 ++++++++---------- 1 file changed, 8 insertions(+), 10 deletions(-) diff --git a/assembly/mips/support.lisp b/assembly/mips/support.lisp index 449b16512..ed8f782d5 100644 --- a/assembly/mips/support.lisp +++ b/assembly/mips/support.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (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 @@ (def-vm-support-routine generate-call-sequence (name style vop) (ecase style (:raw - (values - `((inst jal (make-fixup ',name :assembly-routine)) - (inst nop)) - #+gengc - (let ((ra (make-symbol "RA"))) - `((:temporary (:sc descriptor-reg :from (:eval 0) :to (:eval 1) + (let (#+gengc (ra (make-symbol "RA"))) + (values + `((inst jal #+gengc ra (make-fixup ',name :assembly-routine)) + (inst nop)) + `(#+gengc + (:temporary (:sc descriptor-reg :from (:eval 0) :to (:eval 1) :offset ra-offset) - ,ra) - (:ignore ,ra))) - #-gengc nil)) + ,ra))))) (:full-call (let ((temp (make-symbol "TEMP")) (nfp-save (make-symbol "NFP-SAVE")) -- GitLab