Update the imported curve448 code to use OpenSSL copyright headers
[openssl.git] / crypto / ec / curve448 / arch_32 / f_impl.c
1 /*
2  * Copyright 2017 The OpenSSL Project Authors. All Rights Reserved.
3  * Copyright 2014 Cryptography Research, Inc.
4  *
5  * Licensed under the OpenSSL license (the "License").  You may not use
6  * this file except in compliance with the License.  You can obtain a copy
7  * in the file LICENSE in the source distribution or at
8  * https://www.openssl.org/source/license.html
9  *
10  * Originally written by Mike Hamburg
11  */
12
13 #include "f_field.h"
14
15 #if (defined(__OPTIMIZE__) && !defined(__OPTIMIZE_SIZE__) && !I_HATE_UNROLLED_LOOPS) \
16      || defined(DECAF_FORCE_UNROLL)
17 #define REPEAT8(_x) _x _x _x _x _x _x _x _x
18 #define FOR_LIMB(_i,_start,_end,_x) do { _i=_start; REPEAT8( if (_i<_end) { _x; } _i++;) } while (0)
19 #else
20 #define FOR_LIMB(_i,_start,_end,_x) do { for (_i=_start; _i<_end; _i++) _x; } while (0)
21 #endif
22
23 void gf_mul (gf_s *__restrict__ cs, const gf as, const gf bs) { 
24     const uint32_t *a = as->limb, *b = bs->limb;
25     uint32_t *c = cs->limb;
26
27     uint64_t accum0 = 0, accum1 = 0, accum2 = 0;
28     uint32_t mask = (1<<28) - 1;  
29
30     uint32_t aa[8], bb[8];
31     
32     int i,j;
33     for (i=0; i<8; i++) {
34         aa[i] = a[i] + a[i+8];
35         bb[i] = b[i] + b[i+8];
36     }
37     
38     FOR_LIMB(j,0,8,{
39         accum2 = 0;
40     
41         FOR_LIMB (i,0,j+1,{
42             accum2 += widemul(a[j-i],b[i]);
43             accum1 += widemul(aa[j-i],bb[i]);
44             accum0 += widemul(a[8+j-i], b[8+i]);
45         });
46         
47         accum1 -= accum2;
48         accum0 += accum2;
49         accum2 = 0;
50     
51         FOR_LIMB (i,j+1,8,{
52             accum0 -= widemul(a[8+j-i], b[i]);
53             accum2 += widemul(aa[8+j-i], bb[i]);
54             accum1 += widemul(a[16+j-i], b[8+i]);
55         });
56
57         accum1 += accum2;
58         accum0 += accum2;
59
60         c[j] = ((uint32_t)(accum0)) & mask;
61         c[j+8] = ((uint32_t)(accum1)) & mask;
62
63         accum0 >>= 28;
64         accum1 >>= 28;
65     });
66     
67     accum0 += accum1;
68     accum0 += c[8];
69     accum1 += c[0];
70     c[8] = ((uint32_t)(accum0)) & mask;
71     c[0] = ((uint32_t)(accum1)) & mask;
72     
73     accum0 >>= 28;
74     accum1 >>= 28;
75     c[9] += ((uint32_t)(accum0));
76     c[1] += ((uint32_t)(accum1));
77 }
78
79 void gf_mulw_unsigned (gf_s *__restrict__ cs, const gf as, uint32_t b) {
80     const uint32_t *a = as->limb;
81     uint32_t *c = cs->limb;
82     uint64_t accum0 = 0, accum8 = 0;
83     uint32_t mask = (1<<28)-1;  
84     int i;
85
86     assert(b<1<<28);
87
88     FOR_LIMB(i,0,8,{
89         accum0 += widemul(b, a[i]);
90         accum8 += widemul(b, a[i+8]);
91
92         c[i] = accum0 & mask; accum0 >>= 28;
93         c[i+8] = accum8 & mask; accum8 >>= 28;
94     });
95
96     accum0 += accum8 + c[8];
97     c[8] = accum0 & mask;
98     c[9] += accum0 >> 28;
99
100     accum8 += c[0];
101     c[0] = accum8 & mask;
102     c[1] += accum8 >> 28;
103 }
104
105 void gf_sqr (gf_s *__restrict__ cs, const gf as) {
106     gf_mul(cs,as,as); /* Performs better with a dedicated square */
107 }
108