1    /*
2     * Check to see if a cast from one class to another is allowed.
3     */
4    /* check-cast vAA, class@BBBB */
5    EXPORT_PC
6    FETCH    r0, 1                      @ r0<- BBBB
7    mov      r1, rINST, lsr #8          @ r1<- AA
8    VREG_INDEX_TO_ADDR r1, r1           @ r1<- &object
9    ldr      r2, [rFP, #OFF_FP_METHOD]  @ r2<- method
10    mov      r3, rSELF                  @ r3<- self
11    bl       MterpCheckCast             @ (index, &obj, method, self)
12    PREFETCH_INST 2
13    cmp      r0, #0
14    bne      MterpPossibleException
15    ADVANCE  2
16    GET_INST_OPCODE ip                  @ extract opcode from rINST
17    GOTO_OPCODE ip                      @ jump to next instruction
18