From 515aa351b326e5e543948f1e13e0bc7f6e3be54a Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Mon, 4 Feb 1991 18:45:01 +0000
Subject: [PATCH] Added use of the ENTRY-POINT instruction to prevent bad code
 motion in the unknown-value return code.

---
 assembly/mips/support.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/assembly/mips/support.lisp b/assembly/mips/support.lisp
index 2bcaebc04..ad4f04c8d 100644
--- a/assembly/mips/support.lisp
+++ b/assembly/mips/support.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/support.lisp,v 1.4 1990/11/03 17:14:59 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/support.lisp,v 1.5 1991/02/04 18:45:01 ram Exp $
 ;;;
 ;;; This file contains the machine specific support routines needed by
 ;;; the file assembler.
@@ -37,6 +37,7 @@
 	    (note-this-location ,vop :unknown-return)
 	    (move csp-tn old-fp-tn)
 	    (inst nop)
+	    (inst entry-point)
 	    (inst compute-code-from-lra code-tn code-tn
 		  lra-label ,temp)
 	    (when cur-nfp
-- 
GitLab