Skip to content
Snippets Groups Projects
Commit 9734a429 authored by wlott's avatar wlott
Browse files

Fixed restore-dynamic-state to correctly check for the end of the binding

stack instead of trying to crank through all of memory.
parent 5806b1b6
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.1 1991/02/18 15:08:03 chiles Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/nlx.lisp,v 1.2 1991/04/23 01:21:42 wlott 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.)
...@@ -87,7 +87,7 @@ ...@@ -87,7 +87,7 @@
(move nsp-tn nsp) (move nsp-tn nsp)
(load-symbol-value bsp *binding-stack-pointer*) (load-symbol-value bsp *binding-stack-pointer*)
(inst c bsp 0) (inst c bsp special)
(inst bc :eq done) (inst bc :eq done)
;; Unwind shallow dynamic bindings. ;; Unwind shallow dynamic bindings.
......
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