qemu-patch-raspberry4/tests/alpha/test-cond.c
aurel32 df0fc998b8 alpha: add tests
This patch creates tests/alpha directory and adds an "hello world"
program as well as two tests.

Signed-off-by: Tristan Gingold <gingold@adacore.com>
Signed-off-by: Aurelien Jarno <aurelien@aurel32.net>

git-svn-id: svn://svn.savannah.nongnu.org/qemu/trunk@5216 c046a42c-6fe2-441c-8c8c-71466251a162
2008-09-14 17:18:29 +00:00

88 lines
1.3 KiB
C

#ifdef TEST_CMOV
#define TEST_COND(N) \
int test_##N (long a) \
{ \
int res = 1; \
\
asm ("cmov"#N" %1,$31,%0" \
: "+r" (res) : "r" (a)); \
return !res; \
}
#else
#define TEST_COND(N) \
int test_##N (long a) \
{ \
int res = 1; \
\
asm ("b"#N" %1,1f\n\t" \
"addq $31,$31,%0\n\t" \
"1: unop\n" \
: "+r" (res) : "r" (a)); \
return res; \
}
#endif
TEST_COND(eq)
TEST_COND(ne)
TEST_COND(ge)
TEST_COND(gt)
TEST_COND(lbc)
TEST_COND(lbs)
TEST_COND(le)
TEST_COND(lt)
static struct {
int (*func)(long);
long v;
int r;
} vectors[] =
{
{test_eq, 0, 1},
{test_eq, 1, 0},
{test_ne, 0, 0},
{test_ne, 1, 1},
{test_ge, 0, 1},
{test_ge, 1, 1},
{test_ge, -1, 0},
{test_gt, 0, 0},
{test_gt, 1, 1},
{test_gt, -1, 0},
{test_lbc, 0, 1},
{test_lbc, 1, 0},
{test_lbc, -1, 0},
{test_lbs, 0, 0},
{test_lbs, 1, 1},
{test_lbs, -1, 1},
{test_le, 0, 1},
{test_le, 1, 0},
{test_le, -1, 1},
{test_lt, 0, 0},
{test_lt, 1, 0},
{test_lt, -1, 1},
};
int main (void)
{
int i;
for (i = 0; i < sizeof (vectors)/sizeof(vectors[0]); i++)
if ((*vectors[i].func)(vectors[i].v) != vectors[i].r) {
write(1, "Failed\n", 7);
return 1;
}
write(1, "OK\n", 3);
return 0;
}