(:args (catch :scs (descriptor-reg))
(nfp :scs (descriptor-reg))
(nsp :scs (descriptor-reg)))
(:args (catch :scs (descriptor-reg))
(nfp :scs (descriptor-reg))
(nsp :scs (descriptor-reg)))
(:temporary (:scs (non-descriptor-reg)) ndescr)
(:generator 22
(inst addi block cfp-tn (* (tn-offset tn) n-word-bytes))
(:temporary (:scs (non-descriptor-reg)) ndescr)
(:generator 22
(inst addi block cfp-tn (* (tn-offset tn) n-word-bytes))
(storew temp block unwind-block-current-uwp-slot)
(storew cfp-tn block unwind-block-current-cont-slot)
(storew code-tn block unwind-block-current-code-slot)
(storew temp block unwind-block-current-uwp-slot)
(storew cfp-tn block unwind-block-current-cont-slot)
(storew code-tn block unwind-block-current-code-slot)
(:temporary (:scs (non-descriptor-reg)) ndescr)
(:generator 44
(inst addi result cfp-tn (* (tn-offset tn) n-word-bytes))
(:temporary (:scs (non-descriptor-reg)) ndescr)
(:generator 44
(inst addi result cfp-tn (* (tn-offset tn) n-word-bytes))
(storew temp result catch-block-current-uwp-slot)
(storew cfp-tn result catch-block-current-cont-slot)
(storew code-tn result catch-block-current-code-slot)
(storew temp result catch-block-current-uwp-slot)
(storew cfp-tn result catch-block-current-cont-slot)
(storew code-tn result catch-block-current-code-slot)