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

#if __WORDSIZE == 32
#  define SIZE	4
#else
#  define SIZE	8
#endif
.data	8192
fmt:
.c	"xfibs(%d) = %d\n"
/* Simulate a language specific stack */
.align	SIZE
top:
/* Top, or base of the stack */
.size	SIZE
stk:
.size	8160

.code
	jmpi main

/* Usually a trampoline is created before the code that uses it, but
 * for testing purposes it is not required.
 * In this test case, it would mean "main" would be converted in a
 * different jit_state_t to native code, before xfibs was know.
 */
	name xfibs
xfibs:
	/* return address is in %r0 */
	/* argument and return value in %v0 */
	prolog
	tramp 64
	blti_u out %v0 2
	subi %v1 %v0 1		/* V1 = N-1 */
	subi %v2 %v0 2		/* V1 = N-2 */

	/* save return address */
	ldi %r1 top
	stxi $(SIZE * 0) %r1 %r0
	/* save operands */
	stxi $(SIZE * 1) %r1 %v0
	stxi $(SIZE * 2) %r1 %v1
	stxi $(SIZE * 3) %r1 %v2
	/* adjust "language" stack */
	addi %r1 %r1 $(SIZE * 4)
	sti top %r1

	/* return address */
	movi %r0 ret1
	/* argument */
	movr %v0 %v1
	/* indirect goto */
	jmpi xfibs
ret1:
	movr %v1 %v0		/* V1 = rfibs(N-1) */
	/* save V1 */
	ldi %r1 top
	stxi $(-SIZE * 2) %r1 %v1

	/* reload V2 */
	ldxi %v2 %r1 $(-SIZE * 1)

	/* return address */
	movi %r0 ret2
	/* argument */
	movr %v0 %v2
	/* indirect goto */
	jmpi xfibs
ret2:
	movr %v2 %v0		/* V2 = rfibs(N-2) */

	/* reload return address */
	ldi %r1 top
	subi %r1 %r1 $(SIZE * 4)
	ldxi %r0 %r1 $(SIZE * 0)
	/* reload operands */
	ldxi %v0 %r1 $(SIZE * 1)
	ldxi %v1 %r1 $(SIZE * 2)
	/* V2 already loaded */
	/* update "language" stack */
	sti top %r1

	addi %v1 %v1 1
	addr %v0 %v1 %v2
	jmpr %r0
out:
	movi %v0 1
	jmpr %r0
	epilog

	name main
main:
	prolog
	frame 64

	/* Initialize language stack */
	movi %r0 stk
	sti top %r0

	/* return address */
	movi %r0 done
	/* argument */
	movi %v0 32
	jmpi xfibs
done:
	prepare
		pushargi fmt
		ellipsis
		pushargi 32
		pushargr %v0
	finishi @printf
	ret
	epilog
Commit	Line	Data
4a71579b PC	1	#if __WORDSIZE == 32
	2	# define SIZE 4
	3	#else
	4	# define SIZE 8
	5	#endif
	6	.data 8192
	7	fmt:
	8	.c "xfibs(%d) = %d\n"
	9	/* Simulate a language specific stack */
	10	.align SIZE
	11	top:
	12	/* Top, or base of the stack */
	13	.size SIZE
	14	stk:
	15	.size 8160
	16
	17	.code
	18	jmpi main
	19
	20	/* Usually a trampoline is created before the code that uses it, but
	21	* for testing purposes it is not required.
	22	* In this test case, it would mean "main" would be converted in a
	23	* different jit_state_t to native code, before xfibs was know.
	24	*/
	25	name xfibs
	26	xfibs:
	27	/* return address is in %r0 */
	28	/* argument and return value in %v0 */
	29	prolog
	30	tramp 64
	31	blti_u out %v0 2
	32	subi %v1 %v0 1 /* V1 = N-1 */
	33	subi %v2 %v0 2 /* V1 = N-2 */
	34
	35	/* save return address */
	36	ldi %r1 top
	37	stxi $(SIZE * 0) %r1 %r0
	38	/* save operands */
	39	stxi $(SIZE * 1) %r1 %v0
	40	stxi $(SIZE * 2) %r1 %v1
	41	stxi $(SIZE * 3) %r1 %v2
	42	/* adjust "language" stack */
	43	addi %r1 %r1 $(SIZE * 4)
	44	sti top %r1
	45
	46	/* return address */
	47	movi %r0 ret1
	48	/* argument */
	49	movr %v0 %v1
	50	/* indirect goto */
	51	jmpi xfibs
	52	ret1:
	53	movr %v1 %v0 /* V1 = rfibs(N-1) */
	54	/* save V1 */
	55	ldi %r1 top
	56	stxi $(-SIZE * 2) %r1 %v1
	57
	58	/* reload V2 */
	59	ldxi %v2 %r1 $(-SIZE * 1)
	60
	61	/* return address */
	62	movi %r0 ret2
	63	/* argument */
	64	movr %v0 %v2
65	/* indirect goto */
66	jmpi xfibs
67	ret2:
68	movr %v2 %v0 /* V2 = rfibs(N-2) */
69
70	/* reload return address */
71	ldi %r1 top
72	subi %r1 %r1 $(SIZE * 4)
73	ldxi %r0 %r1 $(SIZE * 0)
74	/* reload operands */
75	ldxi %v0 %r1 $(SIZE * 1)
76	ldxi %v1 %r1 $(SIZE * 2)
77	/* V2 already loaded */
78	/* update "language" stack */
79	sti top %r1
80
81	addi %v1 %v1 1
82	addr %v0 %v1 %v2
83	jmpr %r0
84	out:
85	movi %v0 1
86	jmpr %r0
87	epilog
88
89	name main
90	main:
91	prolog
92	frame 64
93
94	/* Initialize language stack */
95	movi %r0 stk
96	sti top %r0
97
98	/* return address */
99	movi %r0 done
100	/* argument */
101	movi %v0 32
102	jmpi xfibs
103	done:
104	prepare
105	pushargi fmt
106	ellipsis
107	pushargi 32
108	pushargr %v0
109	finishi @printf
110	ret
111	epilog