shithub: femtolisp

ref: 1b0eb3b4437a74231451a95225233fada1039876
dir: /llt/mptober.c/

#include "platform.h"

void
mptober(mpint *b, uchar *p, int n)
{
	int i, j, m;
	mpdigit x;

	memset(p, 0, n);

	p += n;
	m = b->top*Dbytes;
	if(m < n)
		n = m;

	i = 0;
	while(n >= Dbytes){
		n -= Dbytes;
		x = b->p[i++];
		for(j = 0; j < Dbytes; j++){
			*--p = x;
			x >>= 8;
		}
	}
	if(n > 0){
		x = b->p[i];
		for(j = 0; j < n; j++){
			*--p = x;
			x >>= 8;
		}
	}
}