binutils-gdb/sim/testsuite/frv/call.pcgs

# frv parallel testcase for call $label24
# mach: fr500 fr550 frv

	.include "testutils.inc"

	start

	.global call
call:
	set_spr_immed	0,lr
	call		ok1
bad1:
	fail
ok1:
	test_spr_addr	bad1,lr

	set_spr_immed	0,lr
	setlos.p	0,gr5
	call.p		ok2
	bra		bad3
bad2:
	setlos		5,gr5
	fail
bad3:
	fail
ok2:
	test_spr_addr	bad2,lr
	test_gr_immed	0,gr5

	pass
New sim testsuite for Fujitsu FRV. Contributed by Red Hat. 2003-08-30 00:41:31 +08:00			`# frv parallel testcase for call $label24`
2003-10-06 Dave Brolley <brolley@redhat.com> * sim/frv/fr550: New subdirectory. * sim/frv/fr400/.cgs: Add fr550 as appropriate. sim/frv/fr500/.cgs: Add fr550 as appropriate. sim/frv/interrupts/.cgs: Add fr550 as appropriate. sim/frv/interrupts/*-fr550.cgs: New test cases for fr550. 2003-10-09 02:21:02 +08:00			`# mach: fr500 fr550 frv`
New sim testsuite for Fujitsu FRV. Contributed by Red Hat. 2003-08-30 00:41:31 +08:00
			`.include "testutils.inc"`

			`start`

			`.global call`
			`call:`
			`set_spr_immed 0,lr`
			`call ok1`
			`bad1:`
			`fail`
			`ok1:`
			`test_spr_addr bad1,lr`

			`set_spr_immed 0,lr`
			`setlos.p 0,gr5`
			`call.p ok2`
			`bra bad3`
			`bad2:`
			`setlos 5,gr5`
			`fail`
			`bad3:`
			`fail`
			`ok2:`
			`test_spr_addr bad2,lr`
			`test_gr_immed 0,gr5`

			`pass`