diff options
Diffstat (limited to 'lib/mpi/mpi-internal.h')
| -rw-r--r-- | lib/mpi/mpi-internal.h | 261 |
1 files changed, 261 insertions, 0 deletions
diff --git a/lib/mpi/mpi-internal.h b/lib/mpi/mpi-internal.h new file mode 100644 index 000000000000..77adcf6bc257 --- /dev/null +++ b/lib/mpi/mpi-internal.h | |||
| @@ -0,0 +1,261 @@ | |||
| 1 | /* mpi-internal.h - Internal to the Multi Precision Integers | ||
| 2 | * Copyright (C) 1994, 1996 Free Software Foundation, Inc. | ||
| 3 | * Copyright (C) 1998, 2000 Free Software Foundation, Inc. | ||
| 4 | * | ||
| 5 | * This file is part of GnuPG. | ||
| 6 | * | ||
| 7 | * GnuPG is free software; you can redistribute it and/or modify | ||
| 8 | * it under the terms of the GNU General Public License as published by | ||
| 9 | * the Free Software Foundation; either version 2 of the License, or | ||
| 10 | * (at your option) any later version. | ||
| 11 | * | ||
| 12 | * GnuPG is distributed in the hope that it will be useful, | ||
| 13 | * but WITHOUT ANY WARRANTY; without even the implied warranty of | ||
| 14 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | ||
| 15 | * GNU General Public License for more details. | ||
| 16 | * | ||
| 17 | * You should have received a copy of the GNU General Public License | ||
| 18 | * along with this program; if not, write to the Free Software | ||
| 19 | * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA | ||
| 20 | * | ||
| 21 | * Note: This code is heavily based on the GNU MP Library. | ||
| 22 | * Actually it's the same code with only minor changes in the | ||
| 23 | * way the data is stored; this is to support the abstraction | ||
| 24 | * of an optional secure memory allocation which may be used | ||
| 25 | * to avoid revealing of sensitive data due to paging etc. | ||
| 26 | * The GNU MP Library itself is published under the LGPL; | ||
| 27 | * however I decided to publish this code under the plain GPL. | ||
| 28 | */ | ||
| 29 | |||
| 30 | #ifndef G10_MPI_INTERNAL_H | ||
| 31 | #define G10_MPI_INTERNAL_H | ||
| 32 | |||
| 33 | #include <linux/module.h> | ||
| 34 | #include <linux/kernel.h> | ||
| 35 | #include <linux/slab.h> | ||
| 36 | #include <linux/string.h> | ||
| 37 | #include <linux/mpi.h> | ||
| 38 | #include <linux/errno.h> | ||
| 39 | |||
| 40 | #define log_debug printk | ||
| 41 | #define log_bug printk | ||
| 42 | |||
| 43 | #define assert(x) \ | ||
| 44 | do { \ | ||
| 45 | if (!x) \ | ||
| 46 | log_bug("failed assertion\n"); \ | ||
| 47 | } while (0); | ||
| 48 | |||
| 49 | /* If KARATSUBA_THRESHOLD is not already defined, define it to a | ||
| 50 | * value which is good on most machines. */ | ||
| 51 | |||
| 52 | /* tested 4, 16, 32 and 64, where 16 gave the best performance when | ||
| 53 | * checking a 768 and a 1024 bit ElGamal signature. | ||
| 54 | * (wk 22.12.97) */ | ||
| 55 | #ifndef KARATSUBA_THRESHOLD | ||
| 56 | #define KARATSUBA_THRESHOLD 16 | ||
| 57 | #endif | ||
| 58 | |||
| 59 | /* The code can't handle KARATSUBA_THRESHOLD smaller than 2. */ | ||
| 60 | #if KARATSUBA_THRESHOLD < 2 | ||
| 61 | #undef KARATSUBA_THRESHOLD | ||
| 62 | #define KARATSUBA_THRESHOLD 2 | ||
| 63 | #endif | ||
| 64 | |||
| 65 | typedef mpi_limb_t *mpi_ptr_t; /* pointer to a limb */ | ||
| 66 | typedef int mpi_size_t; /* (must be a signed type) */ | ||
| 67 | |||
| 68 | #define ABS(x) (x >= 0 ? x : -x) | ||
| 69 | #define MIN(l, o) ((l) < (o) ? (l) : (o)) | ||
| 70 | #define MAX(h, i) ((h) > (i) ? (h) : (i)) | ||
| 71 | |||
| 72 | static inline int RESIZE_IF_NEEDED(MPI a, unsigned b) | ||
| 73 | { | ||
| 74 | if (a->alloced < b) | ||
| 75 | return mpi_resize(a, b); | ||
| 76 | return 0; | ||
| 77 | } | ||
| 78 | |||
| 79 | /* Copy N limbs from S to D. */ | ||
| 80 | #define MPN_COPY(d, s, n) \ | ||
| 81 | do { \ | ||
| 82 | mpi_size_t _i; \ | ||
| 83 | for (_i = 0; _i < (n); _i++) \ | ||
| 84 | (d)[_i] = (s)[_i]; \ | ||
| 85 | } while (0) | ||
| 86 | |||
| 87 | #define MPN_COPY_INCR(d, s, n) \ | ||
| 88 | do { \ | ||
| 89 | mpi_size_t _i; \ | ||
| 90 | for (_i = 0; _i < (n); _i++) \ | ||
| 91 | (d)[_i] = (d)[_i]; \ | ||
| 92 | } while (0) | ||
| 93 | |||
| 94 | #define MPN_COPY_DECR(d, s, n) \ | ||
| 95 | do { \ | ||
| 96 | mpi_size_t _i; \ | ||
| 97 | for (_i = (n)-1; _i >= 0; _i--) \ | ||
| 98 | (d)[_i] = (s)[_i]; \ | ||
| 99 | } while (0) | ||
| 100 | |||
| 101 | /* Zero N limbs at D */ | ||
| 102 | #define MPN_ZERO(d, n) \ | ||
| 103 | do { \ | ||
| 104 | int _i; \ | ||
| 105 | for (_i = 0; _i < (n); _i++) \ | ||
| 106 | (d)[_i] = 0; \ | ||
| 107 | } while (0) | ||
| 108 | |||
| 109 | #define MPN_NORMALIZE(d, n) \ | ||
| 110 | do { \ | ||
| 111 | while ((n) > 0) { \ | ||
| 112 | if ((d)[(n)-1]) \ | ||
| 113 | break; \ | ||
| 114 | (n)--; \ | ||
| 115 | } \ | ||
| 116 | } while (0) | ||
| 117 | |||
| 118 | #define MPN_NORMALIZE_NOT_ZERO(d, n) \ | ||
| 119 | do { \ | ||
| 120 | for (;;) { \ | ||
| 121 | if ((d)[(n)-1]) \ | ||
| 122 | break; \ | ||
| 123 | (n)--; \ | ||
| 124 | } \ | ||
| 125 | } while (0) | ||
| 126 | |||
| 127 | #define MPN_MUL_N_RECURSE(prodp, up, vp, size, tspace) \ | ||
| 128 | do { \ | ||
| 129 | if ((size) < KARATSUBA_THRESHOLD) \ | ||
| 130 | mul_n_basecase(prodp, up, vp, size); \ | ||
| 131 | else \ | ||
| 132 | mul_n(prodp, up, vp, size, tspace); \ | ||
| 133 | } while (0); | ||
| 134 | |||
| 135 | /* Divide the two-limb number in (NH,,NL) by D, with DI being the largest | ||
| 136 | * limb not larger than (2**(2*BITS_PER_MP_LIMB))/D - (2**BITS_PER_MP_LIMB). | ||
| 137 | * If this would yield overflow, DI should be the largest possible number | ||
| 138 | * (i.e., only ones). For correct operation, the most significant bit of D | ||
| 139 | * has to be set. Put the quotient in Q and the remainder in R. | ||
| 140 | */ | ||
| 141 | #define UDIV_QRNND_PREINV(q, r, nh, nl, d, di) \ | ||
| 142 | do { \ | ||
| 143 | mpi_limb_t _q, _ql, _r; \ | ||
| 144 | mpi_limb_t _xh, _xl; \ | ||
| 145 | umul_ppmm(_q, _ql, (nh), (di)); \ | ||
| 146 | _q += (nh); /* DI is 2**BITS_PER_MPI_LIMB too small */ \ | ||
| 147 | umul_ppmm(_xh, _xl, _q, (d)); \ | ||
| 148 | sub_ddmmss(_xh, _r, (nh), (nl), _xh, _xl); \ | ||
| 149 | if (_xh) { \ | ||
| 150 | sub_ddmmss(_xh, _r, _xh, _r, 0, (d)); \ | ||
| 151 | _q++; \ | ||
| 152 | if (_xh) { \ | ||
| 153 | sub_ddmmss(_xh, _r, _xh, _r, 0, (d)); \ | ||
| 154 | _q++; \ | ||
| 155 | } \ | ||
| 156 | } \ | ||
| 157 | if (_r >= (d)) { \ | ||
| 158 | _r -= (d); \ | ||
| 159 | _q++; \ | ||
| 160 | } \ | ||
| 161 | (r) = _r; \ | ||
| 162 | (q) = _q; \ | ||
| 163 | } while (0) | ||
| 164 | |||
| 165 | /*-- mpiutil.c --*/ | ||
| 166 | mpi_ptr_t mpi_alloc_limb_space(unsigned nlimbs); | ||
| 167 | void mpi_free_limb_space(mpi_ptr_t a); | ||
| 168 | void mpi_assign_limb_space(MPI a, mpi_ptr_t ap, unsigned nlimbs); | ||
| 169 | |||
| 170 | /*-- mpi-bit.c --*/ | ||
| 171 | void mpi_rshift_limbs(MPI a, unsigned int count); | ||
| 172 | int mpi_lshift_limbs(MPI a, unsigned int count); | ||
| 173 | |||
| 174 | /*-- mpihelp-add.c --*/ | ||
| 175 | mpi_limb_t mpihelp_add_1(mpi_ptr_t res_ptr, mpi_ptr_t s1_ptr, | ||
| 176 | mpi_size_t s1_size, mpi_limb_t s2_limb); | ||
| 177 | mpi_limb_t mpihelp_add_n(mpi_ptr_t res_ptr, mpi_ptr_t s1_ptr, | ||
| 178 | mpi_ptr_t s2_ptr, mpi_size_t size); | ||
| 179 | mpi_limb_t mpihelp_add(mpi_ptr_t res_ptr, mpi_ptr_t s1_ptr, mpi_size_t s1_size, | ||
| 180 | mpi_ptr_t s2_ptr, mpi_size_t s2_size); | ||
| 181 | |||
| 182 | /*-- mpihelp-sub.c --*/ | ||
| 183 | mpi_limb_t mpihelp_sub_1(mpi_ptr_t res_ptr, mpi_ptr_t s1_ptr, | ||
| 184 | mpi_size_t s1_size, mpi_limb_t s2_limb); | ||
| 185 | mpi_limb_t mpihelp_sub_n(mpi_ptr_t res_ptr, mpi_ptr_t s1_ptr, | ||
| 186 | mpi_ptr_t s2_ptr, mpi_size_t size); | ||
| 187 | mpi_limb_t mpihelp_sub(mpi_ptr_t res_ptr, mpi_ptr_t s1_ptr, mpi_size_t s1_size, | ||
| 188 | mpi_ptr_t s2_ptr, mpi_size_t s2_size); | ||
| 189 | |||
| 190 | /*-- mpihelp-cmp.c --*/ | ||
| 191 | int mpihelp_cmp(mpi_ptr_t op1_ptr, mpi_ptr_t op2_ptr, mpi_size_t size); | ||
| 192 | |||
| 193 | /*-- mpihelp-mul.c --*/ | ||
| 194 | |||
| 195 | struct karatsuba_ctx { | ||
| 196 | struct karatsuba_ctx *next; | ||
| 197 | mpi_ptr_t tspace; | ||
| 198 | mpi_size_t tspace_size; | ||
| 199 | mpi_ptr_t tp; | ||
| 200 | mpi_size_t tp_size; | ||
| 201 | }; | ||
| 202 | |||
| 203 | void mpihelp_release_karatsuba_ctx(struct karatsuba_ctx *ctx); | ||
| 204 | |||
| 205 | mpi_limb_t mpihelp_addmul_1(mpi_ptr_t res_ptr, mpi_ptr_t s1_ptr, | ||
| 206 | mpi_size_t s1_size, mpi_limb_t s2_limb); | ||
| 207 | mpi_limb_t mpihelp_submul_1(mpi_ptr_t res_ptr, mpi_ptr_t s1_ptr, | ||
| 208 | mpi_size_t s1_size, mpi_limb_t s2_limb); | ||
| 209 | int mpihelp_mul_n(mpi_ptr_t prodp, mpi_ptr_t up, mpi_ptr_t vp, mpi_size_t size); | ||
| 210 | int mpihelp_mul(mpi_ptr_t prodp, mpi_ptr_t up, mpi_size_t usize, | ||
| 211 | mpi_ptr_t vp, mpi_size_t vsize, mpi_limb_t *_result); | ||
| 212 | void mpih_sqr_n_basecase(mpi_ptr_t prodp, mpi_ptr_t up, mpi_size_t size); | ||
| 213 | void mpih_sqr_n(mpi_ptr_t prodp, mpi_ptr_t up, mpi_size_t size, | ||
| 214 | mpi_ptr_t tspace); | ||
| 215 | |||
| 216 | int mpihelp_mul_karatsuba_case(mpi_ptr_t prodp, | ||
| 217 | mpi_ptr_t up, mpi_size_t usize, | ||
| 218 | mpi_ptr_t vp, mpi_size_t vsize, | ||
| 219 | struct karatsuba_ctx *ctx); | ||
| 220 | |||
| 221 | /*-- mpihelp-mul_1.c (or xxx/cpu/ *.S) --*/ | ||
| 222 | mpi_limb_t mpihelp_mul_1(mpi_ptr_t res_ptr, mpi_ptr_t s1_ptr, | ||
| 223 | mpi_size_t s1_size, mpi_limb_t s2_limb); | ||
| 224 | |||
| 225 | /*-- mpihelp-div.c --*/ | ||
| 226 | mpi_limb_t mpihelp_mod_1(mpi_ptr_t dividend_ptr, mpi_size_t dividend_size, | ||
| 227 | mpi_limb_t divisor_limb); | ||
| 228 | mpi_limb_t mpihelp_divrem(mpi_ptr_t qp, mpi_size_t qextra_limbs, | ||
| 229 | mpi_ptr_t np, mpi_size_t nsize, | ||
| 230 | mpi_ptr_t dp, mpi_size_t dsize); | ||
| 231 | mpi_limb_t mpihelp_divmod_1(mpi_ptr_t quot_ptr, | ||
| 232 | mpi_ptr_t dividend_ptr, mpi_size_t dividend_size, | ||
| 233 | mpi_limb_t divisor_limb); | ||
| 234 | |||
| 235 | /*-- mpihelp-shift.c --*/ | ||
| 236 | mpi_limb_t mpihelp_lshift(mpi_ptr_t wp, mpi_ptr_t up, mpi_size_t usize, | ||
| 237 | unsigned cnt); | ||
| 238 | mpi_limb_t mpihelp_rshift(mpi_ptr_t wp, mpi_ptr_t up, mpi_size_t usize, | ||
| 239 | unsigned cnt); | ||
| 240 | |||
| 241 | /* Define stuff for longlong.h. */ | ||
| 242 | #define W_TYPE_SIZE BITS_PER_MPI_LIMB | ||
| 243 | typedef mpi_limb_t UWtype; | ||
| 244 | typedef unsigned int UHWtype; | ||
| 245 | #if defined(__GNUC__) | ||
| 246 | typedef unsigned int UQItype __attribute__ ((mode(QI))); | ||
| 247 | typedef int SItype __attribute__ ((mode(SI))); | ||
| 248 | typedef unsigned int USItype __attribute__ ((mode(SI))); | ||
| 249 | typedef int DItype __attribute__ ((mode(DI))); | ||
| 250 | typedef unsigned int UDItype __attribute__ ((mode(DI))); | ||
| 251 | #else | ||
| 252 | typedef unsigned char UQItype; | ||
| 253 | typedef long SItype; | ||
| 254 | typedef unsigned long USItype; | ||
| 255 | #endif | ||
| 256 | |||
| 257 | #ifdef __GNUC__ | ||
| 258 | #include "mpi-inline.h" | ||
| 259 | #endif | ||
| 260 | |||
| 261 | #endif /*G10_MPI_INTERNAL_H */ | ||
