2 * Copyright (c) 2015 Cisco and/or its affiliates.
3 * Licensed under the Apache License, Version 2.0 (the "License");
4 * you may not use this file except in compliance with the License.
5 * You may obtain a copy of the License at:
7 * http://www.apache.org/licenses/LICENSE-2.0
9 * Unless required by applicable law or agreed to in writing, software
10 * distributed under the License is distributed on an "AS IS" BASIS,
11 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
12 * See the License for the specific language governing permissions and
13 * limitations under the License.
16 #ifndef included_vector_neon_h
17 #define included_vector_neon_h
21 #define u16x8_sub_saturate(a,b) vsubq_u16(a,b)
22 #define i16x8_sub_saturate(a,b) vsubq_s16(a,b)
23 /* Dummy. Aid making uniform macros */
24 #define vreinterpretq_u8_u8(a) a
25 /* Implement the missing intrinsics to make uniform macros */
26 #define vminvq_u64(x) \
28 u64 x0 = vgetq_lane_u64(x, 0); \
29 u64 x1 = vgetq_lane_u64(x, 1); \
33 /* Converts all ones/zeros compare mask to bitmap. */
35 u8x16_compare_byte_mask (u8x16 v)
37 uint8x16_t mask = { 0x01, 0x02, 0x04, 0x08, 0x10, 0x20, 0x40, 0x80,
38 0x01, 0x02, 0x04, 0x08, 0x10, 0x20, 0x40, 0x80
40 /* v --> [0xFF, 0x00, 0xFF, 0xFF, 0xFF, 0x00, 0xFF, 0x00, ... ] */
41 uint8x16_t x = vandq_u8 (v, mask);
43 * x --> [0x01, 0x00, 0x04, 0x08, 0x10, 0x00, 0x40, 0x00, ... ] */
44 uint64x2_t x64 = vpaddlq_u32 (vpaddlq_u16 (vpaddlq_u8 (x)));
45 /* after merge, x64 --> [0x5D, 0x.. ] */
46 return (u32) (vgetq_lane_u64 (x64, 0) + (vgetq_lane_u64 (x64, 1) << 8));
50 #define foreach_neon_vec128i \
51 _(i,8,16,s8) _(i,16,8,s16) _(i,32,4,s32) _(i,64,2,s64)
52 #define foreach_neon_vec128u \
53 _(u,8,16,u8) _(u,16,8,u16) _(u,32,4,u32) _(u,64,2,u64)
54 #define foreach_neon_vec128f \
55 _(f,32,4,f32) _(f,64,2,f64)
57 #define _(t, s, c, i) \
58 static_always_inline t##s##x##c \
59 t##s##x##c##_splat (t##s x) \
60 { return (t##s##x##c) vdupq_n_##i (x); } \
62 static_always_inline t##s##x##c \
63 t##s##x##c##_load_unaligned (void *p) \
64 { return (t##s##x##c) vld1q_##i (p); } \
66 static_always_inline void \
67 t##s##x##c##_store_unaligned (t##s##x##c v, void *p) \
68 { vst1q_##i (p, v); } \
70 static_always_inline int \
71 t##s##x##c##_is_all_zero (t##s##x##c x) \
72 { return !!(vminvq_u##s (vceqq_##i (vdupq_n_##i(0), x))); } \
74 static_always_inline int \
75 t##s##x##c##_is_equal (t##s##x##c a, t##s##x##c b) \
76 { return !!(vminvq_u##s (vceqq_##i (a, b))); } \
78 static_always_inline int \
79 t##s##x##c##_is_all_equal (t##s##x##c v, t##s x) \
80 { return t##s##x##c##_is_equal (v, t##s##x##c##_splat (x)); }; \
82 static_always_inline u32 \
83 t##s##x##c##_zero_byte_mask (t##s##x##c x) \
84 { uint8x16_t v = vreinterpretq_u8_u##s (vceqq_##i (vdupq_n_##i(0), x)); \
85 return u8x16_compare_byte_mask (v); } \
87 static_always_inline u##s##x##c \
88 t##s##x##c##_is_greater (t##s##x##c a, t##s##x##c b) \
89 { return (u##s##x##c) vcgtq_##i (a, b); } \
91 static_always_inline t##s##x##c \
92 t##s##x##c##_blend (t##s##x##c dst, t##s##x##c src, u##s##x##c mask) \
93 { return (t##s##x##c) vbslq_##i (mask, src, dst); }
95 foreach_neon_vec128i foreach_neon_vec128u
100 static_always_inline u16x8
101 u16x8_byte_swap (u16x8 v)
103 return (u16x8) vrev16q_u8 ((u8x16) v);
106 static_always_inline u8x16
107 u8x16_shuffle (u8x16 v, u8x16 m)
109 return (u8x16) vqtbl1q_u8 (v, m);
112 static_always_inline u32x4
113 u32x4_hadd (u32x4 v1, u32x4 v2)
115 return (u32x4) vpaddq_u32 (v1, v2);
118 static_always_inline u64x2
119 u32x4_extend_to_u64x2 (u32x4 v)
121 return vmovl_u32 (vget_low_u32 (v));
124 static_always_inline u64x2
125 u32x4_extend_to_u64x2_high (u32x4 v)
127 return vmovl_high_u32 (v);
130 /* Creates a mask made up of the MSB of each byte of the source vector */
131 static_always_inline u16
132 u8x16_msb_mask (u8x16 v)
135 { -7, -6, -5, -4, -3, -2, -1, 0, -7, -6, -5, -4, -3, -2, -1, 0 };
136 /* v --> [0x80, 0x7F, 0xF0, 0xAF, 0xF0, 0x00, 0xF2, 0x00, ... ] */
137 uint8x16_t x = vshlq_u8 (vandq_u8 (v, vdupq_n_u8 (0x80)), shift);
138 /* after (v & 0x80) >> shift,
139 * x --> [0x01, 0x00, 0x04, 0x08, 0x10, 0x00, 0x40, 0x00, ... ] */
140 uint64x2_t x64 = vpaddlq_u32 (vpaddlq_u16 (vpaddlq_u8 (x)));
141 /* after merge, x64 --> [0x5D, 0x.. ] */
142 return (u16) (vgetq_lane_u64 (x64, 0) + (vgetq_lane_u64 (x64, 1) << 8));
145 static_always_inline u64x2
146 u64x2_gather (void *p0, void *p1)
148 u64x2 r = vdupq_n_u64 (*(u64 *) p0);
149 r = vsetq_lane_u64 (*(u64 *) p1, r, 1);
153 static_always_inline u32x4
154 u32x4_gather (void *p0, void *p1, void *p2, void *p3)
156 u32x4 r = vdupq_n_u32 (*(u32 *) p0);
157 r = vsetq_lane_u32 (*(u32 *) p1, r, 1);
158 r = vsetq_lane_u32 (*(u32 *) p2, r, 2);
159 r = vsetq_lane_u32 (*(u32 *) p3, r, 3);
163 static_always_inline void
164 u64x2_scatter (u64x2 r, void *p0, void *p1)
166 *(u64 *) p0 = vgetq_lane_u64 (r, 0);
167 *(u64 *) p1 = vgetq_lane_u64 (r, 1);
170 static_always_inline void
171 u32x4_scatter (u32x4 r, void *p0, void *p1, void *p2, void *p3)
173 *(u32 *) p0 = vgetq_lane_u32 (r, 0);
174 *(u32 *) p1 = vgetq_lane_u32 (r, 1);
175 *(u32 *) p2 = vgetq_lane_u32 (r, 2);
176 *(u32 *) p3 = vgetq_lane_u32 (r, 3);
179 static_always_inline u32
180 u32x4_min_scalar (u32x4 v)
182 return vminvq_u32 (v);
185 #define u8x16_word_shift_left(x,n) vextq_u8(u8x16_splat (0), x, 16 - n)
186 #define u8x16_word_shift_right(x,n) vextq_u8(x, u8x16_splat (0), n)
188 static_always_inline u8x16
189 u8x16_reflect (u8x16 v)
192 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1, 0
194 return (u8x16) vqtbl1q_u8 (v, mask);
197 static_always_inline u8x16
198 u8x16_xor3 (u8x16 a, u8x16 b, u8x16 c)
200 #if __GNUC__ == 8 && __ARM_FEATURE_SHA3 == 1
202 __asm__ ("eor3 %0.16b,%1.16b,%2.16b,%3.16b": "=w" (r): "0" (a), "w" (b), "w" (c):);
208 #define CLIB_HAVE_VEC128_MSB_MASK
210 #define CLIB_HAVE_VEC128_UNALIGNED_LOAD_STORE
211 #define CLIB_VEC128_SPLAT_DEFINED
212 #endif /* included_vector_neon_h */
215 * fd.io coding-style-patch-verification: ON
218 * eval: (c-set-style "gnu")