/[cmucl]/src/compiler/tn.lisp
ViewVC logotype

Diff of /src/compiler/tn.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8 by ram, Thu Aug 16 16:33:07 1990 UTC revision 1.9 by ram, Thu Aug 16 19:34:56 1990 UTC
# Line 514  Line 514 
514            (return)))))            (return)))))
515    (undefined-value))    (undefined-value))
516    
   
 ;;; 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))))))  

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

  ViewVC Help
Powered by ViewVC 1.1.5