Output armor works, RSA keygen works.
[gnupg.git] / mpi / mpi-add.c
1 /* mpi-add.c  -  MPI functions
2  *      Copyright (c) 1997 by Werner Koch (dd9jn)
3  *
4  * This file is part of G10.
5  *
6  * G10 is free software; you can redistribute it and/or modify
7  * it under the terms of the GNU General Public License as published by
8  * the Free Software Foundation; either version 2 of the License, or
9  * (at your option) any later version.
10  *
11  * G10 is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14  * GNU General Public License for more details.
15  *
16  * You should have received a copy of the GNU General Public License
17  * along with this program; if not, write to the Free Software
18  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
19  */
20
21 #include <config.h>
22 #include <stdio.h>
23 #include <stdlib.h>
24
25 #include "mpi-internal.h"
26
27
28 /****************
29  * Add the unsigned integer V to the mpi-integer U and store the
30  * result in W. U and V may be the same.
31  */
32 void
33 mpi_add_ui(MPI w, MPI u, unsigned long v )
34 {
35     mpi_ptr_t wp, up;
36     mpi_size_t usize, wsize;
37     int usign, wsign;
38
39     usize = u->nlimbs;
40     usign = u->sign;
41     wsign = 0;
42
43     /* If not space for W (and possible carry), increase space.  */
44     wsize = usize + 1;
45     if( w->alloced < wsize )
46         mpi_resize(w, wsize);
47
48     /* These must be after realloc (U may be the same as W).  */
49     up = u->d;
50     wp = w->d;
51
52     if( !usize ) {  /* simple */
53         wp[0] = v;
54         wsize = v? 1:0;
55     }
56     else if( !usign ) {  /* mpi is not negative */
57         mpi_limb_t cy;
58         cy = mpihelp_add_1(wp, up, usize, v);
59         wp[usize] = cy;
60         wsize = usize + cy;
61     }
62     else {  /* The signs are different.  Need exact comparison to determine
63              * which operand to subtract from which.  */
64         if( usize == 1 && up[0] < v ) {
65             wp[0] = v - up[0];
66             wsize = 1;
67         }
68         else {
69             mpihelp_sub_1(wp, up, usize, v);
70             /* Size can decrease with at most one limb. */
71             wsize = usize - (wp[usize-1]==0);
72             wsign = 1;
73         }
74     }
75
76     w->nlimbs = wsize;
77     w->sign   = wsign;
78 }
79
80
81 void
82 mpi_add(MPI w, MPI u, MPI v)
83 {
84     mpi_ptr_t wp, up, vp;
85     mpi_size_t usize, vsize, wsize;
86     int usign, vsign, wsign;
87
88     if( u->nlimbs < v->nlimbs ) { /* Swap U and V. */
89         usize = v->nlimbs;
90         usign = v->sign;
91         vsize = u->nlimbs;
92         vsign = u->sign;
93         wsize = usize + 1;
94         RESIZE_IF_NEEDED(w, wsize);
95         /* These must be after realloc (u or v may be the same as w).  */
96         up    = v->d;
97         vp    = u->d;
98     }
99     else {
100         usize = u->nlimbs;
101         usign = u->sign;
102         vsize = v->nlimbs;
103         vsign = v->sign;
104         wsize = usize + 1;
105         RESIZE_IF_NEEDED(w, wsize);
106         /* These must be after realloc (u or v may be the same as w).  */
107         up    = u->d;
108         vp    = v->d;
109     }
110     wp = w->d;
111     wsign = 0;
112
113     if( !vsize ) {  /* simple */
114         MPN_COPY(wp, up, usize );
115         wsize = usize;
116         wsign = usign;
117     }
118     else if( usign != vsign ) { /* different sign */
119         /* This test is right since USIZE >= VSIZE */
120         if( usize != vsize ) {
121             mpihelp_sub(wp, up, usize, vp, vsize);
122             wsize = usize;
123             MPN_NORMALIZE(wp, wsize);
124             wsign = usign;
125         }
126         else if( mpihelp_cmp(up, vp, usize) < 0 ) {
127             mpihelp_sub_n(wp, vp, up, usize);
128             wsize = usize;
129             MPN_NORMALIZE(wp, wsize);
130             if( !usign )
131                 wsign = 1;
132         }
133         else {
134             mpihelp_sub_n(wp, up, vp, usize);
135             wsize = usize;
136             MPN_NORMALIZE(wp, wsize);
137             if( usign )
138                 wsign = 1;
139         }
140     }
141     else { /* U and V have same sign. Add them. */
142         mpi_limb_t cy = mpihelp_add(wp, up, usize, vp, vsize);
143         wp[usize] = cy;
144         wsize = usize + cy;
145         if( usign )
146             wsign = 1;
147     }
148
149     w->nlimbs = wsize;
150     w->sign = wsign;
151 }
152
153
154 /****************
155  * Subtract the unsigned integer V from the mpi-integer U and store the
156  * result in W.
157  */
158 void
159 mpi_sub_ui(MPI w, MPI u, unsigned long v )
160 {
161     mpi_ptr_t wp, up;
162     mpi_size_t usize, wsize;
163     int usign, wsign;
164
165     usize = u->nlimbs;
166     usign = u->sign;
167     wsign = 0;
168
169     /* If not space for W (and possible carry), increase space.  */
170     wsize = usize + 1;
171     if( w->alloced < wsize )
172         mpi_resize(w, wsize);
173
174     /* These must be after realloc (U may be the same as W).  */
175     up = u->d;
176     wp = w->d;
177
178     if( !usize ) {  /* simple */
179         wp[0] = v;
180         wsize = v? 1:0;
181         wsign = 1;
182     }
183     else if( usign ) {  /* mpi and v are negative */
184         mpi_limb_t cy;
185         cy = mpihelp_add_1(wp, up, usize, v);
186         wp[usize] = cy;
187         wsize = usize + cy;
188     }
189     else {  /* The signs are different.  Need exact comparison to determine
190              * which operand to subtract from which.  */
191         if( usize == 1 && up[0] < v ) {
192             wp[0] = v - up[0];
193             wsize = 1;
194             wsign = 1;
195         }
196         else {
197             mpihelp_sub_1(wp, up, usize, v);
198             /* Size can decrease with at most one limb. */
199             wsize = usize - (wp[usize-1]==0);
200         }
201     }
202
203     w->nlimbs = wsize;
204     w->sign   = wsign;
205 }
206
207 void
208 mpi_sub(MPI w, MPI u, MPI v)
209 {
210     if( 1 || w == v ) {
211         MPI vv = mpi_copy(v);
212         vv->sign = !vv->sign;
213         mpi_add( w, u, vv );
214         m_free(vv);
215     }
216     else {
217         /* fixme: this is not thread-save (we temp. modify v) */
218         v->sign = !v->sign;
219         mpi_add( w, u, v );
220         v->sign = !v->sign;
221     }
222 }
223
224