From d4c8a0e8e08d2ed02ad2dc3aefb24f9dce75c37d Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Mon, 5 Mar 1990 17:03:40 +0000
Subject: [PATCH] Changed to note the non-local-exit entry points.

---
 compiler/old-rt/nlx.lisp | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/compiler/old-rt/nlx.lisp b/compiler/old-rt/nlx.lisp
index d7e970bee..a4ed6e634 100644
--- a/compiler/old-rt/nlx.lisp
+++ b/compiler/old-rt/nlx.lisp
@@ -171,7 +171,9 @@
   (:ignore start count values nl0 nl1 a2 a3 misc-pc)
   (:variant-vars)
   (:save-p :force-to-stack)
+  (:vop-var vop)
   (:generator 30
+    (note-this-location vop :non-local-exit)
     (unless (location= a0 top)
       (inst lr a0 top))
     (inst miscopx 'clc::nlx-entry-default-values)
@@ -186,7 +188,9 @@
   (:ignore start count nl0 nl1 a2 a3 misc-pc)
   (:variant-vars)
   (:save-p :force-to-stack)
+  (:vop-var vop)
   (:generator 30
+    (note-this-location vop :non-local-exit)
     (unless (location= a0 top)
       (inst lr a0 top))
     (inst miscop 'clc::nlx-entry-receive-values)
@@ -202,4 +206,6 @@
   (:save-p :force-to-stack)
   (:results (block) (start) (count))
   (:ignore block start count)
-  (:generator 0))
+  (:vop-var vop)
+  (:generator 0
+    (note-this-location vop :non-local-exit)))
-- 
GitLab