From 371a641eb39bf0d60038bf8b9854d82abf07fae9 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Thu, 21 May 1992 22:34:15 +0000
Subject: [PATCH] Moved the :single-value-return code location to where
 backtrace expects to find it.  Added :save-p :compute-only so that the code
 locations can be dumped.

---
 assembly/mips/support.lisp | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/assembly/mips/support.lisp b/assembly/mips/support.lisp
index 1d97d1cf7..4b8aa38da 100644
--- a/assembly/mips/support.lisp
+++ b/assembly/mips/support.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/support.lisp,v 1.7 1992/05/21 02:30:24 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/support.lisp,v 1.8 1992/05/21 22:34:15 wlott Exp $
 ;;;
 ;;; This file contains the machine specific support routines needed by
 ;;; the file assembler.
@@ -35,9 +35,9 @@
 	    (inst j (make-fixup ',name :assembly-routine))
 	    (inst nop)
 	    (emit-return-pc lra-label)
+	    (note-this-location ,vop :single-value-return)
 	    (move csp-tn ocfp-tn)
 	    (inst nop)
-	    (note-this-location ,vop :single-value-return)
 	    (inst entry-point)
 	    (inst compute-code-from-lra code-tn code-tn
 		  lra-label ,temp)
@@ -49,7 +49,8 @@
 			   :from (:eval 0) :to (:eval 1))
 		      ,lra)
 	  (:temporary (:scs (control-stack) :offset nfp-save-offset)
-		      ,nfp-save)))))
+		      ,nfp-save)
+	  (:save-p :compute-only)))))
     (:none
      (values
       `((inst j (make-fixup ',name :assembly-routine))
-- 
GitLab