| 
									
										
										
										
											2003-02-28 16:08:34 +00:00
										 |  |  | /* LibTomMath, multiple-precision integer library -- Tom St Denis
 | 
					
						
							|  |  |  |  * | 
					
						
							|  |  |  |  * LibTomMath is library that provides for multiple-precision | 
					
						
							|  |  |  |  * integer arithmetic as well as number theoretic functionality. | 
					
						
							|  |  |  |  * | 
					
						
							|  |  |  |  * The library is designed directly after the MPI library by | 
					
						
							|  |  |  |  * Michael Fromberger but has been written from scratch with | 
					
						
							|  |  |  |  * additional optimizations in place. | 
					
						
							|  |  |  |  * | 
					
						
							|  |  |  |  * The library is free for all purposes without any express | 
					
						
							|  |  |  |  * guarantee it works. | 
					
						
							|  |  |  |  * | 
					
						
							| 
									
										
										
										
											2003-03-13 02:11:11 +00:00
										 |  |  |  * Tom St Denis, tomstdenis@iahu.ca, http://math.libtomcrypt.org
 | 
					
						
							| 
									
										
										
										
											2003-02-28 16:08:34 +00:00
										 |  |  |  */ | 
					
						
							|  |  |  | #include <tommath.h>
 | 
					
						
							|  |  |  | 
 | 
					
						
							| 
									
										
										
										
											2003-05-29 13:35:26 +00:00
										 |  |  | /* single digit division (based on routine from MPI) */ | 
					
						
							| 
									
										
										
										
											2003-02-28 16:08:34 +00:00
										 |  |  | int | 
					
						
							|  |  |  | mp_div_d (mp_int * a, mp_digit b, mp_int * c, mp_digit * d) | 
					
						
							|  |  |  | { | 
					
						
							| 
									
										
										
										
											2003-05-29 13:35:26 +00:00
										 |  |  |   mp_int  q; | 
					
						
							|  |  |  |   mp_word w, t; | 
					
						
							|  |  |  |   int     res, ix; | 
					
						
							|  |  |  |    | 
					
						
							|  |  |  |   if (b == 0) { | 
					
						
							|  |  |  |      return MP_VAL; | 
					
						
							| 
									
										
										
										
											2003-02-28 16:08:34 +00:00
										 |  |  |   } | 
					
						
							| 
									
										
										
										
											2003-05-29 13:35:26 +00:00
										 |  |  |    | 
					
						
							|  |  |  |   if (b == 3) { | 
					
						
							|  |  |  |      return mp_div_3(a, c, d); | 
					
						
							| 
									
										
										
										
											2003-02-28 16:08:34 +00:00
										 |  |  |   } | 
					
						
							| 
									
										
										
										
											2003-05-29 13:35:26 +00:00
										 |  |  |    | 
					
						
							|  |  |  |   if ((res = mp_init_size(&q, a->used)) != MP_OKAY) { | 
					
						
							|  |  |  |      return res; | 
					
						
							|  |  |  |   } | 
					
						
							|  |  |  |    | 
					
						
							|  |  |  |   q.used = a->used; | 
					
						
							|  |  |  |   q.sign = a->sign; | 
					
						
							|  |  |  |   w = 0; | 
					
						
							|  |  |  |   for (ix = a->used - 1; ix >= 0; ix--) { | 
					
						
							|  |  |  |      w = (w << ((mp_word)DIGIT_BIT)) | ((mp_word)a->dp[ix]); | 
					
						
							|  |  |  |       | 
					
						
							|  |  |  |      if (w >= b) { | 
					
						
							|  |  |  |         t = w / b; | 
					
						
							|  |  |  |         w = w % b; | 
					
						
							|  |  |  |       } else { | 
					
						
							|  |  |  |         t = 0; | 
					
						
							|  |  |  |       } | 
					
						
							|  |  |  |       q.dp[ix] = t; | 
					
						
							|  |  |  |   } | 
					
						
							|  |  |  |    | 
					
						
							| 
									
										
										
										
											2003-02-28 16:08:34 +00:00
										 |  |  |   if (d != NULL) { | 
					
						
							| 
									
										
										
										
											2003-05-29 13:35:26 +00:00
										 |  |  |      *d = w; | 
					
						
							| 
									
										
										
										
											2003-02-28 16:08:34 +00:00
										 |  |  |   } | 
					
						
							| 
									
										
										
										
											2003-05-29 13:35:26 +00:00
										 |  |  |    | 
					
						
							|  |  |  |   if (c != NULL) { | 
					
						
							|  |  |  |      mp_clamp(&q); | 
					
						
							|  |  |  |      mp_exch(&q, c); | 
					
						
							|  |  |  |   } | 
					
						
							|  |  |  |   mp_clear(&q); | 
					
						
							|  |  |  |    | 
					
						
							| 
									
										
										
										
											2003-02-28 16:08:34 +00:00
										 |  |  |   return res; | 
					
						
							|  |  |  | } | 
					
						
							| 
									
										
										
										
											2003-05-29 13:35:26 +00:00
										 |  |  | 
 |