#include "pdefs.h"
#include "pcvt.h"
#include "precision.h"

/*
 * Long to Precision
 */
precision ltop(l)
   register long l;
{
   register digitPtr  uPtr;
   register precision u = palloc(LONGSIZE);

   if (u == pUndef) return u;

   if (u->sign = (l < 0L)) l = -l;
   uPtr	      = u->value;
   do {
      *uPtr++ = modBase(l);
      l	      = divBase(l);
   } while (l != 0);

   u->size = (uPtr - u->value);			/* normalize */
   return presult(u);
}