mirror of https://github.com/FFmpeg/FFmpeg.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
1294 lines
49 KiB
1294 lines
49 KiB
/* |
|
* Copyright (c) Lynne |
|
* |
|
* This file is part of FFmpeg. |
|
* |
|
* FFmpeg is free software; you can redistribute it and/or |
|
* modify it under the terms of the GNU Lesser General Public |
|
* License as published by the Free Software Foundation; either |
|
* version 2.1 of the License, or (at your option) any later version. |
|
* |
|
* FFmpeg is distributed in the hope that it will be useful, |
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
|
* Lesser General Public License for more details. |
|
* |
|
* You should have received a copy of the GNU Lesser General Public |
|
* License along with FFmpeg; if not, write to the Free Software |
|
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA |
|
*/ |
|
|
|
#include "libavutil/aarch64/asm.S" |
|
|
|
/* Open `doc/transforms.md` to see the code upon which the transforms here were |
|
* based upon. |
|
* |
|
* File conventions: |
|
* GPRs: x0-x3 - arguments, untouched |
|
* x4 - Lookup table base pointer |
|
* x5-x6 - macro ld1 temps/function scratch |
|
* x7-x9 - FFT table state |
|
* x10-x17 - lookup table/macro scratch |
|
* w19-w20 - current/target length when needed |
|
* x21-x22 - len*2, len*6 |
|
* |
|
* Vectors: v0-v7 - coefficients |
|
* v8-v15 - coefficients when needed, otherwise untouched |
|
* v16-v30 - used as needed |
|
* v31 - -1.0, +1.0, -1.0, +1.0. Never touched after loading. |
|
* |
|
* Stack: backup for v8-v15 and x19-x22 when needed, and transform lengths |
|
*/ |
|
|
|
#define M_SQRT1_2 0.707106781186547524401 |
|
#define COS16_1 0.92387950420379638671875 |
|
#define COS16_3 0.3826834261417388916015625 |
|
|
|
/* We only ever load this once at the start, and then live with losing an |
|
* entire register as we need to lug this all the time everywhere. |
|
* Clearly should be integrated into an fsadd and fmlsa, but "muh RISC!". */ |
|
const subadd, align=4 |
|
.float -1.0, 1.0, -1.0, 1.0 |
|
endconst |
|
|
|
.macro LOAD_SUBADD |
|
movrel x5, subadd |
|
ld1 { v31.4s }, [x5] |
|
.endm |
|
|
|
.macro SETUP_LUT no_lut=0 |
|
.if \no_lut == 0 |
|
ldr x4, [x0, #8] |
|
.endif |
|
.endm |
|
|
|
.macro LOAD_INPUT dst1, dst2, dst3, dst4, src, no_lut=0, discont=0 |
|
.if \no_lut == 1 |
|
.if \discont == 1 |
|
ldp q\dst1\(), q\dst2\(), [\src\()] |
|
ldp q\dst3\(), q\dst4\(), [\src\(), #32] |
|
add \src\(), \src\(), #64 |
|
.else |
|
ld1 { v\dst1\().4s, v\dst2\().4s, v\dst3\().4s, v\dst4\().4s }, [\src], #64 |
|
.endif |
|
.else |
|
ldp w10, w11, [x4, #0 ] |
|
ldp w12, w13, [x4, #8 ] |
|
ldp w14, w15, [x4, #16] |
|
ldp w16, w17, [x4, #24] |
|
|
|
add x4, x4, #32 |
|
|
|
ldr d\dst1, [\src, x10, lsl #3] |
|
add x11, \src, x11, lsl #3 |
|
ldr d\dst2, [\src, x12, lsl #3] |
|
add x13, \src, x13, lsl #3 |
|
ldr d\dst3, [\src, x14, lsl #3] |
|
add x15, \src, x15, lsl #3 |
|
ldr d\dst4, [\src, x16, lsl #3] |
|
add x17, \src, x17, lsl #3 |
|
|
|
ld1 { v\dst1\().d }[1], [x11] |
|
ld1 { v\dst2\().d }[1], [x13] |
|
ld1 { v\dst3\().d }[1], [x15] |
|
ld1 { v\dst4\().d }[1], [x17] |
|
.endif |
|
.endm |
|
|
|
.macro FFT4 e0, o0, standalone |
|
fadd v16.4s, \e0\().4s, \o0\().4s // r1..4 |
|
fsub \e0\().4s, \e0\().4s, \o0\().4s // t1..4 |
|
|
|
rev64 v18.4s, \e0\().4s |
|
|
|
zip2 \o0\().2d, v16.2d, \e0\().2d |
|
zip1 v17.2d, v16.2d, \e0\().2d |
|
|
|
mov \o0\().d[1], v18.d[1] |
|
|
|
fadd \e0\().4s, v17.4s, \o0\().4s // a1,2 b1,4 |
|
fsub v16.4s, v17.4s, \o0\().4s // a3,4 b3,2 |
|
|
|
mov \o0\().16b, v16.16b // Swap once again... |
|
mov \o0\().s[3], \e0\().s[3] |
|
mov \e0\().s[3], v16.s[3] |
|
|
|
.if \standalone == 0 |
|
uzp2 \o0\().2d, \e0\().2d, \o0\().2d |
|
uzp1 \e0\().2d, \e0\().2d, v16.2d |
|
.endif |
|
.endm |
|
|
|
const shuf_4pt_x2, align=4 |
|
.byte 24, 25, 26, 27 // reg2, 3 |
|
.byte 12, 13, 14, 15 // reg1, 4 |
|
.byte 8, 9, 10, 11 // reg1, 3 |
|
.byte 28, 29, 30, 31 // reg2, 4 |
|
endconst |
|
|
|
// Identical to FFT4, but does 2 transforms in parallel, with no deinterleaving |
|
.macro FFT4_X2 e0, o0, e1, o1, \ |
|
t0=v16, t1=v17, t2=v18, t3=v19, t4=v20, t5=v21, t6=v22 |
|
|
|
fadd \t0\().4s, \e0\().4s, \o0\().4s // r1234 |
|
fadd \t2\().4s, \e1\().4s, \o1\().4s // r1234 |
|
fsub \e0\().4s, \e0\().4s, \o0\().4s // t1234 |
|
fsub \e1\().4s, \e1\().4s, \o1\().4s // t1234 |
|
|
|
movrel x5, shuf_4pt_x2 |
|
|
|
rev64 \t4\().4s, \e0\().4s |
|
rev64 \t5\().4s, \e1\().4s |
|
|
|
zip2 \o0\().2d, \t0\().2d, \e0\().2d // t3,4 r3,4 |
|
zip2 \o1\().2d, \t2\().2d, \e1\().2d // t3,4 r3,4 |
|
|
|
ld1 { \t6\().16b }, [x5] |
|
|
|
mov \o0\().d[1], \t4\().d[1] |
|
mov \o1\().d[1], \t5\().d[1] |
|
|
|
zip1 \t1\().2d, \t0\().2d, \e0\().2d // t1,2 r1,2 |
|
zip1 \t3\().2d, \t2\().2d, \e1\().2d // t1,2 r1,2 |
|
|
|
fsub \t4\().4s, \t1\().4s, \o0\().4s // a34 b32 |
|
fadd \t5\().4s, \t1\().4s, \o0\().4s // a12 b14 |
|
fsub \t2\().4s, \t3\().4s, \o1\().4s // a34 b32 |
|
fadd \t3\().4s, \t3\().4s, \o1\().4s // a12 b14 |
|
|
|
// TODO: experiment with movs instead of tables here |
|
tbl \o0\().16b, { \t4\().16b, \t5\().16b }, \t6\().16b // b1234 |
|
tbl \o1\().16b, { \t2\().16b, \t3\().16b }, \t6\().16b // b1234 |
|
|
|
zip1 \e0\().2d, \t5\().2d, \t4\().2d // a1234 |
|
// zip2 \o0\().2d, \t5\().2d, \t4\().2d // b1432 |
|
zip1 \e1\().2d, \t3\().2d, \t2\().2d // a1234 |
|
// zip2 \o1\().2d, \t3\().2d, \t2\().2d // b1432 |
|
// rev64 \o0\().4s, \o0\().4s // b4123 |
|
// rev64 \o1\().4s, \o1\().4s // b4123 |
|
// ext \o0\().16b, \o0\().16b, \o0\().16b, #4 // b1234 |
|
// ext \o1\().16b, \o1\().16b, \o1\().16b, #4 // b1234 |
|
.endm |
|
|
|
const tab_8pt, align=4 |
|
.float M_SQRT1_2, -M_SQRT1_2, -M_SQRT1_2, M_SQRT1_2 |
|
endconst |
|
|
|
.macro FFT8 e0, e1, o0, o1, \ |
|
t0=v16, t1=v17, t2=v18, t3=v19, t4=v20, t5=v21, t6=v22 |
|
|
|
movrel x5, tab_8pt |
|
|
|
fsub \t1\().4s, \e1\().4s, \o1\().4s // j1234 |
|
fadd \o1\().4s, \e1\().4s, \o1\().4s // k1234 |
|
fsub \t0\().4s, \e0\().4s, \o0\().4s // r1234 |
|
fadd \o0\().4s, \e0\().4s, \o0\().4s // q1234 |
|
|
|
ld1 { \t5\().4s }, [x5] |
|
|
|
ext \t4\().16b, \o1\().16b, \o1\().16b, #12 |
|
rev64 \t4\().4s, \t4\().4s |
|
|
|
ext \t2\().16b, \o0\().16b, \t4\().16b, #8 // o0[0,1], o1[3,2] |
|
mov \o0\().d[1], \t4\().d[1] // o0[3, 4]; o1[1, 4] |
|
|
|
fsub \e1\().4s, \o0\().4s, \t2\().4s // s34, g43 |
|
fadd \t2\().4s, \o0\().4s, \t2\().4s // s12, g12 |
|
|
|
rev64 \t6\().4s, v31.4s // 1, -1, 1, -1 |
|
dup \o0\().2d, \t0\().d[0] // r1212 |
|
dup \o1\().2d, \t0\().d[1] // r3434 |
|
|
|
rev64 \t4\().4s, \e1\().4s // xxg34 |
|
rev64 \o1\().4s, \o1\().4s // r4343 |
|
|
|
ext \t6\().16b, v31.16b, \t6\().16b, #8 // -1, 1, 1, -1 |
|
zip1 \t3\().2d, \t2\().2d, \e1\().2d // s1234 |
|
zip2 \t2\().2d, \t2\().2d, \t4\().2d // g1234 |
|
|
|
fadd \e0\().4s, \t3\().4s, \t2\().4s // out_e1 |
|
fsub \e1\().4s, \t3\().4s, \t2\().4s // out_e2 |
|
|
|
fmul \t1\().4s, \t1\().4s, \t5\().4s // j * +--+M_SQRT1_2 |
|
fmls \o0\().4s, \o1\().4s, \t6\().4s // z1234 |
|
|
|
rev64 \t4\().4s, \t1\().4s // j2143 |
|
fmla \t1\().4s, \t4\().4s, v31.4s // l2143 |
|
|
|
rev64 \t4\().4s, \t1\().4s // l1234 |
|
ext \t4\().16b, \t4\().16b, \t4\().16b, #8 // l3412 |
|
|
|
fmla \t4\().4s, \t1\().4s, v31.4s // t1234 |
|
|
|
fadd \o1\().4s, \o0\().4s, \t4\().4s // out_o2 |
|
fsub \o0\().4s, \o0\().4s, \t4\().4s // out_o1 |
|
.endm |
|
|
|
// Identical as FFT8, but does 2 transforms in parallel |
|
.macro FFT8_X2 e0, e1, o0, o1, e2, e3, o2, o3 |
|
|
|
movrel x5, tab_8pt |
|
|
|
fadd v19.4s, \e3\().4s, \o3\().4s // k1234 |
|
fadd v17.4s, \e1\().4s, \o1\().4s // k1234 |
|
fadd v18.4s, \e2\().4s, \o2\().4s // q1234 |
|
fadd v16.4s, \e0\().4s, \o0\().4s // q1234 |
|
|
|
ld1 { v23.4s }, [x5] |
|
|
|
ext v22.16b, v19.16b, v19.16b, #12 |
|
ext v21.16b, v17.16b, v17.16b, #12 |
|
|
|
rev64 v22.4s, v22.4s |
|
rev64 v21.4s, v21.4s |
|
|
|
ext v19.16b, v18.16b, v22.16b, #8 |
|
ext v17.16b, v16.16b, v21.16b, #8 |
|
|
|
mov v18.d[1], v22.d[1] |
|
mov v21.d[0], v16.d[0] |
|
|
|
fadd v22.4s, v18.4s, v19.4s // s12, g12 |
|
fsub v19.4s, v18.4s, v19.4s // s34, g43 |
|
fsub v18.4s, v21.4s, v17.4s // s34, g43 |
|
fadd v16.4s, v21.4s, v17.4s // s12, g12 |
|
|
|
fsub \e0\().4s, \e0\().4s, \o0\().4s // r1234 |
|
fsub v20.4s, \e1\().4s, \o1\().4s // j1234 |
|
fsub \e2\().4s, \e2\().4s, \o2\().4s // r1234 |
|
fsub v21.4s, \e3\().4s, \o3\().4s // j1234 |
|
|
|
rev64 v24.4s, v31.4s // 1, -1, 1, -1 |
|
zip1 v17.2d, v16.2d, v18.2d // s1234 |
|
zip1 \e1\().2d, v22.2d, v19.2d // s1234 |
|
|
|
rev64 v18.4s, v18.4s // xxg34 |
|
rev64 v19.4s, v19.4s // xxg34 |
|
|
|
zip2 v16.2d, v16.2d, v18.2d // g1234 |
|
zip2 \e3\().2d, v22.2d, v19.2d // g1234 |
|
|
|
dup \o0\().2d, \e0\().d[0] // r1212 |
|
dup \o1\().2d, \e0\().d[1] // r3434 |
|
dup \o2\().2d, \e2\().d[0] // r1212 |
|
dup \o3\().2d, \e2\().d[1] // r3434 |
|
|
|
fadd \e2\().4s, \e1\().4s, \e3\().4s // out_e1 |
|
fsub \e3\().4s, \e1\().4s, \e3\().4s // out_e2 |
|
fadd \e0\().4s, v17.4s, v16.4s // out_e1 |
|
fsub \e1\().4s, v17.4s, v16.4s // out_e2 |
|
|
|
ext v24.16b, v31.16b, v24.16b, #8 // -1, 1, 1, -1 |
|
rev64 \o1\().4s, \o1\().4s // r4343 |
|
rev64 \o3\().4s, \o3\().4s // r4343 |
|
|
|
fmul v19.4s, v20.4s, v23.4s // j * +--+M_SQRT1_2 |
|
fmul v21.4s, v21.4s, v23.4s // j * +--+M_SQRT1_2 |
|
|
|
rev64 v20.4s, v19.4s // j2143 |
|
rev64 v18.4s, v21.4s // j2143 |
|
|
|
fmls \o0\().4s, \o1\().4s, v24.4s // z1234 |
|
fmls \o2\().4s, \o3\().4s, v24.4s // z1234 |
|
|
|
fmla v19.4s, v20.4s, v31.4s // l2143 |
|
fmla v21.4s, v18.4s, v31.4s // l2143 |
|
|
|
rev64 v20.4s, v19.4s // l1234 |
|
rev64 v18.4s, v21.4s // l1234 |
|
ext v20.16b, v20.16b, v20.16b, #8 // l3412 |
|
ext v18.16b, v18.16b, v18.16b, #8 // l3412 |
|
|
|
fmla v20.4s, v19.4s, v31.4s // t1234 |
|
fmla v18.4s, v21.4s, v31.4s // t1234 |
|
|
|
fadd \o1\().4s, \o0\().4s, v20.4s // out_o2 |
|
fadd \o3\().4s, \o2\().4s, v18.4s // out_o2 |
|
fsub \o0\().4s, \o0\().4s, v20.4s // out_o1 |
|
fsub \o2\().4s, \o2\().4s, v18.4s // out_o1 |
|
.endm |
|
|
|
const tab_16pt, align=4 |
|
.float -COS16_1, COS16_1, -COS16_3, COS16_3 // Could be +-+- too |
|
.float COS16_3, COS16_3, COS16_1, COS16_1 |
|
.float 1.0, 1.0, M_SQRT1_2, M_SQRT1_2 |
|
endconst |
|
|
|
// 16-point FFT |
|
// t3, t4, t5, t6 must be sequential |
|
.macro FFT16 e0, e1, e2, e3, o0, o1, o2, o3, \ |
|
t0=v16, t1=v17, t2=v18, t3=v19, t4=v20, t5=v21, t6=v22 |
|
|
|
FFT8 \e0, \e1, \e2, \e3, \t0, \t1, \t2, \t3, \t4, \t5, \t6 |
|
FFT4_X2 \o0, \o1, \o2, \o3, \t0, \t1, \t2, \t3, \t4, \t5, \t6 |
|
|
|
movrel x5, tab_16pt |
|
|
|
rev64 \t0\().4s, \o0\().4s // z[ 8, 9].imre |
|
rev64 \t1\().4s, \o2\().4s // z[10,11].imre |
|
|
|
ins \t0\().d[0], xzr |
|
ins \t1\().d[0], xzr |
|
|
|
ld1 { \t4\().4s, \t5\().4s, \t6\().4s }, [x5] |
|
// TODO: We could derive \t4\() or \t5\() from either, but it seems cheaper to load |
|
|
|
fmla \o2\().4s, \t1\().4s, v31.4s // s[4567] |
|
fmls \o0\().4s, \t0\().4s, v31.4s // s[0123] |
|
|
|
fmul \t2\().4s, \o1\().4s, \t4\().4s |
|
fmul \t3\().4s, \o3\().4s, \t4\().4s |
|
|
|
rev64 \o3\().4s, \o3\().4s |
|
rev64 \o1\().4s, \o1\().4s |
|
|
|
fmla \t3\().4s, \o3\().4s, \t5\().4s // s[12, 13, 14, 15] |
|
fmls \t2\().4s, \o1\().4s, \t5\().4s // s[ 8, 9, 10, 11] |
|
|
|
fmul \t1\().4s, \o2\().4s, \t6\().4s // s[4567] * mult |
|
fmul \t0\().4s, \o0\().4s, \t6\().4s // s[0123] * mult |
|
|
|
mov \o1\().16b, \t3\().16b |
|
mov \o2\().16b, \t1\().16b |
|
|
|
fsub \t3\().4s, \t3\().4s, \t2\().4s // y34, u34 |
|
fsub \t1\().4s, \t1\().4s, \t0\().4s // w34, x34 |
|
|
|
fadd \t2\().4s, \t2\().4s, \o1\().4s // y56, u56 |
|
rev64 \t3\().4s, \t3\().4s |
|
fadd \t0\().4s, \t0\().4s, \o2\().4s // w56, x56 |
|
rev64 \t1\().4s, \t1\().4s |
|
|
|
fmul \t2\().4s, \t2\().4s, v31.4s |
|
fmul \t1\().4s, \t1\().4s, v31.4s |
|
|
|
fadd \o3\().4s, \e3\().4s, \t3\().4s |
|
fsub \o2\().4s, \e3\().4s, \t3\().4s |
|
fsub \o1\().4s, \e2\().4s, \t2\().4s |
|
fadd \o0\().4s, \e2\().4s, \t2\().4s |
|
|
|
fsub \e2\().4s, \e0\().4s, \t0\().4s |
|
fadd \e0\().4s, \e0\().4s, \t0\().4s |
|
fsub \e3\().4s, \e1\().4s, \t1\().4s |
|
fadd \e1\().4s, \e1\().4s, \t1\().4s |
|
.endm |
|
|
|
function ff_tx_fft2_float_neon, export=1 |
|
ld2r { v0.2d, v1.2d }, [x2] |
|
|
|
fneg v2.2s, v1.2s |
|
mov v2.d[1], v1.d[0] |
|
|
|
fsub v2.4s, v0.4s, v2.4s |
|
|
|
st1 { v2.4s }, [x1] |
|
ret |
|
endfunc |
|
|
|
.macro FFT4_FN name, inv |
|
function ff_tx_fft4_\name\()_float_neon, export=1 |
|
ld1 {v0.4s, v1.4s}, [x2] |
|
|
|
.if \inv == 1 |
|
mov v2.d[0], v0.d[1] |
|
mov v0.d[1], v1.d[1] |
|
mov v1.d[1], v2.d[0] |
|
.endif |
|
|
|
FFT4 v0, v1, 1 |
|
|
|
st1 { v0.4s, v1.4s }, [x1] |
|
ret |
|
endfunc |
|
.endm |
|
|
|
FFT4_FN fwd, 0 |
|
FFT4_FN inv, 1 |
|
|
|
.macro FFT8_FN name, no_perm |
|
function ff_tx_fft8_\name\()_neon, export=1 |
|
SETUP_LUT \no_perm |
|
LOAD_INPUT 0, 1, 2, 3, x2, \no_perm |
|
|
|
LOAD_SUBADD |
|
FFT8 v0, v1, v2, v3 |
|
|
|
zip1 v16.2d, v0.2d, v2.2d |
|
zip2 v17.2d, v0.2d, v2.2d |
|
zip1 v18.2d, v1.2d, v3.2d |
|
zip2 v19.2d, v1.2d, v3.2d |
|
st1 { v16.4s, v17.4s, v18.4s, v19.4s }, [x1] |
|
|
|
ret |
|
endfunc |
|
.endm |
|
|
|
FFT8_FN float, 0 |
|
FFT8_FN ns_float, 1 |
|
|
|
.macro FFT16_FN name, no_perm |
|
function ff_tx_fft16_\name\()_neon, export=1 |
|
SETUP_LUT \no_perm |
|
LOAD_INPUT 0, 1, 2, 3, x2, \no_perm |
|
LOAD_INPUT 4, 5, 6, 7, x2, \no_perm |
|
|
|
LOAD_SUBADD |
|
FFT16 v0, v1, v2, v3, v4, v5, v6, v7 |
|
|
|
zip1 v20.2d, v0.2d, v4.2d |
|
zip2 v21.2d, v0.2d, v4.2d |
|
zip1 v22.2d, v1.2d, v6.2d |
|
zip2 v23.2d, v1.2d, v6.2d |
|
st1 { v20.4s, v21.4s, v22.4s, v23.4s }, [x1], #64 |
|
|
|
zip1 v24.2d, v2.2d, v5.2d |
|
zip2 v25.2d, v2.2d, v5.2d |
|
zip1 v26.2d, v3.2d, v7.2d |
|
zip2 v27.2d, v3.2d, v7.2d |
|
st1 { v24.4s, v25.4s, v26.4s, v27.4s }, [x1] |
|
|
|
ret |
|
endfunc |
|
.endm |
|
|
|
FFT16_FN float, 0 |
|
FFT16_FN ns_float, 1 |
|
|
|
.macro SETUP_SR_RECOMB len, re, im, dec |
|
ldr w5, =(\len - 4*7) |
|
movrel \re, X(ff_tx_tab_\len\()_float) |
|
add \im, \re, x5 |
|
mov \dec, #-32 |
|
|
|
.if \len > 32 |
|
mov x21, #2*\len |
|
add x22, x21, x21, lsl #1 |
|
.endif |
|
.endm |
|
|
|
.macro SR_COMBINE e0, e1, e2, e3, e4, e5, e6, e7, \ |
|
o0, o1, o2, o3, o4, o5, o6, o7, \ |
|
re, im, dec, swap_im, \ |
|
t0=v16, t1=v17, t2=v18, t3=v19, t4=v20, t5=v21, \ |
|
t6=v22, t7=v23, t8=v24, t9=v25, ta=v26, tb=v27 |
|
|
|
ld1 { \t8\().4s, \t9\().4s }, [\im], \dec |
|
ld1 { \t0\().4s, \t1\().4s }, [\re], #32 |
|
|
|
.if \swap_im == 1 |
|
ext \t2\().16b, \t9\().16b, \t9\().16b, #8 |
|
ext \t3\().16b, \t8\().16b, \t8\().16b, #8 |
|
.else |
|
ext \t2\().16b, \t8\().16b, \t8\().16b, #8 |
|
ext \t3\().16b, \t9\().16b, \t9\().16b, #8 |
|
.endif |
|
|
|
trn1 \t4\().4s, \t0\().4s, \t0\().4s // cos0022 |
|
trn2 \t0\().4s, \t0\().4s, \t0\().4s // cos4466 |
|
trn1 \t5\().4s, \t1\().4s, \t1\().4s // cos1133 |
|
trn2 \t1\().4s, \t1\().4s, \t1\().4s // cos5577 |
|
|
|
rev64 \t6\().4s, \o0\().4s // E m2[0,1].imre |
|
rev64 \t7\().4s, \o2\().4s // O m2[0,1].imre |
|
rev64 \t8\().4s, \o4\().4s // E m2[2,3].imre |
|
rev64 \t9\().4s, \o6\().4s // O m2[2,3].imre |
|
|
|
fmul \t6\().4s, \t6\().4s, \t4\().4s // E m2[0,1].imre*t1[0,2] |
|
fmul \t7\().4s, \t7\().4s, \t0\().4s // O m2[0,1].imre*t1[0,2] |
|
fmul \t8\().4s, \t8\().4s, \t4\().4s // E m2[2,3].imre*t1[0,2] |
|
fmul \t9\().4s, \t9\().4s, \t0\().4s // O m2[2,3].imre*t1[0,2] |
|
|
|
rev64 \ta\().4s, \o1\().4s // E m3[0,1].imre |
|
rev64 \tb\().4s, \o3\().4s // O m3[0,1].imre |
|
rev64 \t4\().4s, \o5\().4s // E m3[2,3].imre |
|
rev64 \t0\().4s, \o7\().4s // O m3[2,3].imre |
|
|
|
fmul \ta\().4s, \ta\().4s, \t5\().4s // E m3[0,1].imre*t1[4,6] |
|
fmul \tb\().4s, \tb\().4s, \t1\().4s // O m3[0,1].imre*t1[4,6] |
|
fmul \t4\().4s, \t4\().4s, \t5\().4s // E m3[2,3].imre*t1[4,6] |
|
fmul \t0\().4s, \t0\().4s, \t1\().4s // O m3[2,3].imre*t1[4,6] |
|
|
|
trn1 \t5\().4s, \t3\().4s, \t3\().4s // wim2200 |
|
trn2 \t3\().4s, \t3\().4s, \t3\().4s // wim3311 |
|
trn1 \t1\().4s, \t2\().4s, \t2\().4s // wim6644 |
|
trn2 \t2\().4s, \t2\().4s, \t2\().4s // wim7755 |
|
|
|
fmul \t5\().4s, \t5\().4s, v31.4s |
|
fmul \t3\().4s, \t3\().4s, v31.4s |
|
fmul \t1\().4s, \t1\().4s, v31.4s |
|
fmul \t2\().4s, \t2\().4s, v31.4s |
|
|
|
fmla \t7\().4s, \o2\().4s, \t5\().4s // O w0123 |
|
fmls \t9\().4s, \o6\().4s, \t5\().4s // O j0123 |
|
fmla \t6\().4s, \o0\().4s, \t3\().4s // E w0123 |
|
fmls \t8\().4s, \o4\().4s, \t3\().4s // E j0123 |
|
|
|
fmla \ta\().4s, \o1\().4s, \t2\().4s // E w4567 |
|
fmla \tb\().4s, \o3\().4s, \t1\().4s // O w4567 |
|
fmls \t4\().4s, \o5\().4s, \t2\().4s // E j4567 |
|
fmls \t0\().4s, \o7\().4s, \t1\().4s // O j4567 |
|
|
|
fsub \t2\().4s, \t7\().4s, \t9\().4s |
|
fsub \t1\().4s, \t8\().4s, \t6\().4s |
|
fsub \t3\().4s, \t4\().4s, \ta\().4s |
|
fsub \t5\().4s, \t0\().4s, \tb\().4s |
|
|
|
fadd \t6\().4s, \t8\().4s, \t6\().4s |
|
fadd \t7\().4s, \t9\().4s, \t7\().4s |
|
fadd \t8\().4s, \t4\().4s, \ta\().4s |
|
fadd \t9\().4s, \t0\().4s, \tb\().4s |
|
|
|
fmul \t1\().4s, \t1\().4s, v31.4s |
|
fmul \t2\().4s, \t2\().4s, v31.4s |
|
fmul \t3\().4s, \t3\().4s, v31.4s |
|
fmul \t5\().4s, \t5\().4s, v31.4s |
|
|
|
rev64 \t6\().4s, \t6\().4s |
|
rev64 \t8\().4s, \t8\().4s |
|
rev64 \t7\().4s, \t7\().4s |
|
rev64 \t9\().4s, \t9\().4s |
|
|
|
fsub \o0\().4s, \e0\().4s, \t6\().4s |
|
fsub \o1\().4s, \e1\().4s, \t8\().4s |
|
fsub \o2\().4s, \e2\().4s, \t1\().4s |
|
fsub \o3\().4s, \e3\().4s, \t3\().4s |
|
|
|
fsub \o4\().4s, \e4\().4s, \t7\().4s |
|
fsub \o5\().4s, \e6\().4s, \t9\().4s |
|
fadd \o6\().4s, \e5\().4s, \t2\().4s |
|
fsub \o7\().4s, \e7\().4s, \t5\().4s |
|
|
|
fadd \e0\().4s, \e0\().4s, \t6\().4s |
|
fadd \e1\().4s, \e1\().4s, \t8\().4s |
|
fadd \e2\().4s, \e2\().4s, \t1\().4s |
|
fadd \e3\().4s, \e3\().4s, \t3\().4s |
|
|
|
fadd \e4\().4s, \e4\().4s, \t7\().4s |
|
fsub \e5\().4s, \e5\().4s, \t2\().4s // swapped |
|
fadd \e6\().4s, \e6\().4s, \t9\().4s // swapped |
|
fadd \e7\().4s, \e7\().4s, \t5\().4s |
|
.endm |
|
|
|
.macro SR_COMBINE_HALF e0, e1, e2, e3, \ |
|
o0, o1, o2, o3, \ |
|
c0, c1, c2, c3, \ |
|
t0, t1, t2, t3, t4, t5, part |
|
|
|
.if \part == 0 |
|
trn1 \t4\().4s, \c0\().4s, \c0\().4s // cos0022 |
|
trn1 \c1\().4s, \c1\().4s, \c1\().4s // cos1133 |
|
.else |
|
trn2 \t4\().4s, \c0\().4s, \c0\().4s // cos0022 |
|
trn2 \c1\().4s, \c1\().4s, \c1\().4s // cos1133 |
|
.endif |
|
.if \part == 0 |
|
trn2 \t5\().4s, \c2\().4s, \c2\().4s // wim7755 |
|
trn2 \c3\().4s, \c3\().4s, \c3\().4s // wim3311 |
|
.else |
|
trn1 \t5\().4s, \c2\().4s, \c2\().4s // wim7755 |
|
trn1 \c3\().4s, \c3\().4s, \c3\().4s // wim3311 |
|
.endif |
|
|
|
fmul \t5\().4s, \t5\().4s, v31.4s |
|
fmul \c3\().4s, \c3\().4s, v31.4s |
|
|
|
rev64 \t0\().4s, \o0\().4s // E m2[0,1].imre |
|
rev64 \t1\().4s, \o2\().4s // E m2[2,3].imre |
|
rev64 \t2\().4s, \o1\().4s // E m3[0,1].imre |
|
rev64 \t3\().4s, \o3\().4s // E m3[2,3].imre |
|
|
|
fmul \o0\().4s, \o0\().4s, \c3\().4s // E m2[0,1].imre*t1[0,2] |
|
fmul \o1\().4s, \o1\().4s, \t5\().4s // E m3[0,1].imre*t1[4,6] |
|
fmla \o0\().4s, \t0\().4s, \t4\().4s // E w0123 |
|
fmla \o1\().4s, \t2\().4s, \c1\().4s // E w4567 |
|
|
|
fmul \t1\().4s, \t1\().4s, \t4\().4s // E m2[2,3].imre*t1[0,2] |
|
fmul \t3\().4s, \t3\().4s, \c1\().4s // E m3[2,3].imre*t1[4,6] |
|
fmls \t1\().4s, \o2\().4s, \c3\().4s // E j0123 |
|
fmls \t3\().4s, \o3\().4s, \t5\().4s // E j4567 |
|
|
|
fsub \t0\().4s, \t1\().4s, \o0\().4s |
|
fadd \t1\().4s, \t1\().4s, \o0\().4s |
|
fadd \t2\().4s, \t3\().4s, \o1\().4s |
|
fsub \t3\().4s, \t3\().4s, \o1\().4s |
|
|
|
fmul \t0\().4s, \t0\().4s, v31.4s |
|
fmul \t3\().4s, \t3\().4s, v31.4s |
|
|
|
rev64 \t1\().4s, \t1\().4s |
|
rev64 \t2\().4s, \t2\().4s |
|
|
|
.if \part == 0 |
|
fsub \o0\().4s, \e0\().4s, \t1\().4s |
|
fsub \o1\().4s, \e1\().4s, \t2\().4s |
|
fsub \o2\().4s, \e2\().4s, \t0\().4s |
|
fsub \o3\().4s, \e3\().4s, \t3\().4s |
|
.else |
|
fsub \o0\().4s, \e0\().4s, \t1\().4s |
|
fadd \o2\().4s, \e1\().4s, \t2\().4s |
|
fsub \o1\().4s, \e2\().4s, \t0\().4s |
|
fadd \o3\().4s, \e3\().4s, \t3\().4s |
|
.endif |
|
|
|
.if \part == 0 |
|
fadd \e0\().4s, \e0\().4s, \t1\().4s |
|
fadd \e1\().4s, \e1\().4s, \t2\().4s |
|
fadd \e2\().4s, \e2\().4s, \t0\().4s |
|
fadd \e3\().4s, \e3\().4s, \t3\().4s |
|
.else |
|
fadd \e0\().4s, \e0\().4s, \t1\().4s |
|
fsub \e1\().4s, \e1\().4s, \t2\().4s // swapped |
|
fadd \e2\().4s, \e2\().4s, \t0\().4s // swapped |
|
fsub \e3\().4s, \e3\().4s, \t3\().4s |
|
.endif |
|
.endm |
|
|
|
/* Same as SR_COMBINE_HALF, but heroically tries to use 3 temporary registers |
|
* without touching the tables. */ |
|
.macro SR_COMBINE_LITE e0, e1, e2, e3, \ |
|
o0, o1, o2, o3, \ |
|
c0, c1, c2, c3, \ |
|
t0, t1, t2, part |
|
|
|
rev64 \t0\().4s, \o0\().4s // E m2[0,1].imre |
|
rev64 \t1\().4s, \o2\().4s // E m2[2,3].imre |
|
.if \part == 0 |
|
trn2 \t2\().4s, \c3\().4s, \c3\().4s // wim3311 |
|
.else |
|
trn1 \t2\().4s, \c3\().4s, \c3\().4s // wim3311 |
|
.endif |
|
fmul \t2\().4s, \t2\().4s, v31.4s |
|
fmul \o2\().4s, \o2\().4s, \t2\().4s |
|
fmul \o0\().4s, \o0\().4s, \t2\().4s // E m2[0,1].imre*t1[0,2] |
|
.if \part == 0 |
|
trn1 \t2\().4s, \c0\().4s, \c0\().4s // cos0022 |
|
.else |
|
trn2 \t2\().4s, \c0\().4s, \c0\().4s // cos0022 |
|
.endif |
|
fmul \t1\().4s, \t1\().4s, \t2\().4s // E m2[2,3].imre*t1[0,2] |
|
fmla \o0\().4s, \t0\().4s, \t2\().4s // E w0123 |
|
fsub \t1\().4s, \t1\().4s, \o2\().4s // E j0123 |
|
|
|
rev64 \t2\().4s, \o1\().4s // E m3[0,1].imre |
|
rev64 \o2\().4s, \o3\().4s // E m3[2,3].imre |
|
|
|
.if \part == 0 |
|
trn2 \t0\().4s, \c2\().4s, \c2\().4s // wim7755 |
|
.else |
|
trn1 \t0\().4s, \c2\().4s, \c2\().4s // wim7755 |
|
.endif |
|
fmul \t0\().4s, \t0\().4s, v31.4s |
|
|
|
fmul \o1\().4s, \o1\().4s, \t0\().4s // E m3[0,1].imre*t1[4,6] |
|
fmul \o3\().4s, \o3\().4s, \t0\().4s |
|
|
|
.if \part == 0 |
|
trn1 \t0\().4s, \c1\().4s, \c1\().4s // cos1133 |
|
.else |
|
trn2 \t0\().4s, \c1\().4s, \c1\().4s // cos1133 |
|
.endif |
|
fmul \o2\().4s, \o2\().4s, \t0\().4s // E m3[2,3].imre*t1[4,6] |
|
fmla \o1\().4s, \t2\().4s, \t0\().4s // E w4567 |
|
fsub \o2\().4s, \o2\().4s, \o3\().4s // E j4567 |
|
|
|
fsub \t0\().4s, \t1\().4s, \o0\().4s |
|
fadd \o0\().4s, \t1\().4s, \o0\().4s |
|
fadd \t2\().4s, \o2\().4s, \o1\().4s |
|
fsub \t1\().4s, \o2\().4s, \o1\().4s |
|
|
|
fmul \t0\().4s, \t0\().4s, v31.4s |
|
fmul \t1\().4s, \t1\().4s, v31.4s |
|
|
|
rev64 \t2\().4s, \t2\().4s |
|
rev64 \o0\().4s, \o0\().4s |
|
|
|
.if \part == 0 |
|
fsub \o1\().4s, \e1\().4s, \t2\().4s |
|
fsub \o2\().4s, \e2\().4s, \t0\().4s |
|
fsub \o3\().4s, \e3\().4s, \t1\().4s |
|
.else |
|
fadd \o2\().4s, \e1\().4s, \t0\().4s |
|
fsub \o1\().4s, \e2\().4s, \t2\().4s |
|
fadd \o3\().4s, \e3\().4s, \t1\().4s |
|
.endif |
|
|
|
.if \part == 0 |
|
fadd \e1\().4s, \e1\().4s, \t2\().4s |
|
fadd \e2\().4s, \e2\().4s, \t0\().4s |
|
fadd \e3\().4s, \e3\().4s, \t1\().4s |
|
.else |
|
fsub \e1\().4s, \e1\().4s, \t0\().4s // swapped |
|
fadd \e2\().4s, \e2\().4s, \t2\().4s // swapped |
|
fsub \e3\().4s, \e3\().4s, \t1\().4s |
|
.endif |
|
|
|
mov \t1\().16b, \o0\().16b |
|
|
|
fsub \o0\().4s, \e0\().4s, \t1\().4s |
|
fadd \e0\().4s, \e0\().4s, \t1\().4s |
|
.endm |
|
|
|
.macro SR_COMBINE_4 len, part, off |
|
add x10, x1, x21 |
|
add x11, x1, x21, lsl #1 |
|
add x12, x1, x22 |
|
|
|
ldp q0, q1, [x1, #((0 + \part)*32 + \off)] |
|
ldp q4, q5, [x1, #((2 + \part)*32 + \off)] |
|
ldp q2, q3, [x10, #((0 + \part)*32 + \off)] |
|
ldp q6, q7, [x10, #((2 + \part)*32 + \off)] |
|
|
|
ldp q8, q9, [x11, #((0 + \part)*32 + \off)] |
|
ldp q10, q11, [x11, #((2 + \part)*32 + \off)] |
|
ldp q12, q13, [x12, #((0 + \part)*32 + \off)] |
|
ldp q14, q15, [x12, #((2 + \part)*32 + \off)] |
|
|
|
SR_COMBINE v0, v1, v2, v3, v4, v6, v5, v7, \ |
|
v8, v9, v10, v11, v12, v13, v14, v15, \ |
|
x7, x8, x9, 0 |
|
|
|
stp q0, q1, [x1, #((0 + \part)*32 + \off)] |
|
stp q4, q5, [x1, #((2 + \part)*32 + \off)] |
|
stp q2, q3, [x10, #((0 + \part)*32 + \off)] |
|
stp q6, q7, [x10, #((2 + \part)*32 + \off)] |
|
|
|
stp q8, q9, [x11, #((0 + \part)*32 + \off)] |
|
stp q12, q13, [x11, #((2 + \part)*32 + \off)] |
|
stp q10, q11, [x12, #((0 + \part)*32 + \off)] |
|
stp q14, q15, [x12, #((2 + \part)*32 + \off)] |
|
.endm |
|
|
|
.macro SR_COMBINE_FULL len, off=0 |
|
add x10, x1, x21 |
|
add x11, x1, x21, lsl #1 |
|
add x12, x1, x22 |
|
|
|
SR_COMBINE_4 \len, 0, \off |
|
SR_COMBINE_4 \len, 1, \off |
|
SR_COMBINE_4 \len, 4, \off |
|
SR_COMBINE_4 \len, 5, \off |
|
.endm |
|
|
|
.macro SR_COMBINE_D2 part, off |
|
add x10, x1, #((\part)*32 + \off) |
|
add x11, x14, #((\part)*32 + \off) |
|
add x12, x15, #((\part)*32 + \off) |
|
add x13, x16, #((\part)*32 + \off) |
|
|
|
ldp q0, q1, [x10] |
|
ldp q4, q5, [x10, #(2*32)] |
|
ldp q2, q3, [x11] |
|
ldp q6, q7, [x11, #(2*32)] |
|
|
|
ldp q8, q9, [x12] |
|
ldp q10, q11, [x12, #(2*32)] |
|
ldp q12, q13, [x13] |
|
ldp q14, q15, [x13, #(2*32)] |
|
|
|
SR_COMBINE v0, v1, v2, v3, v4, v6, v5, v7, \ |
|
v8, v9, v10, v11, v12, v13, v14, v15, \ |
|
x7, x8, x9, 0, \ |
|
v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27 |
|
|
|
zip1 v16.2d, v0.2d, v4.2d |
|
zip2 v17.2d, v0.2d, v4.2d |
|
zip1 v18.2d, v1.2d, v5.2d |
|
zip2 v19.2d, v1.2d, v5.2d |
|
|
|
zip1 v20.2d, v2.2d, v6.2d |
|
zip2 v21.2d, v2.2d, v6.2d |
|
zip1 v22.2d, v3.2d, v7.2d |
|
zip2 v23.2d, v3.2d, v7.2d |
|
|
|
ldp q0, q1, [x10, #(1*32)] |
|
ldp q4, q5, [x10, #(3*32)] |
|
ldp q2, q3, [x11, #(1*32)] |
|
ldp q6, q7, [x11, #(3*32)] |
|
|
|
st1 { v16.4s, v17.4s, v18.4s, v19.4s }, [x10], #64 |
|
st1 { v20.4s, v21.4s, v22.4s, v23.4s }, [x11], #64 |
|
|
|
zip1 v20.2d, v8.2d, v12.2d |
|
zip2 v21.2d, v8.2d, v12.2d |
|
zip1 v22.2d, v9.2d, v13.2d |
|
zip2 v23.2d, v9.2d, v13.2d |
|
zip1 v24.2d, v10.2d, v14.2d |
|
zip2 v25.2d, v10.2d, v14.2d |
|
zip1 v26.2d, v11.2d, v15.2d |
|
zip2 v27.2d, v11.2d, v15.2d |
|
|
|
ldp q8, q9, [x12, #(1*32)] |
|
ldp q10, q11, [x12, #(3*32)] |
|
ldp q12, q13, [x13, #(1*32)] |
|
ldp q14, q15, [x13, #(3*32)] |
|
|
|
st1 { v20.4s, v21.4s, v22.4s, v23.4s }, [x12], #64 |
|
st1 { v24.4s, v25.4s, v26.4s, v27.4s }, [x13], #64 |
|
|
|
SR_COMBINE v0, v1, v2, v3, v4, v6, v5, v7, \ |
|
v8, v9, v10, v11, v12, v13, v14, v15, \ |
|
x7, x8, x9, 0, \ |
|
v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27 |
|
|
|
zip1 v16.2d, v0.2d, v4.2d |
|
zip2 v17.2d, v0.2d, v4.2d |
|
zip1 v18.2d, v1.2d, v5.2d |
|
zip2 v19.2d, v1.2d, v5.2d |
|
st1 { v16.4s, v17.4s, v18.4s, v19.4s }, [x10] |
|
|
|
zip1 v16.2d, v2.2d, v6.2d |
|
zip2 v17.2d, v2.2d, v6.2d |
|
zip1 v18.2d, v3.2d, v7.2d |
|
zip2 v19.2d, v3.2d, v7.2d |
|
st1 { v16.4s, v17.4s, v18.4s, v19.4s }, [x11] |
|
|
|
zip1 v20.2d, v8.2d, v12.2d |
|
zip2 v21.2d, v8.2d, v12.2d |
|
zip1 v22.2d, v9.2d, v13.2d |
|
zip2 v23.2d, v9.2d, v13.2d |
|
st1 { v20.4s, v21.4s, v22.4s, v23.4s }, [x12] |
|
|
|
zip1 v24.2d, v10.2d, v14.2d |
|
zip2 v25.2d, v10.2d, v14.2d |
|
zip1 v26.2d, v11.2d, v15.2d |
|
zip2 v27.2d, v11.2d, v15.2d |
|
st1 { v24.4s, v25.4s, v26.4s, v27.4s }, [x13] |
|
.endm |
|
|
|
.macro SR_COMBINE_DINT off=0 |
|
add x14, x1, x21 |
|
add x15, x1, x21, lsl #1 |
|
add x16, x1, x22 |
|
|
|
SR_COMBINE_D2 0, \off |
|
SR_COMBINE_D2 4, \off |
|
.endm |
|
|
|
.macro FFT32_FN name, no_perm |
|
function ff_tx_fft32_\name\()_neon, export=1 |
|
stp d14, d15, [sp, #-16*4]! |
|
stp d8, d9, [sp, #16*3] |
|
stp d10, d11, [sp, #16*2] |
|
stp d12, d13, [sp, #16] |
|
|
|
LOAD_SUBADD |
|
SETUP_SR_RECOMB 32, x7, x8, x9 |
|
|
|
SETUP_LUT \no_perm |
|
LOAD_INPUT 0, 1, 2, 3, x2, \no_perm |
|
LOAD_INPUT 4, 5, 6, 7, x2, \no_perm |
|
LOAD_INPUT 8, 9, 10, 11, x2, \no_perm |
|
LOAD_INPUT 12, 13, 14, 15, x2, \no_perm |
|
|
|
FFT8_X2 v8, v9, v10, v11, v12, v13, v14, v15 |
|
FFT16 v0, v1, v2, v3, v4, v5, v6, v7 |
|
|
|
SR_COMBINE v0, v1, v2, v3, v4, v5, v6, v7, \ |
|
v8, v9, v10, v11, v12, v13, v14, v15, \ |
|
x7, x8, x9, 0 |
|
|
|
zip1 v16.2d, v0.2d, v4.2d |
|
zip2 v17.2d, v0.2d, v4.2d |
|
zip1 v18.2d, v1.2d, v6.2d |
|
zip2 v19.2d, v1.2d, v6.2d |
|
st1 { v16.4s, v17.4s, v18.4s, v19.4s }, [x1], #64 |
|
|
|
zip1 v20.2d, v2.2d, v5.2d |
|
zip2 v21.2d, v2.2d, v5.2d |
|
zip1 v22.2d, v3.2d, v7.2d |
|
zip2 v23.2d, v3.2d, v7.2d |
|
st1 { v20.4s, v21.4s, v22.4s, v23.4s }, [x1], #64 |
|
|
|
zip1 v24.2d, v8.2d, v12.2d |
|
zip2 v25.2d, v8.2d, v12.2d |
|
zip1 v26.2d, v9.2d, v13.2d |
|
zip2 v27.2d, v9.2d, v13.2d |
|
st1 { v24.4s, v25.4s, v26.4s, v27.4s }, [x1], #64 |
|
|
|
zip1 v28.2d, v10.2d, v14.2d |
|
zip2 v29.2d, v10.2d, v14.2d |
|
zip1 v30.2d, v11.2d, v15.2d |
|
zip2 v31.2d, v11.2d, v15.2d |
|
st1 { v28.4s, v29.4s, v30.4s, v31.4s }, [x1] |
|
|
|
ldp d12, d13, [sp, #16] |
|
ldp d10, d11, [sp, #16*2] |
|
ldp d8, d9, [sp, #16*3] |
|
ldp d14, d15, [sp], #16*4 |
|
|
|
ret |
|
endfunc |
|
.endm |
|
|
|
FFT32_FN float, 0 |
|
FFT32_FN ns_float, 1 |
|
|
|
.macro cmp_imm reg, imm |
|
.if \imm >= 4096 |
|
cmp \reg, #((\imm)/4096), lsl #12 |
|
.else |
|
cmp \reg, #(\imm) |
|
.endif |
|
.endm |
|
|
|
.macro SR_TRANSFORM_DEF len, next=0 |
|
\len: |
|
stp x20, x30, [sp, #-16]! |
|
mov w20, #(\len/4) |
|
mov x5, #((\len*4) - (\len/1)) |
|
add x1, x1, x5 |
|
bl 32b |
|
mov x5, #((\len*2) - (\len/2)) |
|
add x1, x1, x5 |
|
bl 32b |
|
ldp x20, x30, [sp], #16 |
|
ldr w5, =(\len*6 + \len/2) |
|
sub x1, x1, x5 |
|
|
|
SETUP_SR_RECOMB \len, x7, x8, x9 |
|
|
|
.if \next\() != 0 |
|
cmp_imm w19, \len |
|
b.eq 0f |
|
|
|
mov w5, #(\len/128) |
|
\len\()5: |
|
SR_COMBINE_FULL \len |
|
add x1, x1, 8*32 |
|
subs w5, w5, 1 |
|
b.gt \len\()5b |
|
|
|
cmp_imm w20, \len |
|
b.gt \next\()f |
|
ret |
|
.endif |
|
.endm |
|
|
|
.macro FFT_SPLIT_RADIX_FN name, no_perm |
|
function ff_tx_fft_sr_\name\()_neon, export=1 |
|
stp x21, x22, [sp, #-16*6]! |
|
stp d8, d9, [sp, #16*5] |
|
stp d10, d11, [sp, #16*4] |
|
stp d12, d13, [sp, #16*3] |
|
stp d14, d15, [sp, #16*2] |
|
stp x19, x20, [sp, #16] |
|
|
|
ldr w19, [x0, #0] // global target |
|
mov w20, w19 // local length |
|
|
|
LOAD_SUBADD |
|
SETUP_LUT \no_perm |
|
|
|
32: |
|
SETUP_SR_RECOMB 32, x7, x8, x9 |
|
|
|
LOAD_INPUT 0, 1, 2, 3, x2, \no_perm |
|
LOAD_INPUT 4, 6, 5, 7, x2, \no_perm, 1 |
|
LOAD_INPUT 8, 9, 10, 11, x2, \no_perm |
|
LOAD_INPUT 12, 13, 14, 15, x2, \no_perm |
|
|
|
FFT8_X2 v8, v9, v10, v11, v12, v13, v14, v15 |
|
FFT16 v0, v1, v2, v3, v4, v6, v5, v7 |
|
|
|
SR_COMBINE v0, v1, v2, v3, v4, v6, v5, v7, \ |
|
v8, v9, v10, v11, v12, v13, v14, v15, \ |
|
x7, x8, x9, 0 |
|
|
|
stp q2, q3, [x1, #32*1] |
|
stp q6, q7, [x1, #32*3] |
|
stp q10, q11, [x1, #32*5] |
|
stp q14, q15, [x1, #32*7] |
|
|
|
cmp w20, #32 |
|
b.gt 64f |
|
|
|
stp q0, q1, [x1, #32*0] |
|
stp q4, q5, [x1, #32*2] |
|
stp q8, q9, [x1, #32*4] |
|
stp q12, q13, [x1, #32*6] |
|
|
|
ret |
|
64: |
|
SETUP_SR_RECOMB 64, x7, x8, x9 |
|
|
|
LOAD_INPUT 2, 3, 10, 11, x2, \no_perm, 1 |
|
LOAD_INPUT 6, 14, 7, 15, x2, \no_perm, 1 |
|
|
|
FFT16 v2, v3, v10, v11, v6, v14, v7, v15 |
|
|
|
LOAD_INPUT 16, 17, 18, 19, x2, \no_perm |
|
LOAD_INPUT 20, 22, 21, 23, x2, \no_perm, 1 |
|
|
|
FFT16 v16, v17, v18, v19, v20, v22, v21, v23, \ |
|
v24, v25, v26, v27, v28, v29, v30 |
|
|
|
ld1 { v26.4s, v27.4s }, [x8], x9 |
|
ldp q24, q25, [x7], #32 |
|
|
|
ext v26.16b, v26.16b, v26.16b, #8 |
|
ext v27.16b, v27.16b, v27.16b, #8 |
|
|
|
cmp w19, #64 |
|
b.eq 2f // custom deinterleave |
|
|
|
// TODO: investigate doing the 2 combines like in deinterleave |
|
// TODO: experiment with spilling to gprs and converting to HALF or full |
|
SR_COMBINE_LITE v0, v1, v8, v9, \ |
|
v2, v3, v16, v17, \ |
|
v24, v25, v26, v27, \ |
|
v28, v29, v30, 0 |
|
|
|
stp q0, q1, [x1, #32* 0] |
|
stp q8, q9, [x1, #32* 4] |
|
stp q2, q3, [x1, #32* 8] |
|
stp q16, q17, [x1, #32*12] |
|
|
|
SR_COMBINE_HALF v4, v5, v12, v13, \ |
|
v6, v7, v20, v21, \ |
|
v24, v25, v26, v27, \ |
|
v28, v29, v30, v0, v1, v8, 1 |
|
|
|
stp q4, q20, [x1, #32* 2] |
|
stp q12, q21, [x1, #32* 6] |
|
stp q6, q5, [x1, #32*10] |
|
stp q7, q13, [x1, #32*14] |
|
|
|
ldp q2, q3, [x1, #32*1] |
|
ldp q6, q7, [x1, #32*3] |
|
ldp q12, q13, [x1, #32*5] |
|
ldp q16, q17, [x1, #32*7] |
|
|
|
SR_COMBINE v2, v3, v12, v13, v6, v16, v7, v17, \ |
|
v10, v11, v14, v15, v18, v19, v22, v23, \ |
|
x7, x8, x9, 0, \ |
|
v24, v25, v26, v27, v28, v29, v30, v8, v0, v1, v4, v5 |
|
|
|
stp q2, q3, [x1, #32* 1] |
|
stp q6, q7, [x1, #32* 3] |
|
stp q12, q13, [x1, #32* 5] |
|
stp q16, q17, [x1, #32* 7] |
|
|
|
stp q10, q11, [x1, #32* 9] |
|
stp q18, q19, [x1, #32*11] |
|
stp q14, q15, [x1, #32*13] |
|
stp q22, q23, [x1, #32*15] |
|
|
|
cmp w20, #64 |
|
b.gt 128f |
|
ret |
|
128: |
|
stp x20, x30, [sp, #-16]! |
|
mov w20, #32 |
|
add x1, x1, #16*32 |
|
bl 32b |
|
add x1, x1, #8*32 |
|
bl 32b |
|
ldp x20, x30, [sp], #16 |
|
sub x1, x1, #24*32 |
|
|
|
SETUP_SR_RECOMB 128, x7, x8, x9 |
|
|
|
cmp w19, #128 |
|
b.eq 0f |
|
|
|
SR_COMBINE_FULL 128 |
|
|
|
cmp w20, #128 |
|
b.gt 256f |
|
ret |
|
256: |
|
stp x20, x30, [sp, #-16]! |
|
mov w20, #64 |
|
add x1, x1, #32*32 |
|
bl 32b |
|
add x1, x1, #16*32 |
|
bl 32b |
|
ldp x20, x30, [sp], #16 |
|
sub x1, x1, #48*32 |
|
|
|
SETUP_SR_RECOMB 256, x7, x8, x9 |
|
|
|
cmp w19, #256 |
|
b.eq 0f |
|
|
|
SR_COMBINE_FULL 256 |
|
SR_COMBINE_FULL 256, 8*32 |
|
|
|
cmp w20, #256 |
|
b.gt 512f |
|
ret |
|
512: |
|
stp x20, x30, [sp, #-16]! |
|
mov w20, #128 |
|
add x1, x1, #64*32 |
|
bl 32b |
|
add x1, x1, #32*32 |
|
bl 32b |
|
ldp x20, x30, [sp], #16 |
|
sub x1, x1, #96*32 |
|
|
|
SETUP_SR_RECOMB 512, x7, x8, x9 |
|
|
|
cmp w19, #512 |
|
b.eq 0f |
|
|
|
mov x5, 4 |
|
5125: |
|
SR_COMBINE_FULL 512 |
|
add x1, x1, 8*32 |
|
subs w5, w5, 1 |
|
b.gt 5125b |
|
|
|
cmp w20, #512 |
|
b.gt 1024f |
|
|
|
ret |
|
1024: |
|
stp x20, x30, [sp, #-16]! |
|
mov w20, #256 |
|
add x1, x1, #96*32 |
|
bl 32b |
|
add x1, x1, #64*32 |
|
bl 32b |
|
ldp x20, x30, [sp], #16 |
|
mov x5, #192*32 |
|
sub x1, x1, x5 |
|
|
|
SETUP_SR_RECOMB 1024, x7, x8, x9 |
|
|
|
cmp w19, #1024 |
|
b.eq 0f |
|
|
|
mov w5, 8 |
|
10245: |
|
SR_COMBINE_FULL 1024 |
|
add x1, x1, 8*32 |
|
subs w5, w5, 1 |
|
b.gt 10245b |
|
|
|
cmp w20, #1024 |
|
b.gt 2048f |
|
|
|
ret |
|
|
|
SR_TRANSFORM_DEF 2048, 4096 |
|
SR_TRANSFORM_DEF 4096, 8192 |
|
SR_TRANSFORM_DEF 8192, 16384 |
|
SR_TRANSFORM_DEF 16384, 32768 |
|
SR_TRANSFORM_DEF 32768, 65536 |
|
SR_TRANSFORM_DEF 65536, 131072 |
|
SR_TRANSFORM_DEF 131072 |
|
|
|
0: // general deinterleave loop |
|
SR_COMBINE_DINT |
|
add x1, x1, #32*8 |
|
subs w19, w19, #32*4 |
|
b.gt 0b |
|
|
|
ldp x19, x20, [sp, #16] |
|
ldp d14, d15, [sp, #16*2] |
|
ldp d12, d13, [sp, #16*3] |
|
ldp d10, d11, [sp, #16*4] |
|
ldp d8, d9, [sp, #16*5] |
|
ldp x21, x22, [sp], #16*6 |
|
|
|
ret |
|
|
|
2: // special case for 64 point deinterleave |
|
mov x10, v23.d[0] |
|
mov x11, v23.d[1] |
|
|
|
SR_COMBINE_LITE v0, v1, v8, v9, \ |
|
v2, v3, v16, v17, \ |
|
v24, v25, v26, v27, \ |
|
v28, v29, v30, 0 |
|
|
|
SR_COMBINE_HALF v4, v5, v12, v13, \ |
|
v6, v7, v20, v21, \ |
|
v24, v25, v26, v27, \ |
|
v28, v29, v30, v23, v24, v26, 1 |
|
|
|
zip1 v23.2d, v0.2d, v4.2d |
|
zip2 v24.2d, v0.2d, v4.2d |
|
zip1 v25.2d, v1.2d, v20.2d |
|
zip2 v26.2d, v1.2d, v20.2d |
|
|
|
zip1 v27.2d, v8.2d, v12.2d |
|
zip2 v28.2d, v8.2d, v12.2d |
|
zip1 v29.2d, v9.2d, v21.2d |
|
zip2 v30.2d, v9.2d, v21.2d |
|
|
|
mov v20.16b, v5.16b |
|
mov v21.16b, v7.16b |
|
mov x12, x1 |
|
add x13, x1, #32* 4 |
|
add x14, x1, #32* 8 |
|
add x15, x1, #32*12 |
|
|
|
zip1 v4.2d, v2.2d, v6.2d |
|
zip2 v5.2d, v2.2d, v6.2d |
|
zip1 v6.2d, v3.2d, v20.2d |
|
zip2 v7.2d, v3.2d, v20.2d |
|
|
|
zip1 v0.2d, v16.2d, v21.2d |
|
zip2 v1.2d, v16.2d, v21.2d |
|
zip1 v2.2d, v17.2d, v13.2d |
|
zip2 v3.2d, v17.2d, v13.2d |
|
|
|
// stp is faster by a little on A53, but this is faster on M1s (theory) |
|
ldp q8, q9, [x1, #32*1] |
|
ldp q12, q13, [x1, #32*5] |
|
|
|
st1 { v23.4s, v24.4s, v25.4s, v26.4s }, [x12], #64 // 32* 0...1 |
|
st1 { v27.4s, v28.4s, v29.4s, v30.4s }, [x13], #64 // 32* 4...5 |
|
st1 { v4.4s, v5.4s, v6.4s, v7.4s }, [x14], #64 // 32* 8...9 |
|
st1 { v0.4s, v1.4s, v2.4s, v3.4s }, [x15], #64 // 32*12..13 |
|
|
|
mov v23.d[0], x10 |
|
mov v23.d[1], x11 |
|
|
|
ldp q6, q7, [x1, #32*3] |
|
ldp q16, q17, [x1, #32*7] |
|
|
|
SR_COMBINE v8, v9, v12, v13, v6, v16, v7, v17, \ |
|
v10, v11, v14, v15, v18, v19, v22, v23, \ |
|
x7, x8, x9, 0, \ |
|
v24, v25, v26, v27, v28, v29, v30, v4, v0, v1, v5, v20 |
|
|
|
zip1 v0.2d, v8.2d, v6.2d |
|
zip2 v1.2d, v8.2d, v6.2d |
|
zip1 v2.2d, v9.2d, v7.2d |
|
zip2 v3.2d, v9.2d, v7.2d |
|
st1 { v0.4s, v1.4s, v2.4s, v3.4s }, [x12] |
|
|
|
zip1 v4.2d, v12.2d, v16.2d |
|
zip2 v5.2d, v12.2d, v16.2d |
|
zip1 v6.2d, v13.2d, v17.2d |
|
zip2 v7.2d, v13.2d, v17.2d |
|
st1 { v4.4s, v5.4s, v6.4s, v7.4s }, [x13] |
|
|
|
zip1 v0.2d, v10.2d, v18.2d |
|
zip2 v1.2d, v10.2d, v18.2d |
|
zip1 v2.2d, v11.2d, v19.2d |
|
zip2 v3.2d, v11.2d, v19.2d |
|
st1 { v0.4s, v1.4s, v2.4s, v3.4s }, [x14] |
|
|
|
zip1 v4.2d, v14.2d, v22.2d |
|
zip2 v5.2d, v14.2d, v22.2d |
|
zip1 v6.2d, v15.2d, v23.2d |
|
zip2 v7.2d, v15.2d, v23.2d |
|
st1 { v4.4s, v5.4s, v6.4s, v7.4s }, [x15] |
|
|
|
ldp x19, x20, [sp, #16] |
|
ldp d14, d15, [sp, #16*2] |
|
ldp d12, d13, [sp, #16*3] |
|
ldp d10, d11, [sp, #16*4] |
|
ldp d8, d9, [sp, #16*5] |
|
ldp x21, x22, [sp], #16*6 |
|
|
|
ret |
|
endfunc |
|
.endm |
|
|
|
FFT_SPLIT_RADIX_FN float, 0 |
|
FFT_SPLIT_RADIX_FN ns_float, 1
|
|
|