Test arithmetic operations for normal, NaN and Inf arguments. Signed-off-by: Max Filippov <jcmvbkbc@gmail.com>
174 lines
4.9 KiB
ArmAsm
174 lines
4.9 KiB
ArmAsm
#include "macros.inc"
|
|
|
|
test_suite fp0_arith
|
|
|
|
#if XCHAL_HAVE_FP
|
|
|
|
.macro movfp fr, v
|
|
movi a2, \v
|
|
wfr \fr, a2
|
|
.endm
|
|
|
|
.macro check_res fr, r
|
|
rfr a2, \fr
|
|
dump a2
|
|
movi a3, \r
|
|
assert eq, a2, a3
|
|
rur a2, fsr
|
|
assert eqi, a2, 0
|
|
.endm
|
|
|
|
.macro test_op2_rm op, fr0, fr1, fr2, v0, v1, r
|
|
movi a2, 0
|
|
wur a2, fsr
|
|
movfp \fr0, \v0
|
|
movfp \fr1, \v1
|
|
\op \fr2, \fr0, \fr1
|
|
check_res \fr2, \r
|
|
.endm
|
|
|
|
.macro test_op3_rm op, fr0, fr1, fr2, fr3, v0, v1, v2, r
|
|
movi a2, 0
|
|
wur a2, fsr
|
|
movfp \fr0, \v0
|
|
movfp \fr1, \v1
|
|
movfp \fr2, \v2
|
|
\op \fr0, \fr1, \fr2
|
|
check_res \fr3, \r
|
|
.endm
|
|
|
|
.macro test_op2_ex op, fr0, fr1, fr2, v0, v1, rm, r
|
|
movi a2, \rm
|
|
wur a2, fcr
|
|
test_op2_rm \op, \fr0, \fr1, \fr2, \v0, \v1, \r
|
|
movi a2, (\rm) | 0x7c
|
|
wur a2, fcr
|
|
test_op2_rm \op, \fr0, \fr1, \fr2, \v0, \v1, \r
|
|
.endm
|
|
|
|
.macro test_op3_ex op, fr0, fr1, fr2, fr3, v0, v1, v2, rm, r
|
|
movi a2, \rm
|
|
wur a2, fcr
|
|
test_op3_rm \op, \fr0, \fr1, \fr2, \fr3, \v0, \v1, \v2, \r
|
|
movi a2, (\rm) | 0x7c
|
|
wur a2, fcr
|
|
test_op3_rm \op, \fr0, \fr1, \fr2, \fr3, \v0, \v1, \v2, \r
|
|
.endm
|
|
|
|
.macro test_op2 op, fr0, fr1, fr2, v0, v1, r0, r1, r2, r3
|
|
test_op2_ex \op, \fr0, \fr1, \fr2, \v0, \v1, 0, \r0
|
|
test_op2_ex \op, \fr0, \fr1, \fr2, \v0, \v1, 1, \r1
|
|
test_op2_ex \op, \fr0, \fr1, \fr2, \v0, \v1, 2, \r2
|
|
test_op2_ex \op, \fr0, \fr1, \fr2, \v0, \v1, 3, \r3
|
|
.endm
|
|
|
|
.macro test_op3 op, fr0, fr1, fr2, fr3, v0, v1, v2, r0, r1, r2, r3
|
|
test_op3_ex \op, \fr0, \fr1, \fr2, \fr3, \v0, \v1, \v2, 0, \r0
|
|
test_op3_ex \op, \fr0, \fr1, \fr2, \fr3, \v0, \v1, \v2, 1, \r1
|
|
test_op3_ex \op, \fr0, \fr1, \fr2, \fr3, \v0, \v1, \v2, 2, \r2
|
|
test_op3_ex \op, \fr0, \fr1, \fr2, \fr3, \v0, \v1, \v2, 3, \r3
|
|
.endm
|
|
|
|
.macro test_op2_cpe op
|
|
set_vector kernel, 2f
|
|
movi a2, 0
|
|
wsr a2, cpenable
|
|
1:
|
|
\op f2, f0, f1
|
|
test_fail
|
|
2:
|
|
rsr a2, excvaddr
|
|
movi a3, 1b
|
|
assert eq, a2, a3
|
|
rsr a2, exccause
|
|
movi a3, 32
|
|
assert eq, a2, a3
|
|
|
|
set_vector kernel, 0
|
|
movi a2, 1
|
|
wsr a2, cpenable
|
|
.endm
|
|
|
|
test add_s
|
|
movi a2, 1
|
|
wsr a2, cpenable
|
|
|
|
test_op2 add.s, f0, f1, f2, 0x3fc00000, 0x34400000, \
|
|
0x3fc00002, 0x3fc00001, 0x3fc00002, 0x3fc00001
|
|
test_op2 add.s, f3, f4, f5, 0x3fc00000, 0x34a00000, \
|
|
0x3fc00002, 0x3fc00002, 0x3fc00003, 0x3fc00002
|
|
|
|
/* MAX_FLOAT + MAX_FLOAT = +inf/MAX_FLOAT */
|
|
test_op2 add.s, f6, f7, f8, 0x7f7fffff, 0x7f7fffff, \
|
|
0x7f800000, 0x7f7fffff, 0x7f800000, 0x7f7fffff
|
|
test_end
|
|
|
|
test add_s_inf
|
|
/* 1 + +inf = +inf */
|
|
test_op2 add.s, f6, f7, f8, 0x3fc00000, 0x7f800000, \
|
|
0x7f800000, 0x7f800000, 0x7f800000, 0x7f800000
|
|
|
|
/* +inf + -inf = default NaN */
|
|
test_op2 add.s, f0, f1, f2, 0x7f800000, 0xff800000, \
|
|
0x7fc00000, 0x7fc00000, 0x7fc00000, 0x7fc00000
|
|
test_end
|
|
|
|
test add_s_nan
|
|
/* 1 + NaN = NaN */
|
|
test_op2 add.s, f9, f10, f11, 0x3fc00000, 0x7fc00001, \
|
|
0x7fc00001, 0x7fc00001, 0x7fc00001, 0x7fc00001
|
|
test_op2 add.s, f12, f13, f14, 0x3fc00000, 0x7f800001, \
|
|
0x7f800001, 0x7f800001, 0x7f800001, 0x7f800001
|
|
|
|
/* NaN1 + NaN2 = NaN1 */
|
|
test_op2 add.s, f15, f0, f1, 0x7f800001, 0x7fbfffff, \
|
|
0x7f800001, 0x7f800001, 0x7f800001, 0x7f800001
|
|
test_op2 add.s, f2, f3, f4, 0x7fbfffff, 0x7f800001, \
|
|
0x7fbfffff, 0x7fbfffff, 0x7fbfffff, 0x7fbfffff
|
|
test_op2 add.s, f5, f6, f7, 0x7fc00001, 0x7fbfffff, \
|
|
0x7fc00001, 0x7fc00001, 0x7fc00001, 0x7fc00001
|
|
test_op2 add.s, f8, f9, f10, 0x7fbfffff, 0x7fc00001, \
|
|
0x7fbfffff, 0x7fbfffff, 0x7fbfffff, 0x7fbfffff
|
|
test_end
|
|
|
|
test sub_s
|
|
test_op2 sub.s, f0, f1, f0, 0x3f800001, 0x33800000, \
|
|
0x3f800000, 0x3f800000, 0x3f800001, 0x3f800000
|
|
test_op2 sub.s, f0, f1, f1, 0x3f800002, 0x33800000, \
|
|
0x3f800002, 0x3f800001, 0x3f800002, 0x3f800001
|
|
|
|
/* norm - norm = denorm */
|
|
test_op2 sub.s, f6, f7, f8, 0x00800001, 0x00800000, \
|
|
0x00000001, 0x00000001, 0x00000001, 0x00000001
|
|
test_end
|
|
|
|
test mul_s
|
|
test_op2 mul.s, f0, f1, f2, 0x3f800001, 0x3f800001, \
|
|
0x3f800002, 0x3f800002, 0x3f800003, 0x3f800002
|
|
|
|
/* MAX_FLOAT/2 * MAX_FLOAT/2 = +inf/MAX_FLOAT */
|
|
test_op2 mul.s, f6, f7, f8, 0x7f000000, 0x7f000000, \
|
|
0x7f800000, 0x7f7fffff, 0x7f800000, 0x7f7fffff
|
|
/* min norm * min norm = 0/denorm */
|
|
test_op2 mul.s, f6, f7, f8, 0x00800001, 0x00800000, \
|
|
0x00000000, 0x00000000, 0x00000001, 0x00000000
|
|
|
|
/* inf * 0 = default NaN */
|
|
test_op2 mul.s, f6, f7, f8, 0x7f800000, 0x00000000, \
|
|
0x7fc00000, 0x7fc00000, 0x7fc00000, 0x7fc00000
|
|
test_end
|
|
|
|
test madd_s
|
|
test_op3 madd.s, f0, f1, f2, f0, 0, 0x3f800001, 0x3f800001, \
|
|
0x3f800002, 0x3f800002, 0x3f800003, 0x3f800002
|
|
test_end
|
|
|
|
test msub_s
|
|
test_op3 msub.s, f0, f1, f2, f0, 0x3f800000, 0x3f800001, 0x3f800001, \
|
|
0xb4800000, 0xb4800000, 0xb4800000, 0xb4800001
|
|
test_end
|
|
|
|
#endif
|
|
|
|
test_suite_end
|