Skip to content
Snippets Groups Projects
Commit 2d022be8 authored by ram's avatar ram
Browse files

Deal with :block and :tagbody being seprate cleanup-kinds now.

parent 2e8c0783
No related branches found
No related tags found
No related merge requests found
......@@ -212,7 +212,8 @@
(dolist (nlx (environment-nlx-info env))
(setf (nlx-info-info nlx)
(make-ir2-nlx-info
:home (when (eq (cleanup-kind (nlx-info-cleanup nlx)) :entry)
:home (when (member (cleanup-kind (nlx-info-cleanup nlx))
'(:block :tagbody))
(make-normal-tn *any-primitive-type*))
:save-sp (make-nlx-sp-tn env)))))
(undefined-value))
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment