Lines Matching refs:rinst
124 (let loop ((rinst (bblock-instructions bblock)))
125 (procedure rinst)
126 (if (rinst-next rinst) (loop (rinst-next rinst)))))
129 (let loop ((rinst (bblock-instructions bblock)))
130 (if (rinst-next rinst) (loop (rinst-next rinst)))
131 (procedure rinst)))
140 (define (loop rinst)
142 (and (rinst-next rinst)
143 (loop (rinst-next rinst)))))
144 (if (rinst-rtl rinst)
145 (begin (set-rinst-next! rinst next)
146 rinst)
181 (define-vector-slots rinst 0 unknown
189 (define-integrable (rinst-dead-register? rinst register)
190 (memq register (rinst-dead-registers rinst)))
192 (define (rinst-last rinst)
193 (if (rinst-next rinst)
194 (rinst-last (rinst-next rinst))
195 rinst))
197 (define (rinst-disconnect-previous! bblock rinst)
199 (if (eq? rinst (rinst-next rinst*))
203 (define (rinst-length rinst)
204 (let loop ((rinst rinst) (length 0))
205 (if rinst
206 (loop (rinst-next rinst) (1+ length))
209 (define (rinst-reversed rinst)
210 (let loop ((rinst rinst) (result '()))
211 (if rinst
212 (loop (rinst-next rinst) (cons rinst result))