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