Skip to content
Snippets Groups Projects
Commit 515aa351 authored by ram's avatar ram
Browse files

Added use of the ENTRY-POINT instruction to prevent bad code motion

in the unknown-value return code.
parent 3cb73f59
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/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 ;;; This file contains the machine specific support routines needed by
;;; the file assembler. ;;; the file assembler.
...@@ -37,6 +37,7 @@ ...@@ -37,6 +37,7 @@
(note-this-location ,vop :unknown-return) (note-this-location ,vop :unknown-return)
(move csp-tn old-fp-tn) (move csp-tn old-fp-tn)
(inst nop) (inst nop)
(inst entry-point)
(inst compute-code-from-lra code-tn code-tn (inst compute-code-from-lra code-tn code-tn
lra-label ,temp) lra-label ,temp)
(when cur-nfp (when cur-nfp
......
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