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(a0, 1) # a0 <- BBBB 7 GET_OPA(a1) # a1 <- AA 8 EAS2(a1, rFP, a1) # a1 <- &object 9 lw a2, OFF_FP_METHOD(rFP) # a2 <- method 10 move a3, rSELF # a3 <- self 11 JAL(MterpCheckCast) # v0 <- CheckCast(index, &obj, method, self) 12 PREFETCH_INST(2) 13 bnez v0, MterpPossibleException 14 ADVANCE(2) 15 GET_INST_OPCODE(t0) # extract opcode from rINST 16 GOTO_OPCODE(t0) # jump to next instruction 17