qemu-patch-raspberry4/tests/tcg/alpha/test-ovf.c
Anthony Liguori c09015dd04 tests: mv tests/* -> tests/tcg
Signed-off-by: Anthony Liguori <aliguori@us.ibm.com>
Signed-off-by: Anthony Liguori <aliguori@us.ibm.com>
2012-01-12 10:03:28 -06:00

30 lines
523 B
C

static long test_subqv (long a, long b)
{
long res;
asm ("subq/v %1,%2,%0"
: "=r" (res) : "r" (a), "r" (b));
return res;
}
static struct {
long (*func)(long, long);
long a;
long b;
long r;
} vectors[] =
{
{test_subqv, 0, 0x7d54000, 0xfffffffff82ac000L}
};
int main (void)
{
int i;
for (i = 0; i < sizeof (vectors)/sizeof(vectors[0]); i++)
if ((*vectors[i].func)(vectors[i].a, vectors[i].b) != vectors[i].r) {
write(1, "Failed\n", 7);
}
write(1, "OK\n", 3);
return 0;
}