diff options
Diffstat (limited to 'vm/mterp/armv5te/unopNarrower.S')
| -rw-r--r-- | vm/mterp/armv5te/unopNarrower.S | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/vm/mterp/armv5te/unopNarrower.S b/vm/mterp/armv5te/unopNarrower.S new file mode 100644 index 0000000..f1ad902 --- /dev/null +++ b/vm/mterp/armv5te/unopNarrower.S @@ -0,0 +1,24 @@ +%default {"preinstr":""} + /* + * Generic 64bit-to-32bit unary operation. Provide an "instr" line + * that specifies an instruction that performs "result = op r0/r1", where + * "result" is a 32-bit quantity in r0. + * + * For: long-to-float, double-to-int, double-to-float + * + * (This would work for long-to-int, but that instruction is actually + * an exact match for OP_MOVE.) + */ + /* unop vA, vB */ + mov r3, rINST, lsr #12 @ r3<- B + mov r9, rINST, lsr #8 @ r9<- A+ + add r3, rFP, r3, lsl #2 @ r3<- &fp[B] + and r9, r9, #15 + ldmia r3, {r0-r1} @ r0/r1<- vB/vB+1 + FETCH_ADVANCE_INST(1) @ advance rPC, load rINST + $preinstr @ optional op; may set condition codes + $instr @ r0<- op, r0-r3 changed + GET_INST_OPCODE(ip) @ extract opcode from rINST + SET_VREG(r0, r9) @ vA<- r0 + GOTO_OPCODE(ip) @ jump to next instruction + /* 10-11 instructions */ |