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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [vmx/] [3b-13.c] - Blame information for rev 749

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


#include "harness.h"
 
vector signed int
f(vector float a, vector signed int b)
{
  return vec_splat(vec_cts(vec_ctf(vec_ctu(a, 31),0),9),30);
}
 
static void test()
{
  check(vec_all_eq(f(((vector float){1,2,3,4}),
                     ((vector signed int){2,4,6,8})),
                   ((vector signed int){2147483647, 2147483647, 2147483647, 2147483647})),
        "f");
}

Line No.	Rev	Author	Line
1	689	jeremybenn	`#include "harness.h"`
2
3			`vector signed int`
4			`f(vector float a, vector signed int b)`
5			`{`
6			`return vec_splat(vec_cts(vec_ctf(vec_ctu(a, 31),0),9),30);`
7			`}`
8
9			`static void test()`
10			`{`
11			`check(vec_all_eq(f(((vector float){1,2,3,4}),`
12			`((vector signed int){2,4,6,8})),`
13			`((vector signed int){2147483647, 2147483647, 2147483647, 2147483647})),`
14			`"f");`
15			`}`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [vmx/] [3b-13.c] - Blame information for rev 749