xref: /netbsd-src/external/gpl3/gdb/dist/sim/testsuite/sh/shlr.s (revision 4b169a6ba595ae283ca507b26b15fdff40495b1c)
1# sh testcase for shlr
2# mach: all
3# as(sh):	-defsym sim_cpu=0
4# as(shdsp):	-defsym sim_cpu=1 -dsp
5
6	.include "testutils.inc"
7
8	start
9
10shlr:
11	set_grs_a5a5
12	mov #0, r0
13	or #192, r0
14	shlr r0
15	assertreg0 96
16	shlr r0
17	assertreg0 48
18	shlr r0
19	assertreg0 24
20	shlr r0
21	assertreg0 12
22	shlr r0
23	assertreg0 6
24	shlr r0
25	assertreg0 3
26
27	# Make sure a bit is shifted into T.
28	shlr r0
29	bf wrong
30	assertreg0 1
31	# Ditto.
32	shlr r0
33	bf wrong
34	assertreg0 0
35
36	set_greg 0xa5a5a5a5, r0
37	test_grs_a5a5
38	pass
39	exit 0
40
41wrong:
42	fail
43