Skip to content
Snippets Groups Projects
Commit 06c38186 authored by ram's avatar ram
Browse files

In save-dynamic-state, init the NPF result even if there isn't any NFP. Might

cause GC lossage, and confuses the assembly lifetime checker.
parent 56d620ad
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/compiler/rt/nlx.lisp,v 1.2 1991/04/23 01:21:42 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/nlx.lisp,v 1.3 1991/10/02 23:04:56 ram Exp $
;;; ;;;
;;; This file contains the definitions of VOPs used for non-local exit (throw, ;;; This file contains the definitions of VOPs used for non-local exit (throw,
;;; lexical exit, etc.) ;;; lexical exit, etc.)
...@@ -60,8 +60,9 @@ ...@@ -60,8 +60,9 @@
(load-symbol-value catch lisp::*current-catch-block*) (load-symbol-value catch lisp::*current-catch-block*)
(load-symbol-value special *binding-stack-pointer*) (load-symbol-value special *binding-stack-pointer*)
(let ((cur-nfp (current-nfp-tn vop))) (let ((cur-nfp (current-nfp-tn vop)))
(when cur-nfp (if cur-nfp
(move nfp cur-nfp))) (move nfp cur-nfp)
(inst li nfp 0)))
(move nsp nsp-tn) (move nsp nsp-tn)
(load-symbol-value eval lisp::*eval-stack-top*))) (load-symbol-value eval lisp::*eval-stack-top*)))
......
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