| /* { dg-do run { target lp64 } } */ |
| /* { dg-require-effective-target vsx_hw } */ |
| /* { dg-options "-O2 -mvsx" } */ |
| |
| #include <stdlib.h> |
| #include <stddef.h> |
| #include <altivec.h> |
| |
| #define ELEMENTS -12345678L, 9L |
| #define SPLAT 0x0123456789ABCDE |
| |
| vector long sv = (vector long) { ELEMENTS }; |
| vector long splat = (vector long) { SPLAT, SPLAT }; |
| vector long sv_global, sp_global; |
| static vector long sv_static, sp_static; |
| static const int expected[] = { ELEMENTS }; |
| |
| extern void check (vector long a) |
| __attribute__((__noinline__)); |
| |
| extern void check_splat (vector long a) |
| __attribute__((__noinline__)); |
| |
| extern vector long pack_reg (long a, long b) |
| __attribute__((__noinline__)); |
| |
| extern vector long pack_from_ptr (long *p_a, long *p_b) |
| __attribute__((__noinline__)); |
| |
| extern vector long pack_const (void) |
| __attribute__((__noinline__)); |
| |
| extern void pack_ptr (vector long *p, long a, long b) |
| __attribute__((__noinline__)); |
| |
| extern void pack_static (long a, long b) |
| __attribute__((__noinline__)); |
| |
| extern void pack_global (long a, long b) |
| __attribute__((__noinline__)); |
| |
| extern vector long splat_reg (long a) |
| __attribute__((__noinline__)); |
| |
| extern vector long splat_from_ptr (long *p) |
| __attribute__((__noinline__)); |
| |
| extern vector long splat_const (void) |
| __attribute__((__noinline__)); |
| |
| extern void splat_ptr (vector long *p, long a) |
| __attribute__((__noinline__)); |
| |
| extern void splat_static (long a) |
| __attribute__((__noinline__)); |
| |
| extern void splat_global (long a) |
| __attribute__((__noinline__)); |
| |
| void |
| check (vector long a) |
| { |
| size_t i; |
| |
| for (i = 0; i < 2; i++) |
| if (vec_extract (a, i) != expected[i]) |
| abort (); |
| } |
| |
| void |
| check_splat (vector long a) |
| { |
| size_t i; |
| |
| for (i = 0; i < 2; i++) |
| if (vec_extract (a, i) != SPLAT) |
| abort (); |
| } |
| |
| vector long |
| pack_reg (long a, long b) |
| { |
| return (vector long) { a, b }; |
| } |
| |
| vector long |
| pack_from_ptr (long *p_a, long *p_b) |
| { |
| return (vector long) { *p_a, *p_b }; |
| } |
| |
| vector long |
| pack_const (void) |
| { |
| return (vector long) { ELEMENTS }; |
| } |
| |
| void |
| pack_ptr (vector long *p, long a, long b) |
| { |
| *p = (vector long) { a, b }; |
| } |
| |
| void |
| pack_static (long a, long b) |
| { |
| sv_static = (vector long) { a, b }; |
| } |
| |
| void |
| pack_global (long a, long b) |
| { |
| sv_global = (vector long) { a, b }; |
| } |
| |
| vector long |
| splat_reg (long a) |
| { |
| return (vector long) { a, a }; |
| } |
| |
| vector long |
| splat_from_ptr (long *p) |
| { |
| return (vector long) { *p, *p }; |
| } |
| |
| vector long |
| splat_const (void) |
| { |
| return (vector long) { SPLAT, SPLAT }; |
| } |
| |
| void |
| splat_ptr (vector long *p, long a) |
| { |
| *p = (vector long) { a, a }; |
| } |
| |
| void |
| splat_static (long a) |
| { |
| sp_static = (vector long) { a, a }; |
| } |
| |
| void |
| splat_global (long a) |
| { |
| sp_global = (vector long) { a, a }; |
| } |
| |
| int main (void) |
| { |
| vector long sv2, sv3; |
| long mem = SPLAT; |
| long mem2[2] = { ELEMENTS }; |
| |
| check (sv); |
| |
| check (pack_reg (ELEMENTS)); |
| |
| check (pack_from_ptr (&mem2[0], &mem2[1])); |
| |
| check (pack_const ()); |
| |
| pack_ptr (&sv2, ELEMENTS); |
| check (sv2); |
| |
| pack_static (ELEMENTS); |
| check (sv_static); |
| |
| pack_global (ELEMENTS); |
| check (sv_global); |
| |
| check_splat (splat); |
| |
| check_splat (splat_reg (SPLAT)); |
| |
| check_splat (splat_from_ptr (&mem)); |
| |
| check_splat (splat_const ()); |
| |
| splat_ptr (&sv2, SPLAT); |
| check_splat (sv2); |
| |
| splat_static (SPLAT); |
| check_splat (sp_static); |
| |
| splat_global (SPLAT); |
| check_splat (sp_global); |
| |
| return 0; |
| } |