178 void mpi_rshift(MPI x, MPI a, unsigned int n)  in mpi_rshift()  argument
185 	if (x == a) {  in mpi_rshift()
187 		if (nlimbs >= x->nlimbs) {  in mpi_rshift()
188 			x->nlimbs = 0;  in mpi_rshift()
193 			for (i = 0; i < x->nlimbs - nlimbs; i++)  in mpi_rshift()
194 				x->d[i] = x->d[i+nlimbs];  in mpi_rshift()
195 			x->d[i] = 0;  in mpi_rshift()
196 			x->nlimbs -= nlimbs;  in mpi_rshift()
198 		if (x->nlimbs && nbits)  in mpi_rshift()
199 			mpihelp_rshift(x->d, x->d, x->nlimbs, nbits);  in mpi_rshift()
203 		x->sign = a->sign;  in mpi_rshift()
204 		RESIZE_IF_NEEDED(x, xsize);  in mpi_rshift()
205 		x->nlimbs = xsize;  in mpi_rshift()
207 			x->d[i] = a->d[i];  in mpi_rshift()
208 		x->nlimbs = i;  in mpi_rshift()
210 		if (nlimbs >= x->nlimbs) {  in mpi_rshift()
211 			x->nlimbs = 0;  in mpi_rshift()
216 			for (i = 0; i < x->nlimbs - nlimbs; i++)  in mpi_rshift()
217 				x->d[i] = x->d[i+nlimbs];  in mpi_rshift()
218 			x->d[i] = 0;  in mpi_rshift()
219 			x->nlimbs -= nlimbs;  in mpi_rshift()
222 		if (x->nlimbs && nbits)  in mpi_rshift()
223 			mpihelp_rshift(x->d, x->d, x->nlimbs, nbits);  in mpi_rshift()
227 		x->sign = a->sign;  in mpi_rshift()
228 		RESIZE_IF_NEEDED(x, xsize);  in mpi_rshift()
229 		x->nlimbs = xsize;  in mpi_rshift()
233 				mpihelp_rshift(x->d, a->d, x->nlimbs, nbits);  in mpi_rshift()
238 				for (i = 0; i < x->nlimbs; i++)  in mpi_rshift()
239 					x->d[i] = a->d[i];  in mpi_rshift()
243 	MPN_NORMALIZE(x->d, x->nlimbs);  in mpi_rshift()
272 void mpi_lshift(MPI x, MPI a, unsigned int n)  in mpi_lshift()  argument
277 	if (x == a && !n)  in mpi_lshift()
280 	if (x != a) {  in mpi_lshift()
286 		RESIZE_IF_NEEDED(x, alimbs+nlimbs+1);  in mpi_lshift()
287 		xp = x->d;  in mpi_lshift()
290 		x->nlimbs = alimbs;  in mpi_lshift()
291 		x->flags = a->flags;  in mpi_lshift()
292 		x->sign = asign;  in mpi_lshift()
297 		mpi_lshift_limbs(x, nlimbs);  in mpi_lshift()
302 		mpi_lshift_limbs(x, nlimbs+1);  in mpi_lshift()
303 		mpi_rshift(x, x, BITS_PER_MPI_LIMB - nbits);  in mpi_lshift()
306 	MPN_NORMALIZE(x->d, x->nlimbs);  in mpi_lshift()