xref: /aosp_15_r20/external/XNNPACK/src/x24-transposec/4x4-aarch64-tbl.c (revision 4bdc94577ba0e567308109d787f7fec7b531ce36)
1 // Copyright 2022 Google LLC
2 //
3 // This source code is licensed under the BSD-style license found in the
4 // LICENSE file in the root directory of this source tree.
5 
6 #include <assert.h>
7 
8 #include <arm_neon.h>
9 
10 #include <xnnpack/common.h>
11 #include <xnnpack/math.h>
12 #include <xnnpack/transpose.h>
13 
14 static const uint8_t pos0[16] = {0, 1, 2, 16, 17, 18, 32, 33, 34, 48, 49, 50, 0, 0, 0, 0};
15 static const uint8_t pos1[16] = {3, 4, 5, 19, 20, 21, 35, 36, 37, 51, 52, 53, 0, 0, 0, 0};
16 static const uint8_t pos2[16] = {6, 7, 8, 22, 23, 24, 38, 39, 40, 54, 55, 56, 0, 0, 0, 0};
17 static const uint8_t pos3[16] = {9, 10, 11, 25, 26, 27, 41, 42, 43, 57, 58, 59, 0, 0, 0, 0};
18 
xnn_x24_transposec_ukernel__4x4_aarch64_neon_tbl(const void * input,void * output,size_t input_stride,size_t output_stride,size_t block_width,size_t block_height)19 void xnn_x24_transposec_ukernel__4x4_aarch64_neon_tbl(
20     const void* input,
21     void* output,
22     size_t input_stride,
23     size_t output_stride,
24     size_t block_width,
25     size_t block_height)
26 {
27   assert(output_stride >= block_height * 3);
28   assert(input_stride >= block_width * 3);
29 
30   const size_t tile_height = 4;
31   const size_t tile_width = 4;
32   const size_t tile_wbytes = tile_width * 3;
33   const size_t tile_wbytes_minus_8 = tile_wbytes - 8;
34   const size_t input_reset = tile_wbytes - round_down_po2(block_height, tile_height) * input_stride;
35   const size_t output_reset = tile_width * output_stride - block_height * 3;
36   const size_t tile_stride = tile_height * input_stride;
37 
38   const uint8_t* i0 = (const uint8_t*) input;
39   const uint8_t* i1 = (const uint8_t*) ((uintptr_t) i0 + input_stride);
40   const uint8_t* i2 = (const uint8_t*) ((uintptr_t) i1 + input_stride);
41   const uint8_t* i3 = (const uint8_t*) ((uintptr_t) i2 + input_stride);
42 
43   uint8_t* o0 = (uint8_t*) output;
44   uint8_t* o1 = (uint8_t*) ((uintptr_t) o0 + output_stride);
45   uint8_t* o2 = (uint8_t*) ((uintptr_t) o1 + output_stride);
46   uint8_t* o3 = (uint8_t*) ((uintptr_t) o2 + output_stride);
47 
48   const uint8x16_t vperm0 = vld1q_u8(pos0);
49   const uint8x16_t vperm1 = vld1q_u8(pos1);
50   const uint8x16_t vperm2 = vld1q_u8(pos2);
51   const uint8x16_t vperm3 = vld1q_u8(pos3);
52   do {
53     if XNN_UNPREDICTABLE(block_width < 2) {
54       o1 = o0;
55     }
56     if XNN_UNPREDICTABLE(block_width <= 2) {
57       o2 = o0;
58     }
59     if XNN_UNPREDICTABLE(block_width < 4) {
60       o3 = o0;
61     }
62     size_t bh = block_height;
63     for (; bh >= 4; bh -= 4) {
64       uint8x16x4_t v;
65       v.val[0] = vld1q_u8(i0); i0 = (const uint8_t*) ((uintptr_t) i0 + tile_stride);
66       v.val[1] = vld1q_u8(i1); i1 = (const uint8_t*) ((uintptr_t) i1 + tile_stride);
67       v.val[2] = vld1q_u8(i2); i2 = (const uint8_t*) ((uintptr_t) i2 + tile_stride);
68       v.val[3] = vld1q_u8(i3); i3 = (const uint8_t*) ((uintptr_t) i3 + tile_stride);
69 
70       const uint8x16_t vres0 = vqtbl4q_u8(v, vperm0);
71       const uint8x16_t vres1 = vqtbl4q_u8(v, vperm1);
72       const uint8x16_t vres2 = vqtbl4q_u8(v, vperm2);
73       const uint8x16_t vres3 = vqtbl4q_u8(v, vperm3);
74 
75       vst1_u8(o3, vget_low_u8(vres3)); o3 += 8;
76       vst1_u8(o2, vget_low_u8(vres2)); o2 += 8;
77       vst1_u8(o1, vget_low_u8(vres1)); o1 += 8;
78       vst1_u8(o0, vget_low_u8(vres0)); o0 += 8;
79       vst1q_lane_u32((void*) o3, vreinterpretq_u32_u8(vres3), 2); o3 = (uint8_t*) ((uintptr_t) o3 + tile_wbytes_minus_8);
80       vst1q_lane_u32((void*) o2, vreinterpretq_u32_u8(vres2), 2); o2 = (uint8_t*) ((uintptr_t) o2 + tile_wbytes_minus_8);
81       vst1q_lane_u32((void*) o1, vreinterpretq_u32_u8(vres1), 2); o1 = (uint8_t*) ((uintptr_t) o1 + tile_wbytes_minus_8);
82       vst1q_lane_u32((void*) o0, vreinterpretq_u32_u8(vres0), 2); o0 = (uint8_t*) ((uintptr_t) o0 + tile_wbytes_minus_8);
83     }
84 
85     if (bh != 0) {
86       if XNN_UNPREDICTABLE(bh <= 2) {
87         i2 = i0;
88       }
89       if XNN_UNPREDICTABLE(bh < 2) {
90         i1 = i0;
91       }
92       uint8x16x3_t v;
93       v.val[0] = vld1q_u8(i0);
94       v.val[1] = vld1q_u8(i1);
95       v.val[2] = vld1q_u8(i2);
96 
97       uint8x16_t vres0 = vqtbl3q_u8(v, vperm0);
98       uint8x16_t vres1 = vqtbl3q_u8(v, vperm1);
99       uint8x16_t vres2 = vqtbl3q_u8(v, vperm2);
100       uint8x16_t vres3 = vqtbl3q_u8(v, vperm3);
101 
102       uint8x8_t vres0_lo = vget_low_u8(vres0);
103       uint8x8_t vres1_lo = vget_low_u8(vres1);
104       uint8x8_t vres2_lo = vget_low_u8(vres2);
105       uint8x8_t vres3_lo = vget_low_u8(vres3);
106 
107       if (bh & 2) {
108         vst1_lane_u32((void*) o3, vreinterpret_u32_u8(vres3_lo), 0); o3 += 4;
109         vst1_lane_u32((void*) o2, vreinterpret_u32_u8(vres2_lo), 0); o2 += 4;
110         vst1_lane_u32((void*) o1, vreinterpret_u32_u8(vres1_lo), 0); o1 += 4;
111         vst1_lane_u32((void*) o0, vreinterpret_u32_u8(vres0_lo), 0); o0 += 4;
112         vst1_lane_u16((void*) o3, vreinterpret_u16_u8(vres3_lo), 2); o3 += 2;
113         vst1_lane_u16((void*) o2, vreinterpret_u16_u8(vres2_lo), 2); o2 += 2;
114         vst1_lane_u16((void*) o1, vreinterpret_u16_u8(vres1_lo), 2); o1 += 2;
115         vst1_lane_u16((void*) o0, vreinterpret_u16_u8(vres0_lo), 2); o0 += 2;
116         vres0_lo = vget_low_u8(vextq_u8(vres0, vres0, 6));
117         vres1_lo = vget_low_u8(vextq_u8(vres1, vres1, 6));
118         vres2_lo = vget_low_u8(vextq_u8(vres2, vres2, 6));
119         vres3_lo = vget_low_u8(vextq_u8(vres3, vres3, 6));
120       }
121       if (bh & 1) {
122         vst1_lane_u16((void*) o3, vreinterpret_u16_u8(vres3_lo), 0); o3 += 2;
123         vst1_lane_u16((void*) o2, vreinterpret_u16_u8(vres2_lo), 0); o2 += 2;
124         vst1_lane_u16((void*) o1, vreinterpret_u16_u8(vres1_lo), 0); o1 += 2;
125         vst1_lane_u16((void*) o0, vreinterpret_u16_u8(vres0_lo), 0); o0 += 2;
126         vst1_lane_u8(o3, vres3_lo, 2); o3 += 1;
127         vst1_lane_u8(o2, vres2_lo, 2); o2 += 1;
128         vst1_lane_u8(o1, vres1_lo, 2); o1 += 1;
129         vst1_lane_u8(o0, vres0_lo, 2); o0 += 1;
130       }
131     }
132     i0 = (const uint8_t*) ((uintptr_t) i0 + input_reset);
133     i1 = (const uint8_t*) ((uintptr_t) i0 + input_stride);
134     i2 = (const uint8_t*) ((uintptr_t) i1 + input_stride);
135     i3 = (const uint8_t*) ((uintptr_t) i2 + input_stride);
136     o0 = (uint8_t*) ((uintptr_t) o0 + output_reset);
137     o1 = (uint8_t*) ((uintptr_t) o1 + output_reset);
138     o2 = (uint8_t*) ((uintptr_t) o2 + output_reset);
139     o3 = (uint8_t*) ((uintptr_t) o3 + output_reset);
140     block_width = doz(block_width, tile_width);
141   } while (block_width != 0);
142 }
143