Ignore:
Timestamp:
Feb 11, 2009, 1:24:14 AM (11 years ago)
Author:
gb
Message:

Propagate r11711 to 1.3.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/1.3/source/compiler/vinsn.lisp

    r11289 r11713  
    491491       
    492492
     493;;; Return T if any vinsn between START and END (exclusive) has all
     494;;; attributes set in MASK set.
     495(defun %vinsn-sequence-has-attribute-p (start end attr)
     496  (do* ((element (vinsn-succ start) (vinsn-succ element)))
     497       ((eq element end))
     498    (when (typep element 'vinsn)
     499      (when (eql attr (logand (vinsn-template-attributes (vinsn-template element))))
     500        (return t)))))
     501
     502(defmacro vinsn-sequence-has-attribute-p (start end &rest attrs)
     503  `(%vinsn-sequence-has-attribute-p ,start ,end ,(encode-vinsn-attributes attrs)))
     504
     505                               
    493506;;; Flow-graph nodes (FGNs)
    494507
Note: See TracChangeset for help on using the changeset viewer.