OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [vmx/] [eg-5.c] - Blame information for rev 774

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 689 jeremybenn
#include "harness.h"
2
 
3
static vector float
4
matvecmul4 (vector float c0, vector float c1, vector float c2,
5
            vector float c3, vector float v)
6
{
7
  /* Set result to a vector of f32 0's */
8
  vector float result = ((vector float){0.,0.,0.,0.});
9
 
10
  result  = vec_madd (c0, vec_splat (v, 0), result);
11
  result  = vec_madd (c1, vec_splat (v, 1), result);
12
  result  = vec_madd (c2, vec_splat (v, 2), result);
13
  result  = vec_madd (c3, vec_splat (v, 3), result);
14
 
15
  return result;
16
}
17
 
18
static void test()
19
{
20
  check(vec_all_eq(matvecmul4(((vector float){2,3,5,7}),
21
                              ((vector float){11,13,17,19}),
22
                              ((vector float){23,29,31,37}),
23
                              ((vector float){41,43,47,53}),
24
                              ((vector float){59,61,67,71})),
25
                   ((vector float){5241, 5966, 6746, 7814})),
26
        "matvecmul4");
27
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.