diff --git a/compiler/old-rt/nlx.lisp b/compiler/old-rt/nlx.lisp index 4ba80a75cbebb654a973bc1c80eb1ad9d460b6ef..b7453682ac703642b74a6a389a87135f8073b1c8 100644 --- a/compiler/old-rt/nlx.lisp +++ b/compiler/old-rt/nlx.lisp @@ -88,7 +88,7 @@ ;;;; Unwind block hackery: ;;; Compute the address of the catch block from its TN, then store into the -;;; block the current Cont, Env, Unwind-Protect, and the entry PC. +;;; block the current Fp, Env, Unwind-Protect, and the entry PC. ;;; (define-vop (make-unwind-block) (:args (tn) @@ -100,7 +100,7 @@ (inst ai result fp-tn (* (tn-offset tn) 4)) (load-global temp clc::current-unwind-protect-block) (storew temp result system:%unwind-block-current-uwp) - (storew fp-tn result system:%unwind-block-current-cont) + (storew fp-tn result system:%unwind-block-current-fp) (storew env-tn result system:%unwind-block-current-env) (storew entry-offset result system:%unwind-block-entry-pc) (unless (location= result block) @@ -121,7 +121,7 @@ (inst ai result fp-tn (* (tn-offset tn) 4)) (load-global temp clc::current-unwind-protect-block) (storew temp result system:%unwind-block-current-uwp) - (storew fp-tn result system:%unwind-block-current-cont) + (storew fp-tn result system:%unwind-block-current-fp) (storew env-tn result system:%unwind-block-current-env) (storew entry-offset result system:%unwind-block-entry-pc)