1 /* SPDX-License-Identifier: GPL-2.0-or-later */
2 /* mpi-inline.h - Internal to the Multi Precision Integers
3 * Copyright (C) 1994, 1996, 1998, 1999 Free Software Foundation, Inc.
4 *
5 * This file is part of GnuPG.
6 *
7 * Note: This code is heavily based on the GNU MP Library.
8 * Actually it's the same code with only minor changes in the
9 * way the data is stored; this is to support the abstraction
10 * of an optional secure memory allocation which may be used
11 * to avoid revealing of sensitive data due to paging etc.
12 * The GNU MP Library itself is published under the LGPL;
13 * however I decided to publish this code under the plain GPL.
14 */
15
16 #ifndef G10_MPI_INLINE_H
17 #define G10_MPI_INLINE_H
18
19 #ifndef G10_MPI_INLINE_DECL
20 #define G10_MPI_INLINE_DECL static inline
21 #endif
22
23 G10_MPI_INLINE_DECL mpi_limb_t
mpihelp_add_1(mpi_ptr_t res_ptr,mpi_ptr_t s1_ptr,mpi_size_t s1_size,mpi_limb_t s2_limb)24 mpihelp_add_1(mpi_ptr_t res_ptr, mpi_ptr_t s1_ptr,
25 mpi_size_t s1_size, mpi_limb_t s2_limb)
26 {
27 mpi_limb_t x;
28
29 x = *s1_ptr++;
30 s2_limb += x;
31 *res_ptr++ = s2_limb;
32 if (s2_limb < x) { /* sum is less than the left operand: handle carry */
33 while (--s1_size) {
34 x = *s1_ptr++ + 1; /* add carry */
35 *res_ptr++ = x; /* and store */
36 if (x) /* not 0 (no overflow): we can stop */
37 goto leave;
38 }
39 return 1; /* return carry (size of s1 to small) */
40 }
41
42 leave:
43 if (res_ptr != s1_ptr) { /* not the same variable */
44 mpi_size_t i; /* copy the rest */
45 for (i = 0; i < s1_size - 1; i++)
46 res_ptr[i] = s1_ptr[i];
47 }
48 return 0; /* no carry */
49 }
50
51 G10_MPI_INLINE_DECL mpi_limb_t
mpihelp_add(mpi_ptr_t res_ptr,mpi_ptr_t s1_ptr,mpi_size_t s1_size,mpi_ptr_t s2_ptr,mpi_size_t s2_size)52 mpihelp_add(mpi_ptr_t res_ptr, mpi_ptr_t s1_ptr, mpi_size_t s1_size,
53 mpi_ptr_t s2_ptr, mpi_size_t s2_size)
54 {
55 mpi_limb_t cy = 0;
56
57 if (s2_size)
58 cy = mpihelp_add_n(res_ptr, s1_ptr, s2_ptr, s2_size);
59
60 if (s1_size - s2_size)
61 cy = mpihelp_add_1(res_ptr + s2_size, s1_ptr + s2_size,
62 s1_size - s2_size, cy);
63 return cy;
64 }
65
66 G10_MPI_INLINE_DECL mpi_limb_t
mpihelp_sub_1(mpi_ptr_t res_ptr,mpi_ptr_t s1_ptr,mpi_size_t s1_size,mpi_limb_t s2_limb)67 mpihelp_sub_1(mpi_ptr_t res_ptr, mpi_ptr_t s1_ptr,
68 mpi_size_t s1_size, mpi_limb_t s2_limb)
69 {
70 mpi_limb_t x;
71
72 x = *s1_ptr++;
73 s2_limb = x - s2_limb;
74 *res_ptr++ = s2_limb;
75 if (s2_limb > x) {
76 while (--s1_size) {
77 x = *s1_ptr++;
78 *res_ptr++ = x - 1;
79 if (x)
80 goto leave;
81 }
82 return 1;
83 }
84
85 leave:
86 if (res_ptr != s1_ptr) {
87 mpi_size_t i;
88 for (i = 0; i < s1_size - 1; i++)
89 res_ptr[i] = s1_ptr[i];
90 }
91 return 0;
92 }
93
94 G10_MPI_INLINE_DECL mpi_limb_t
mpihelp_sub(mpi_ptr_t res_ptr,mpi_ptr_t s1_ptr,mpi_size_t s1_size,mpi_ptr_t s2_ptr,mpi_size_t s2_size)95 mpihelp_sub(mpi_ptr_t res_ptr, mpi_ptr_t s1_ptr, mpi_size_t s1_size,
96 mpi_ptr_t s2_ptr, mpi_size_t s2_size)
97 {
98 mpi_limb_t cy = 0;
99
100 if (s2_size)
101 cy = mpihelp_sub_n(res_ptr, s1_ptr, s2_ptr, s2_size);
102
103 if (s1_size - s2_size)
104 cy = mpihelp_sub_1(res_ptr + s2_size, s1_ptr + s2_size,
105 s1_size - s2_size, cy);
106 return cy;
107 }
108
109 #endif /*G10_MPI_INLINE_H */
110