diff --git a/assembly/assemfile.lisp b/assembly/assemfile.lisp index 423d735c8fb5fe2495d3ac57ea9068f11e55f23c..70c1ae7a8251069b03b78b4899550e6a105e3e98 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.15 1990/09/21 00:48:57 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/assemfile.lisp,v 1.16 1990/10/13 21:25:40 wlott Exp $ ;;; ;;; This file contains the extra code necessary to feed an entire file of ;;; assembly code to the assembler. @@ -189,8 +189,7 @@ args) (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 j (make-fixup ',name :assembly-routine)) (inst nop) (emit-return-pc ,return-pc-label)