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