diff options
author | Aurelien Jarno <aurelien@aurel32.net> | 2011-01-14 20:39:18 +0100 |
---|---|---|
committer | Aurelien Jarno <aurelien@aurel32.net> | 2011-01-14 20:39:18 +0100 |
commit | af8c2bde4b4d4111e5bf49417b74069ce8750435 (patch) | |
tree | 79fc99ba37c57a64a3a7800399e3c96849724ae9 /target-sh4/op_helper.c | |
parent | 21829e9b39e3aa0874931aa6981f258c82f41715 (diff) | |
download | hqemu-af8c2bde4b4d4111e5bf49417b74069ce8750435.zip hqemu-af8c2bde4b4d4111e5bf49417b74069ce8750435.tar.gz |
target-sh4: add fipr instruction
Add the fipr FVm,FVn instruction, which computes the inner products of
a 4-dimensional single precision floating-point vector.
Signed-off-by: Aurelien Jarno <aurelien@aurel32.net>
Diffstat (limited to 'target-sh4/op_helper.c')
-rw-r--r-- | target-sh4/op_helper.c | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/target-sh4/op_helper.c b/target-sh4/op_helper.c index aea0eb1..030f60d 100644 --- a/target-sh4/op_helper.c +++ b/target-sh4/op_helper.c @@ -782,3 +782,23 @@ uint32_t helper_ftrc_DT(uint64_t t0) update_fpscr(GETPC()); return ret; } + +void helper_fipr(uint32_t m, uint32_t n) +{ + int bank, i; + float32 r, p; + + bank = (env->sr & FPSCR_FR) ? 16 : 0; + r = float32_zero; + set_float_exception_flags(0, &env->fp_status); + + for (i = 0 ; i < 4 ; i++) { + p = float32_mul(env->fregs[bank + m + i], + env->fregs[bank + n + i], + &env->fp_status); + r = float32_add(r, p, &env->fp_status); + } + update_fpscr(GETPC()); + + env->fregs[bank + n + 3] = r; +} |