[deliverable/binutils-gdb.git] / sim / testsuite / sim / fr30 / call.cgs

# fr30 testcase for call @$Ri
# mach(): fr30

	.include "testutils.inc"

	START

	.text
	.global call

	; Test call $Ri
	mvi_h_gr   	#func1,r0
	set_cc          0x0f		; condition codes shouldn't change
call1:
	call		@r0
	fail
func1:
	test_cc		1 1 1 1
	mvi_h_gr	#call1,r7
	inci_h_gr	2,r7
	testr_h_dr	r7,rp

	mvi_h_gr   	#func2,r0
	set_cc          0x0f		; condition codes shouldn't change
call2:
	call:d		@r0
	ldi:8		1,r0		; Must assume this works
	fail
func2:
	test_cc		1 1 1 1
	mvi_h_gr	#call2,r7
	inci_h_gr	4,r7
	testr_h_dr	r7,rp
	testr_h_gr	1,r0

	pass
Commit	Line	Data
2cf8f53c DB	1	# fr30 testcase for call @$Ri
	2	# mach(): fr30
	3
	4	.include "testutils.inc"
	5
	6	START
	7
	8	.text
	9	.global call
	10
	11	; Test call $Ri
	12	mvi_h_gr #func1,r0
	13	set_cc 0x0f ; condition codes shouldn't change
	14	call1:
	15	call @r0
	16	fail
	17	func1:
	18	test_cc 1 1 1 1
	19	mvi_h_gr #call1,r7
	20	inci_h_gr 2,r7
	21	testr_h_dr r7,rp
	22
	23	mvi_h_gr #func2,r0
	24	set_cc 0x0f ; condition codes shouldn't change
	25	call2:
	26	call:d @r0
	27	ldi:8 1,r0 ; Must assume this works
	28	fail
	29	func2:
	30	test_cc 1 1 1 1
	31	mvi_h_gr #call2,r7
	32	inci_h_gr 4,r7
	33	testr_h_dr r7,rp
	34	testr_h_gr 1,r0
	35
	36	pass