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

In CONFLICT-ANALYZE-1-BLOCK, when processing :FORCE-TO-STACK SAVE-P values,

always do the FORCE-TN-TO-STACK unless it is :COMPONENT.  Formerly,
any TNs that weren't :NORMAL weren't forced, including :ENVIRONMENT arguments.
parent e782bd00
No related branches found
No related tags found
No related merge requests found
...@@ -642,7 +642,7 @@ ...@@ -642,7 +642,7 @@
(setf (vop-save-set vop) ss) (setf (vop-save-set vop) ss)
(when (eq save-p :force-to-stack) (when (eq save-p :force-to-stack)
(do-live-tns (tn ss block) (do-live-tns (tn ss block)
(when (eq (tn-kind tn) :normal) (unless (eq (tn-kind tn) :component)
(force-tn-to-stack tn) (force-tn-to-stack tn)
(convert-to-environment-tn tn))))))) (convert-to-environment-tn tn)))))))
......
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