src/benchmarks/cfrac/utop.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

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

/*
 * Unsigned to Precision
 */
precision utop(i)
   register unsigned int i;
{
   register digitPtr  uPtr;
   register precision u = palloc(INTSIZE);

   if (u == pUndef) return pUndef;

   u->sign    = false;
   uPtr	      = u->value;
   do {
      *uPtr++ = modBase(i);
      i	      = divBase(i);
   } while (i != 0);

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