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