Lines Matching refs:conts

91 (define (compute-max-label-and-var conts)
92   (values (or (intmap-prev conts) -1)
100                        conts
103 (define (compute-function-body conts kfun)
110          (match (intmap-ref conts label)
135 (define (compute-singly-referenced-labels conts)
162                 ((single multiple) (intmap-fold add-ref conts single multiple)))
166 (define* (compute-reachable-functions conts #:optional (kfun 0))
177        (match (intmap-ref conts label)
197                    (let ((body (compute-function-body conts kfun)))
205 (define* (compute-successors conts #:optional (kfun (intmap-next conts)))
221           (match (intmap-ref conts label)
242 (define* (compute-predecessors conts kfun #:key
243                                (labels (compute-function-body conts kfun)))
249     (match (intmap-ref conts label)
271 (define (compute-idoms conts kfun)
276   (let ((preds-map (compute-predecessors conts kfun)))
307 (define (compute-idoms conts kfun)
312   (let ((preds-map (compute-predecessors conts kfun)))