1# frv testcase for sthfi $FRk,@($GRi,$GRj)
2# mach: all
3
4	.include "testutils.inc"
5
6	start
7
8	.global sthfi
9sthfi:
10	set_mem_limmed	0xdead,0xbeef,sp
11	set_gr_gr	sp,gr20
12	inc_gr_immed	-4,sp
13	set_mem_limmed	0xbeef,0xdead,sp
14	set_gr_gr	sp,gr21
15	set_fr_iimmed	0xffff,0xffff,fr8
16
17	sthfi		fr8,@(sp,0)
18	test_mem_limmed	0xffff,0xdead,gr21
19	test_mem_limmed	0xdead,0xbeef,gr20
20
21	inc_gr_immed	0x802,sp	; 2050
22	sthfi		fr8,@(sp,-2048)
23	test_mem_limmed	0xffff,0xffff,gr21
24	test_mem_limmed	0xdead,0xbeef,gr20
25
26	inc_gr_immed	-4092,sp
27	sthfi		fr8,@(sp,0x7fe)
28	test_mem_limmed	0xffff,0xffff,gr21
29	test_mem_limmed	0xffff,0xbeef,gr20
30
31	pass
32