(loadw temp x 0 other-pointer-lowtag)
(inst sra temp n-widetag-bits)
(inst sub temp (1- array-dimensions-offset))
(loadw temp x 0 other-pointer-lowtag)
(inst sra temp n-widetag-bits)
(inst sub temp (1- array-dimensions-offset))
(:temporary (:scs (non-descriptor-reg) :to (:result 0)) temp result)
(:generator 20
(inst srl temp index ,bit-shift)
(:temporary (:scs (non-descriptor-reg) :to (:result 0)) temp result)
(:generator 20
(inst srl temp index ,bit-shift)
(:temporary (:scs (non-descriptor-reg) :from (:argument 1)) shift)
(:generator 25
(inst srl offset index ,bit-shift)
(:temporary (:scs (non-descriptor-reg) :from (:argument 1)) shift)
(:generator 25
(inst srl offset index ,bit-shift)