Skip to content
Snippets Groups Projects
Commit 3abaadc8 authored by wlott's avatar wlott
Browse files

Changed cont-tn to fp-tn.

parent b83f37d8
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/assem-rtns.lisp,v 1.3 1990/03/18 15:30:11 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/assem-rtns.lisp,v 1.4 1990/04/23 20:44:36 wlott Exp $
;;; ;;;
;;; ;;;
(in-package "C") (in-package "C")
...@@ -76,7 +76,7 @@ ...@@ -76,7 +76,7 @@
do-exit do-exit
(loadw cont-tn cur-uwp vm:unwind-block-current-cont-slot) (loadw fp-tn cur-uwp vm:unwind-block-current-cont-slot)
(loadw code-tn cur-uwp vm:unwind-block-current-code-slot) (loadw code-tn cur-uwp vm:unwind-block-current-code-slot)
(loadw lra cur-uwp vm:unwind-block-entry-pc-slot) (loadw lra cur-uwp vm:unwind-block-entry-pc-slot)
(lisp-return lra lip) (lisp-return lra lip)
......
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