Skip to content
Snippets Groups Projects
Commit 78f9696c authored by wlott's avatar wlott
Browse files

When using the raw-pc return style, skip past the call inst on the return.

parent 59f4dae0
Branches
Tags
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/sparc/support.lisp,v 1.1 1990/11/22 11:51:46 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/sparc/support.lisp,v 1.2 1990/11/24 19:19:27 wlott 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.
...@@ -67,9 +67,11 @@ ...@@ -67,9 +67,11 @@
(def-vm-support-routine generate-return-sequence (style) (def-vm-support-routine generate-return-sequence (style)
(ecase style (ecase style
(:raw (:raw
`((inst j (make-random-tn :kind :normal `((inst j
:sc (sc-or-lose 'interior-reg *backend*) (make-random-tn :kind :normal
:offset lip-offset)) :sc (sc-or-lose 'interior-reg *backend*)
:offset lip-offset)
8)
(inst nop))) (inst nop)))
(:full-call (:full-call
`((lisp-return (make-random-tn :kind :normal `((lisp-return (make-random-tn :kind :normal
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment