Skip to content
Snippets Groups Projects
Commit 617060d7 authored by wlott's avatar wlott
Browse files

Rob made some changes that make it less enthusiastic about allocating

the NFP tn.
parent f5bc102c
No related branches found
No related tags found
No related merge requests found
...@@ -417,9 +417,11 @@ ...@@ -417,9 +417,11 @@
;;; iterate over the referencing environments. ;;; iterate over the referencing environments.
;;; ;;;
(proclaim '(inline note-if-number-stack)) (proclaim '(inline note-if-number-stack))
(defun note-if-number-stack (tn 2comp) (defun note-if-number-stack (tn 2comp restricted)
(declare (type tn tn) (type ir2-component 2comp)) (declare (type tn tn) (type ir2-component 2comp))
(when (sc-number-stack-p (tn-sc tn)) (when (if restricted
(eq (sb-name (sc-sb (tn-sc tn))) 'non-descriptor-stack)
(sc-number-stack-p (tn-sc tn)))
(unless (ir2-component-nfp 2comp) (unless (ir2-component-nfp 2comp)
(setf (ir2-component-nfp 2comp) (make-nfp-tn))) (setf (ir2-component-nfp 2comp) (make-nfp-tn)))
(note-number-stack-tn (tn-reads tn)) (note-number-stack-tn (tn-reads tn))
...@@ -455,12 +457,12 @@ ...@@ -455,12 +457,12 @@
(do-ir2-blocks (block component) (do-ir2-blocks (block component)
(emit-moves-and-coercions block)) (emit-moves-and-coercions block))
(macrolet ((frob (slot) (macrolet ((frob (slot restricted)
`(do ((tn (,slot 2comp) (tn-next tn))) `(do ((tn (,slot 2comp) (tn-next tn)))
((null tn)) ((null tn))
(note-if-number-stack tn 2comp)))) (note-if-number-stack tn 2comp ,restricted))))
(frob ir2-component-normal-tns) (frob ir2-component-normal-tns nil)
(frob ir2-component-wired-tns) (frob ir2-component-wired-tns t)
(frob ir2-component-restricted-tns))) (frob ir2-component-restricted-tns t)))
(undefined-value)) (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