diff --git a/compiler/old-rt/nlx.lisp b/compiler/old-rt/nlx.lisp index d7e970bee60caa244c4dc5bec104d66b129ad6e7..a4ed6e6348022ea17dd2f534810e7e571b4e2979 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)))