shithub: femtolisp

ref: 0769956a24915cb1f30f6e720e2f2051e755d0e0
dir: /3rd/mp/mptoui.c/

View raw version 
#include "platform.h"

/*
 *  this code assumes that mpdigit is at least as
 *  big as an int.
 */

mpint*
uitomp(uint32_t i, mpint *b)
{
	if(b == nil){
		b = mpnew(0);
	}
	*b->p = i;
	b->top = 1;
	b->sign = 1;
	return mpnorm(b);
}

uint32_t
mptoui(mpint *b)
{
	uint32_t x;

	x = *b->p;
	if(b->sign < 0)
		x = 0;
	else if(b->top > 1 || (sizeof(mpdigit) > sizeof(uint32_t) && x > MAXUINT))
		x =  MAXUINT;
	return x;
}