/*
 * Regression test for TCG indirect global lowering.
 *
 * Copyright Linaro Ltd 2022
 * SPDX-License-Identifier: GPL-2.0-or-later
 */

#include "semicall.h"

	.text
	.set noat
	.align	2
	.globl	main
	.type	main, @function

main:
	/* Initialize r0 in shadow register set 1. */
	movhi	at, 1			/* PRS=1, CRS=0, RSIE=0, PIE=0 */
	wrctl	status, at
	wrprs	zero, zero

	/* Change current register set to 1. */
	movi	at, 1 << 10		/* PRS=0, CRS=1, RSIE=0, PIE=0 */
	wrctl	estatus, at
	movia	ea, 1f
	eret

	/* Load address for callr, then end TB. */
1:	movia	at, 3f
	br	2f

	/* Test case! TCG abort on indirect lowering across brcond. */
2:	callr	at

	/* exit(0) */
3:	movi	r4, HOSTED_EXIT
	movi	r5, 0
	semihosting_call

	.size	main, . - main