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

.data	128
idfmt:
.c	"received %d\n"
failure_message:
.c	"numbers don't add up to zero\n"
report_message:
.c	"failed: got %i instead of %i\n"
succeeded_message:
.c	"succeeded\n"

.code
	jmpi main

/*
static int
identity (int arg)
{
  printf ("received %i\n", arg);
  return arg;
}
 */
	name identify
identify:
	prolog
	arg $i
	getarg %v0 $i
	prepare
		pushargi idfmt
		ellipsis
		pushargr %v0
	finishi @printf
	retr %v0
	epilog

	name identity_func
identity_func:
	prolog
	arg $i
	getarg %r1 $i

	/* Store the argument on the stack.  */
	allocai $(__WORDSIZE >> 3) $off
	stxi $off %fp %r1

	/* Store the negative of the argument on the stack.  */
	allocai $(__WORDSIZE >> 3) $neg
	negr %r2 %r1
	stxi $neg %fp %r2

	/* Invoke FUNC.  */
	prepare
		pushargr %r1
	finishi identify

	/* Ignore the result.  */

	/* Restore the negative and the argument from the stack.  */
	ldxi %r2 %fp $neg
	ldxi %v1 %fp $off

	/* Make sure they still add to zero.  */
	addr %r0 %v1 %r2
	bnei branch %r0 0

	/* Return it.  */
	retr %v1

	/* Display a failure message.  */
branch:
	prepare
		pushargi failure_message
		ellipsis
	finishi @printf

	/* Leave.  */
	retr %v1
	epilog

	name main
main:
	prolog
	prepare
		pushargi 7777
	finishi identity_func
	retval %r0
	beqi succeeded %r0 7777
	prepare
		pushargi report_message
		ellipsis
		pushargr %r0
		pushargi 7777
	finishi @printf
	reti 1
succeeded:
	prepare
		pushargi succeeded_message
		ellipsis
	finishi @printf
	reti 0
	epilog
Commit	Line	Data
4a71579b PC	1	.data 128
	2	idfmt:
	3	.c "received %d\n"
	4	failure_message:
	5	.c "numbers don't add up to zero\n"
	6	report_message:
	7	.c "failed: got %i instead of %i\n"
	8	succeeded_message:
	9	.c "succeeded\n"
	10
	11	.code
	12	jmpi main
	13
	14	/*
	15	static int
	16	identity (int arg)
	17	{
	18	printf ("received %i\n", arg);
	19	return arg;
	20	}
	21	*/
	22	name identify
	23	identify:
	24	prolog
	25	arg $i
	26	getarg %v0 $i
	27	prepare
	28	pushargi idfmt
	29	ellipsis
	30	pushargr %v0
	31	finishi @printf
	32	retr %v0
	33	epilog
	34
	35	name identity_func
	36	identity_func:
	37	prolog
	38	arg $i
	39	getarg %r1 $i
	40
	41	/* Store the argument on the stack. */
	42	allocai $(__WORDSIZE >> 3) $off
	43	stxi $off %fp %r1
	44
	45	/* Store the negative of the argument on the stack. */
	46	allocai $(__WORDSIZE >> 3) $neg
	47	negr %r2 %r1
	48	stxi $neg %fp %r2
	49
	50	/* Invoke FUNC. */
	51	prepare
	52	pushargr %r1
	53	finishi identify
	54
	55	/* Ignore the result. */
	56
	57	/* Restore the negative and the argument from the stack. */
	58	ldxi %r2 %fp $neg
	59	ldxi %v1 %fp $off
	60
	61	/* Make sure they still add to zero. */
	62	addr %r0 %v1 %r2
	63	bnei branch %r0 0
	64
65	/* Return it. */
66	retr %v1
67
68	/* Display a failure message. */
69	branch:
70	prepare
71	pushargi failure_message
72	ellipsis
73	finishi @printf
74
75	/* Leave. */
76	retr %v1
77	epilog
78
79	name main
80	main:
81	prolog
82	prepare
83	pushargi 7777
84	finishi identity_func
85	retval %r0
86	beqi succeeded %r0 7777
87	prepare
88	pushargi report_message
89	ellipsis
90	pushargr %r0
91	pushargi 7777
92	finishi @printf
93	reti 1
94	succeeded:
95	prepare
96	pushargi succeeded_message
97	ellipsis
98	finishi @printf
99	reti 0
100	epilog