From 3f829937af1802bdddb18b70383a8a226172e719 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Fri, 6 Mar 1992 11:03:24 +0000
Subject: [PATCH] Added Miles' changes to TAIL-CALL-VARIABLE and
 RETURN-MULTIPLE to use JI and JALI instead of a LI/JR pair.

---
 compiler/sparc/call.lisp | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/compiler/sparc/call.lisp b/compiler/sparc/call.lisp
index 9806582cd..bad068924 100644
--- a/compiler/sparc/call.lisp
+++ b/compiler/sparc/call.lisp
@@ -7,7 +7,7 @@
 ;;; 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.
 ;;;
@@ -888,8 +888,7 @@ default-value-8
 		 number-stack-displacement))))
 
     ;; And jump to the assembly-routine that does the bliting.
-    (inst li temp (make-fixup 'tail-call-variable :assembly-routine))
-    (inst j temp)
+    (inst ji temp (make-fixup 'tail-call-variable :assembly-routine))
     (inst nop)))
 
 
@@ -1003,8 +1002,7 @@ default-value-8
       (move lra lra-arg)
       (move vals vals-arg)
       (move nvals nvals-arg)
-      (inst li temp (make-fixup 'return-multiple :assembly-routine))
-      (inst j temp)
+      (inst ji temp (make-fixup 'return-multiple :assembly-routine))
       (inst nop))
     (trace-table-entry trace-table-normal)))
 
-- 
GitLab