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
