From 4af0f834139700bbed9a6972851ba4785fe5d98b Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Thu, 29 Mar 1990 16:25:41 +0000
Subject: [PATCH] Don't use the LISP-RETURN macro, 'cause it now frobs the code
 object.

---
 assembly/assemfile.lisp | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/assembly/assemfile.lisp b/assembly/assemfile.lisp
index 7b9d80c4c..567d65064 100644
--- a/assembly/assemfile.lisp
+++ b/assembly/assemfile.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/assemfile.lisp,v 1.5 1990/03/19 17:17:44 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/assemfile.lisp,v 1.6 1990/03/29 16:25:41 wlott Exp $
 ;;;
 ;;; This file contains the extra code necessary to feed an entire file of
 ;;; assembly code to the assembler.
@@ -231,7 +231,9 @@
 			   :offset ,(reg-spec-offset temp)))))
 		  regs))
 	   ,@insts
-	   (lisp-return lra-tn lip-tn)))
+	   (inst addiu lip-tn lra-tn (- vm:word-bytes vm:other-pointer-type))
+	   (inst jr lip-tn)
+	   (nop)))
        (format t "~S assembled~%" ',name))))
 
 (defun arg-or-res-spec (reg)
-- 
GitLab