Skip to content
Snippets Groups Projects
Commit 3f829937 authored by wlott's avatar wlott
Browse files

Added Miles' changes to TAIL-CALL-VARIABLE and RETURN-MULTIPLE to use JI

and JALI instead of a LI/JR pair.
parent 93af4843
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/compiler/sparc/call.lisp,v 1.7 1991/11/09 20:50:29 ram Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/call.lisp,v 1.8 1992/03/06 11:03:24 wlott Exp $
;;; ;;;
;;; This file contains the VM definition of function call for the SPARC. ;;; This file contains the VM definition of function call for the SPARC.
;;; ;;;
...@@ -888,8 +888,7 @@ default-value-8 ...@@ -888,8 +888,7 @@ default-value-8
number-stack-displacement)))) number-stack-displacement))))
;; And jump to the assembly-routine that does the bliting. ;; And jump to the assembly-routine that does the bliting.
(inst li temp (make-fixup 'tail-call-variable :assembly-routine)) (inst ji temp (make-fixup 'tail-call-variable :assembly-routine))
(inst j temp)
(inst nop))) (inst nop)))
...@@ -1003,8 +1002,7 @@ default-value-8 ...@@ -1003,8 +1002,7 @@ default-value-8
(move lra lra-arg) (move lra lra-arg)
(move vals vals-arg) (move vals vals-arg)
(move nvals nvals-arg) (move nvals nvals-arg)
(inst li temp (make-fixup 'return-multiple :assembly-routine)) (inst ji temp (make-fixup 'return-multiple :assembly-routine))
(inst j temp)
(inst nop)) (inst nop))
(trace-table-entry trace-table-normal))) (trace-table-entry trace-table-normal)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment