Skip to content
Snippets Groups Projects
Commit 7220197f authored by wlott's avatar wlott
Browse files

Changed the assembly routine interface to use a jump-absolute instruction

instead of a lui/ori/jr sequence.
parent 05b84ac0
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; 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 ;;; This file contains the extra code necessary to feed an entire file of
;;; assembly code to the assembler. ;;; assembly code to the assembler.
...@@ -189,8 +189,7 @@ ...@@ -189,8 +189,7 @@
args) args)
(inst compute-lra-from-code (inst compute-lra-from-code
,return-pc code-tn ,return-pc-label ,ndescr) ,return-pc code-tn ,return-pc-label ,ndescr)
(inst li ,ndescr (make-fixup ',name :assembly-routine)) (inst j (make-fixup ',name :assembly-routine))
(inst j ,ndescr)
(inst nop) (inst nop)
(emit-return-pc ,return-pc-label) (emit-return-pc ,return-pc-label)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment