| #include <immintrin.h> | |
| #define PASTER2(x,y) x##y | |
| #define PASTER3(x,y,z) _mm##x##_##y##_##z | |
| #define OP(vec, op, suffix) PASTER3 (vec, op, suffix) | |
| #define DUP(vec, suffix, val) PASTER3 (vec, set1, suffix) (val) | |
| extern SCALAR f; | |
| type | |
| foo (type x) | |
| { | |
| return OP (vec, op, suffix) (x , DUP (vec, suffix, f)); | |
| } |