1# frv testcase for stfi $FRk,@($GRi,$GRj)
2# mach: all
3
4	.include "testutils.inc"
5
6	start
7
8	.global stfi
9stfi:
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	inc_gr_immed	-4,sp
16	set_mem_limmed	0x1234,0x5678,sp
17	set_gr_gr	sp,gr22
18	set_fr_iimmed	0xffff,0xffff,fr8
19
20	stfi		fr8,@(sp,0)
21	test_mem_limmed	0xffff,0xffff,gr22
22	test_mem_limmed	0xbeef,0xdead,gr21
23	test_mem_limmed	0xdead,0xbeef,gr20
24
25	inc_gr_immed	0x804,sp	; 2052
26	stfi		fr8,@(sp,-2048)
27	test_mem_limmed	0xffff,0xffff,gr22
28	test_mem_limmed	0xffff,0xffff,gr21
29	test_mem_limmed	0xdead,0xbeef,gr20
30
31	inc_gr_immed	-4088,sp
32	stfi		fr8,@(sp,0x7fc)
33	test_mem_limmed	0xffff,0xffff,gr22
34	test_mem_limmed	0xffff,0xffff,gr21
35	test_mem_limmed	0xffff,0xffff,gr20
36
37	pass
38