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

Deleted old TN-ENVIRONMENT.

parent e490b020
No related branches found
No related tags found
No related merge requests found
...@@ -514,15 +514,3 @@ ...@@ -514,15 +514,3 @@
(return))))) (return)))))
(undefined-value)) (undefined-value))
;;; TN-Environment -- Interface
;;;
;;; Return some Environment that TN is referenced in. TN must have at least
;;; one reference (either read or write.) Note that some TNs are referenced in
;;; multiple environments.
;;;
(defun tn-environment (tn)
(declare (type tn tn))
(let ((ref (or (tn-reads tn) (tn-writes tn))))
(assert ref)
(block-environment (ir2-block-block (vop-block (tn-ref-vop ref))))))
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