b3f9d4f8d6
* Add McEliece reference implementations * Add Vec implementations of McEliece * Add sse implementations * Add AVX2 implementations * Get rid of stuff not supported by Mac ABI * restrict to two cores * Ditch .data files * Remove .hidden from all .S files * speed up duplicate consistency tests by batching * make cpuinfo more robust * Hope to stabilize macos cpuinfo without ccache * Revert "Hope to stabilize macos cpuinfo without ccache" This reverts commit 6129c3cabe1abbc8b956bc87e902a698e32bf322. * Just hardcode what's available at travis * Fixed-size types in api.h * namespace all header files in mceliece * Ditch operations.h * Get rid of static inline functions * fixup! Ditch operations.h
232 lines
10 KiB
C
232 lines
10 KiB
C
/*
|
|
This file is for the Gao-Mateer FFT
|
|
sse http://www.math.clemson.edu/~sgao/papers/GM10.pdf
|
|
*/
|
|
|
|
#include "fft.h"
|
|
|
|
#include "transpose.h"
|
|
#include "vec128.h"
|
|
|
|
#include <stdint.h>
|
|
|
|
/* input: in, polynomial in bitsliced form */
|
|
/* output: in, result of applying the radix conversions on in */
|
|
static void radix_conversions(vec128 *in) {
|
|
int i, j, k;
|
|
vec128 t;
|
|
uint64_t v0, v1;
|
|
|
|
const vec128 mask[5][2] = {
|
|
{
|
|
PQCLEAN_MCELIECE460896_SSE_vec128_set2x(0x8888888888888888, 0x8888888888888888),
|
|
PQCLEAN_MCELIECE460896_SSE_vec128_set2x(0x4444444444444444, 0x4444444444444444)
|
|
},
|
|
{
|
|
PQCLEAN_MCELIECE460896_SSE_vec128_set2x(0xC0C0C0C0C0C0C0C0, 0xC0C0C0C0C0C0C0C0),
|
|
PQCLEAN_MCELIECE460896_SSE_vec128_set2x(0x3030303030303030, 0x3030303030303030)
|
|
},
|
|
{
|
|
PQCLEAN_MCELIECE460896_SSE_vec128_set2x(0xF000F000F000F000, 0xF000F000F000F000),
|
|
PQCLEAN_MCELIECE460896_SSE_vec128_set2x(0x0F000F000F000F00, 0x0F000F000F000F00)
|
|
},
|
|
{
|
|
PQCLEAN_MCELIECE460896_SSE_vec128_set2x(0xFF000000FF000000, 0xFF000000FF000000),
|
|
PQCLEAN_MCELIECE460896_SSE_vec128_set2x(0x00FF000000FF0000, 0x00FF000000FF0000)
|
|
},
|
|
{
|
|
PQCLEAN_MCELIECE460896_SSE_vec128_set2x(0xFFFF000000000000, 0xFFFF000000000000),
|
|
PQCLEAN_MCELIECE460896_SSE_vec128_set2x(0x0000FFFF00000000, 0x0000FFFF00000000)
|
|
}
|
|
};
|
|
|
|
const vec128 s[5][GFBITS] = {
|
|
#include "scalars_2x.inc"
|
|
};
|
|
|
|
//
|
|
|
|
for (j = 0; j <= 5; j++) {
|
|
for (i = 0; i < GFBITS; i++) {
|
|
v1 = PQCLEAN_MCELIECE460896_SSE_vec128_extract(in[i], 1);
|
|
v1 ^= v1 >> 32;
|
|
v0 = PQCLEAN_MCELIECE460896_SSE_vec128_extract(in[i], 0);
|
|
v0 ^= v1 << 32;
|
|
in[i] = PQCLEAN_MCELIECE460896_SSE_vec128_set2x(v0, v1);
|
|
}
|
|
|
|
for (i = 0; i < GFBITS; i++) {
|
|
for (k = 4; k >= j; k--) {
|
|
t = PQCLEAN_MCELIECE460896_SSE_vec128_and(in[i], mask[k][0]);
|
|
t = PQCLEAN_MCELIECE460896_SSE_vec128_srl_2x(t, 1 << k);
|
|
in[i] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(in[i], t);
|
|
|
|
t = PQCLEAN_MCELIECE460896_SSE_vec128_and(in[i], mask[k][1]);
|
|
t = PQCLEAN_MCELIECE460896_SSE_vec128_srl_2x(t, 1 << k);
|
|
in[i] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(in[i], t);
|
|
}
|
|
}
|
|
|
|
if (j < 5) {
|
|
PQCLEAN_MCELIECE460896_SSE_vec128_mul(in, in, s[j]);
|
|
}
|
|
}
|
|
}
|
|
|
|
/* input: in, result of applying the radix conversions to the input polynomial */
|
|
/* output: out, evaluation results (by applying the FFT butterflies) */
|
|
static void butterflies(vec128 out[][ GFBITS ], const vec128 *in) {
|
|
int i, j, k, s, b;
|
|
|
|
vec128 tmp[ GFBITS ];
|
|
vec128 t[ GFBITS ];
|
|
vec128 pre[8][ GFBITS ];
|
|
vec128 buf[64];
|
|
|
|
uint64_t v0, v1;
|
|
uint64_t consts_ptr = 1;
|
|
|
|
const vec128 consts[ 64 ][ GFBITS ] = {
|
|
#include "consts.inc"
|
|
};
|
|
|
|
const unsigned char reversal[64] = {
|
|
0, 32, 16, 48, 8, 40, 24, 56,
|
|
4, 36, 20, 52, 12, 44, 28, 60,
|
|
2, 34, 18, 50, 10, 42, 26, 58,
|
|
6, 38, 22, 54, 14, 46, 30, 62,
|
|
1, 33, 17, 49, 9, 41, 25, 57,
|
|
5, 37, 21, 53, 13, 45, 29, 61,
|
|
3, 35, 19, 51, 11, 43, 27, 59,
|
|
7, 39, 23, 55, 15, 47, 31, 63
|
|
};
|
|
|
|
const uint16_t beta[8] = {2522, 7827, 7801, 8035, 6897, 8167, 3476, 0};
|
|
|
|
//
|
|
|
|
for (j = 0; j < GFBITS; j++) {
|
|
t[j] = PQCLEAN_MCELIECE460896_SSE_vec128_unpack_high(in[j], in[j]);
|
|
}
|
|
|
|
for (i = 0; i < 8; i += 2) {
|
|
for (j = 0; j < GFBITS; j++) {
|
|
v0 = (beta[i + 0] >> j) & 1;
|
|
v0 = -v0;
|
|
v1 = (beta[i + 1] >> j) & 1;
|
|
v1 = -v1;
|
|
|
|
tmp[j] = PQCLEAN_MCELIECE460896_SSE_vec128_set2x(v0, v1);
|
|
}
|
|
|
|
PQCLEAN_MCELIECE460896_SSE_vec128_mul(tmp, t, tmp);
|
|
|
|
for (j = 0; j < GFBITS; j++) {
|
|
pre[i + 0][j] = PQCLEAN_MCELIECE460896_SSE_vec128_unpack_low(tmp[j], tmp[j]);
|
|
pre[i + 1][j] = PQCLEAN_MCELIECE460896_SSE_vec128_unpack_high(tmp[j], tmp[j]);
|
|
}
|
|
}
|
|
|
|
for (i = 0; i < GFBITS; i++) {
|
|
buf[0] = PQCLEAN_MCELIECE460896_SSE_vec128_set2x(PQCLEAN_MCELIECE460896_SSE_vec128_extract(in[i], 0),
|
|
PQCLEAN_MCELIECE460896_SSE_vec128_extract(in[i], 0) ^ PQCLEAN_MCELIECE460896_SSE_vec128_extract(pre[6][i], 0));
|
|
|
|
buf[1] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[0], pre[0][i]);
|
|
buf[16] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[0], pre[4][i]);
|
|
buf[3] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[1], pre[1][i]);
|
|
buf[48] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[16], pre[5][i]);
|
|
buf[49] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[48], pre[0][i]);
|
|
buf[2] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[0], pre[1][i]);
|
|
buf[51] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[49], pre[1][i]);
|
|
buf[6] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[2], pre[2][i]);
|
|
buf[50] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[51], pre[0][i]);
|
|
buf[7] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[6], pre[0][i]);
|
|
buf[54] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[50], pre[2][i]);
|
|
buf[5] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[7], pre[1][i]);
|
|
buf[55] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[54], pre[0][i]);
|
|
buf[53] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[55], pre[1][i]);
|
|
buf[4] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[0], pre[2][i]);
|
|
buf[52] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[53], pre[0][i]);
|
|
buf[12] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[4], pre[3][i]);
|
|
buf[60] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[52], pre[3][i]);
|
|
buf[13] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[12], pre[0][i]);
|
|
buf[61] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[60], pre[0][i]);
|
|
buf[15] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[13], pre[1][i]);
|
|
buf[63] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[61], pre[1][i]);
|
|
buf[14] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[15], pre[0][i]);
|
|
buf[62] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[63], pre[0][i]);
|
|
buf[10] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[14], pre[2][i]);
|
|
buf[58] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[62], pre[2][i]);
|
|
buf[11] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[10], pre[0][i]);
|
|
buf[59] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[58], pre[0][i]);
|
|
buf[9] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[11], pre[1][i]);
|
|
buf[57] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[59], pre[1][i]);
|
|
buf[56] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[57], pre[0][i]);
|
|
buf[8] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[0], pre[3][i]);
|
|
buf[40] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[56], pre[4][i]);
|
|
buf[24] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[8], pre[4][i]);
|
|
buf[41] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[40], pre[0][i]);
|
|
buf[25] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[24], pre[0][i]);
|
|
buf[43] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[41], pre[1][i]);
|
|
buf[27] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[25], pre[1][i]);
|
|
buf[42] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[43], pre[0][i]);
|
|
buf[26] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[27], pre[0][i]);
|
|
buf[46] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[42], pre[2][i]);
|
|
buf[30] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[26], pre[2][i]);
|
|
buf[47] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[46], pre[0][i]);
|
|
buf[31] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[30], pre[0][i]);
|
|
buf[45] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[47], pre[1][i]);
|
|
buf[29] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[31], pre[1][i]);
|
|
buf[44] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[45], pre[0][i]);
|
|
buf[28] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[29], pre[0][i]);
|
|
buf[36] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[44], pre[3][i]);
|
|
buf[20] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[28], pre[3][i]);
|
|
buf[37] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[36], pre[0][i]);
|
|
buf[21] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[20], pre[0][i]);
|
|
buf[39] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[37], pre[1][i]);
|
|
buf[23] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[21], pre[1][i]);
|
|
buf[38] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[39], pre[0][i]);
|
|
buf[22] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[23], pre[0][i]);
|
|
buf[34] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[38], pre[2][i]);
|
|
buf[18] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[22], pre[2][i]);
|
|
buf[35] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[34], pre[0][i]);
|
|
buf[19] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[18], pre[0][i]);
|
|
buf[33] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[35], pre[1][i]);
|
|
buf[17] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[19], pre[1][i]);
|
|
buf[32] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(buf[33], pre[0][i]);
|
|
|
|
PQCLEAN_MCELIECE460896_SSE_transpose_64x128_sp(buf);
|
|
|
|
for (j = 0; j < 64; j++) {
|
|
out[ reversal[j] ][i] = buf[j];
|
|
}
|
|
}
|
|
|
|
for (i = 0; i <= 5; i++) {
|
|
s = 1 << i;
|
|
|
|
for (j = 0; j < 64; j += 2 * s) {
|
|
for (k = j; k < j + s; k++) {
|
|
PQCLEAN_MCELIECE460896_SSE_vec128_mul(tmp, out[k + s], (vec128 *) consts[ consts_ptr + (k - j) ]);
|
|
|
|
for (b = 0; b < GFBITS; b++) {
|
|
out[k ][b] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(out[k ][b], tmp[b]);
|
|
}
|
|
for (b = 0; b < GFBITS; b++) {
|
|
out[k + s][b] = PQCLEAN_MCELIECE460896_SSE_vec128_xor(out[k + s][b], out[k][b]);
|
|
}
|
|
}
|
|
}
|
|
|
|
consts_ptr += (1 << i);
|
|
}
|
|
}
|
|
|
|
/* input: in, polynomial in bitsliced form */
|
|
/* output: out, bitsliced results of evaluating in all the field elements */
|
|
void PQCLEAN_MCELIECE460896_SSE_fft(vec128 out[][GFBITS], vec128 *in) {
|
|
radix_conversions(in);
|
|
butterflies(out, in);
|
|
}
|
|
|