Ignore:
Timestamp:
Sep 15, 2010, 12:07:42 AM (9 years ago)
Author:
gz
Message:

r14258 from trunk (defstruct changes)

Location:
branches/qres/ccl
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/qres/ccl

  • branches/qres/ccl/compiler/vinsn.lisp

    r13070 r14259  
    476476  (let* ((gprs-set 0)
    477477         (fprs-set 0))
    478     (do* ((element (vinsn-succ start) (vinsn-succ element)))
     478    (do* ((element (dll-node-succ start) (dll-node-succ element)))
    479479         ((eq element end) (values gprs-set fprs-set))n
    480480      (if (typep element 'vinsn)
     
    486486;;; Return T if any vinsn between START and END (exclusive) sets REG.
    487487(defun vinsn-sequence-sets-reg-p (start end reg)
    488   (do* ((element (vinsn-succ start) (vinsn-succ element)))
     488  (do* ((element (dll-node-succ start) (dll-node-succ element)))
    489489       ((eq element end))
    490490    (if (vinsn-sets-reg-p element reg)
     
    495495;;; attributes set in MASK set.
    496496(defun %vinsn-sequence-has-attribute-p (start end attr)
    497   (do* ((element (vinsn-succ start) (vinsn-succ element)))
     497  (do* ((element (dll-node-succ start) (dll-node-succ element)))
    498498       ((eq element end))
    499499    (when (typep element 'vinsn)
Note: See TracChangeset for help on using the changeset viewer.