| #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); | |
| } |