blob: 87d309af3f1c48488d7e1a2e320767ec722f9c49 [file] [log] [blame]
#include "pdefs.h"
#include "pcvt.h"
#include "precision.h"
/*
* Integer to Precision
*/
precision itop(i)
register int i;
{
register digitPtr uPtr;
register precision u = palloc(INTSIZE);
if (u == pUndef) return u;
if (u->sign = (i < 0)) i = -i;
uPtr = u->value;
do {
*uPtr++ = modBase(i);
i = divBase(i);
} while (i != 0);
u->size = (uPtr - u->value); /* normalize */
return presult(u);
}