From 2a0be232556e66479cffe3a4d9159989ec516bf2 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Fri, 20 Apr 1990 16:41:28 +0000 Subject: [PATCH] CONT -> FP --- compiler/old-rt/nlx.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/compiler/old-rt/nlx.lisp b/compiler/old-rt/nlx.lisp index 4ba80a75c..b7453682a 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) -- GitLab