From c2f29e9316ab2340487c128aedc41514e1d4f363 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Mon, 25 Jun 1990 23:34:17 +0000
Subject: [PATCH] Added the temp arg to the compute-lra-from-code.

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

diff --git a/assembly/assemfile.lisp b/assembly/assemfile.lisp
index 5a3fbcba4..f017f8306 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.12 1990/06/16 17:21:04 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/assemfile.lisp,v 1.13 1990/06/25 23:34:17 wlott Exp $
 ;;;
 ;;; This file contains the extra code necessary to feed an entire file of
 ;;; assembly code to the assembler.
@@ -185,7 +185,8 @@
 			 `(move ,(reg-spec-temp arg)
 				,(reg-spec-name arg)))
 		     args)
-	   (inst compute-lra-from-code ,return-pc code-tn ,return-pc-label)
+	   (inst compute-lra-from-code
+		 ,return-pc code-tn ,return-pc-label ,ndescr)
 	   (inst li ,ndescr (make-fixup ',name :assembly-routine))
 	   (inst j ,ndescr)
 	   (inst nop)
-- 
GitLab