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