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