From 943194269b12f9138fce48145cd0a31624c010a6 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Mon, 4 Feb 1991 18:38:38 +0000
Subject: [PATCH] Added uses of the new ENTRY-POINT funny instruction which
 prevents code motion across the multiple value entry point in unknown-values
 return.

---
 compiler/mips/call.lisp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/compiler/mips/call.lisp b/compiler/mips/call.lisp
index 4d3f3cc9c..a2a3605cb 100644
--- a/compiler/mips/call.lisp
+++ b/compiler/mips/call.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/call.lisp,v 1.35 1990/11/21 12:39:03 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/call.lisp,v 1.36 1991/02/04 18:38:38 ram Exp $
 ;;;
 ;;;    This file contains the VM definition of function call for the MIPS.
 ;;;
@@ -293,12 +293,14 @@ default-value-8
       (progn
 	(move csp-tn old-fp-tn)
 	(inst nop)
+	(inst entry-point)
 	(inst compute-code-from-lra code-tn code-tn lra-label temp))
       (let ((regs-defaulted (gen-label))
 	    (defaulting-done (gen-label)))
 	;; Branch off to the MV case.
 	(inst b regs-defaulted)
 	(inst nop)
+	(inst entry-point)
 	
 	;; Do the single value calse.
 	(do ((i 1 (1+ i))
@@ -374,6 +376,7 @@ default-value-8
 	(done (gen-label)))
     (inst b variable-values)
     (inst nop)
+    (inst entry-point)
     
     (inst compute-code-from-lra code-tn code-tn lra-label temp)
     (inst addu csp-tn csp-tn 4)
-- 
GitLab