1 %default {"preinstr":"", "result":"a0", "chkzero":"0"} 2 /* 3 * Generic 32-bit "/2addr" binary operation. Provide an "instr" line 4 * that specifies an instruction that performs "result = a0 op a1". 5 * This could be an MIPS instruction or a function call. 6 * 7 * If "chkzero" is set to 1, we perform a divide-by-zero check on 8 * vCC (a1). Useful for integer division and modulus. 9 * 10 * For: add-int/2addr, sub-int/2addr, mul-int/2addr, div-int/2addr, 11 * rem-int/2addr, and-int/2addr, or-int/2addr, xor-int/2addr, 12 * shl-int/2addr, shr-int/2addr, ushr-int/2addr 13 */ 14 /* binop/2addr vA, vB */ 15 GET_OPA4(rOBJ) # rOBJ <- A+ 16 GET_OPB(a3) # a3 <- B 17 GET_VREG(a0, rOBJ) # a0 <- vA 18 GET_VREG(a1, a3) # a1 <- vB 19 .if $chkzero 20 # is second operand zero? 21 beqz a1, common_errDivideByZero 22 .endif 23 FETCH_ADVANCE_INST(1) # advance rPC, load rINST 24 25 $preinstr # optional op 26 $instr # $result <- op, a0-a3 changed 27 GET_INST_OPCODE(t0) # extract opcode from rINST 28 SET_VREG_GOTO($result, rOBJ, t0) # vAA <- $result 29 /* 10-13 instructions */ 30 31
