[pcsx_rearmed.git] / deps / lightning / check / divi.tst

.data	128
small_ops:
.i	40 64 80
large_ops:
.i	98304 65536 163840
fmt:
.c	"%i/%i = %i (expected %i)\n"
x:
.c	"%d\n"
.code
	jmpi main

#define generate_divider(operand)	\
	name divider_##operand		\
divider_##operand:			\
	prolog				\
	arg $i				\
	getarg %r1 $i			\
	divi %r2 %r1 operand		\
	retr %r2			\
	epilog
generate_divider(8)
generate_divider(32768)

#define generate_test_divider(divisor)	\
	name test_divider_##divisor	\
test_divider_##divisor:			\
	prolog				\
	allocai 4 $loc			\
	arg $p				\
	arg $c				\
	getarg %v0 $p			\
	getarg %v1 $c			\
	muli %v1 %v1 4			\
	addr %v1 %v0 %v1		\
loop_##divisor:				\
	bger done_##divisor %v0 %v1	\
	ldr_i %v2 %v0			\
	prepare				\
		pushargr %v2		\
	finishi divider_##divisor	\
	retval %v2			\
	ldr_i %r2 %v0			\
	divi %r0 %r2 divisor		\
	/* save div result */		\
	stxi_i $loc %fp %r0		\
	prepare				\
		pushargi fmt		\
		ellipsis		\
		pushargr %r2		\
		pushargi divisor	\
		pushargr %v2		\
		pushargr %r0		\
	finishi @printf			\
	addi %v0 %v0 4			\
	/* reload div result */		\
	ldxi_i %r0 %fp $loc		\
	beqr loop_##divisor %r0 %v2	\
	/* return if failed */		\
	reti 1				\
done_##divisor:				\
	reti 0				\
	epilog
generate_test_divider(8)
generate_test_divider(32768)

	name main
main:
	prolog
	prepare
		pushargi small_ops
		pushargi 3
	finishi test_divider_8
	retval %r0
	bnei fail %r0 0	
	prepare
		pushargi large_ops
		pushargi 3
	finishi test_divider_32768
	retval %r0
	bnei fail %r0 0	
	reti 0
fail:
	reti 1
	epilog
Commit	Line	Data
4a71579b PC	1	.data 128
	2	small_ops:
	3	.i 40 64 80
	4	large_ops:
	5	.i 98304 65536 163840
	6	fmt:
	7	.c "%i/%i = %i (expected %i)\n"
	8	x:
	9	.c "%d\n"
	10	.code
	11	jmpi main
	12
	13	#define generate_divider(operand) \
	14	name divider_##operand \
	15	divider_##operand: \
	16	prolog \
	17	arg $i \
	18	getarg %r1 $i \
	19	divi %r2 %r1 operand \
	20	retr %r2 \
	21	epilog
	22	generate_divider(8)
	23	generate_divider(32768)
	24
	25	#define generate_test_divider(divisor) \
	26	name test_divider_##divisor \
	27	test_divider_##divisor: \
	28	prolog \
	29	allocai 4 $loc \
	30	arg $p \
	31	arg $c \
	32	getarg %v0 $p \
	33	getarg %v1 $c \
	34	muli %v1 %v1 4 \
	35	addr %v1 %v0 %v1 \
	36	loop_##divisor: \
	37	bger done_##divisor %v0 %v1 \
	38	ldr_i %v2 %v0 \
	39	prepare \
	40	pushargr %v2 \
	41	finishi divider_##divisor \
	42	retval %v2 \
	43	ldr_i %r2 %v0 \
	44	divi %r0 %r2 divisor \
	45	/* save div result */ \
	46	stxi_i $loc %fp %r0 \
	47	prepare \
	48	pushargi fmt \
	49	ellipsis \
	50	pushargr %r2 \
	51	pushargi divisor \
	52	pushargr %v2 \
	53	pushargr %r0 \
	54	finishi @printf \
	55	addi %v0 %v0 4 \
	56	/* reload div result */ \
	57	ldxi_i %r0 %fp $loc \
	58	beqr loop_##divisor %r0 %v2 \
	59	/* return if failed */ \
	60	reti 1 \
	61	done_##divisor: \
	62	reti 0 \
	63	epilog
	64	generate_test_divider(8)
65	generate_test_divider(32768)
66
67	name main
68	main:
69	prolog
70	prepare
71	pushargi small_ops
72	pushargi 3
73	finishi test_divider_8
74	retval %r0
75	bnei fail %r0 0
76	prepare
77	pushargi large_ops
78	pushargi 3
79	finishi test_divider_32768
80	retval %r0
81	bnei fail %r0 0
82	reti 0
83	fail:
84	reti 1
85	epilog