(inst sll ndescr word-shift ndescr)
(inst subq ndescr other-pointer-lowtag ndescr)
(inst addq code ndescr sap)))
(inst sll ndescr word-shift ndescr)
(inst subq ndescr other-pointer-lowtag ndescr)
(inst addq code ndescr sap)))
(:args (code :scs (descriptor-reg))
(offset :scs (signed-reg unsigned-reg)))
(:arg-types * positive-fixnum)
(:args (code :scs (descriptor-reg))
(offset :scs (signed-reg unsigned-reg)))
(:arg-types * positive-fixnum)
(inst sll ndescr word-shift ndescr)
(inst addq ndescr offset ndescr)
(inst subq ndescr (- other-pointer-lowtag fun-pointer-lowtag) ndescr)
(inst sll ndescr word-shift ndescr)
(inst addq ndescr offset ndescr)
(inst subq ndescr (- other-pointer-lowtag fun-pointer-lowtag) ndescr)
-(defknown sb!unix::do-pending-interrupt () (values))
-(define-vop (sb!unix::do-pending-interrupt)
+(defknown sb!unix::receive-pending-interrupt () (values))
+(define-vop (sb!unix::receive-pending-interrupt)
(inst ldl count offset count-vector)
(inst addq count 1 count)
(inst stl count offset count-vector))))
(inst ldl count offset count-vector)
(inst addq count 1 count)
(inst stl count offset count-vector))))