Subversion Repositories openrisc

#define vector(elcount, type)  \

__attribute__((vector_size((elcount)*sizeof(type)))) type

#define vidx(type, vec, idx) (*((type *) &(vec) + idx))

#define operl(a, b, op) (a op b)

#define operr(a, b, op) (b op a)

#define check(type, count, vec0, vec1, num, op, lr) \

do {\

    int __i; \

    for (__i = 0; __i < count; __i++) {\

        if (vidx (type, vec1, __i) != oper##lr (num, vidx (type, vec0, __i), op)) \

            __builtin_abort (); \

    }\

} while (0)

#define veccompare(type, count, v0, v1) \

do {\

    int __i; \

    for (__i = 0; __i < count; __i++) { \

        if (vidx (type, v0, __i) != vidx (type, v1, __i)) \

            __builtin_abort (); \

    } \

} while (0)

long __attribute__ ((noinline)) vlng () {   return (long)42; }

int  __attribute__ ((noinline)) vint () {   return (int) 43; }

short __attribute__ ((noinline)) vsrt () {   return (short)42; }

char __attribute__ ((noinline)) vchr () {    return (char)42; }

int main (int argc, char *argv[]) {

    vector(16, char) c0 = {argc, 1,2,3,4,5,6,7, argc, 1,2,3,4,5,6,7};

    vector(16, char) c1;

    vector(8, short) s0 = {argc, 1,2,3,4,5,6,7};

    vector(8, short) s1;

    vector(4, int) i0 = {argc, 1, 2, 3};

    vector(4, int) i1;

    vector(2, long) l0 = {argc, 1};

    vector(2, long) l1;

    c1 = vchr() + c0; check (char, 16, c0, c1, vchr(), +, l);

    s1 = vsrt() + s0; check (short, 8, s0, s1, vsrt(), +, l);

    s1 = vchr() + s0; check (short, 8, s0, s1, vchr(), +, l);

    i1 = vint() * i0; check (int, 4, i0, i1, vint(), *, l);

    i1 = vsrt() * i0; check (int, 4, i0, i1, vsrt(), *, l);

    i1 = vchr() * i0; check (int, 4, i0, i1, vchr(), *, l);

    l1 = vlng() * l0; check (long, 2, l0, l1, vlng(), *, l);

    l1 = vint() * l0; check (long, 2, l0, l1, vint(), *, l);

    l1 = vsrt() * l0; check (long, 2, l0, l1, vsrt(), *, l);

    l1 = vchr() * l0; check (long, 2, l0, l1, vchr(), *, l);

    return 0;

}