1 b3f61791 2004-03-21 devnull #include "os.h"
2 b3f61791 2004-03-21 devnull #include <mp.h>
3 b3f61791 2004-03-21 devnull #include "dat.h"
5 b3f61791 2004-03-21 devnull #define VLDIGITS (sizeof(vlong)/sizeof(mpdigit))
8 b3f61791 2004-03-21 devnull * this code assumes that a vlong is an integral number of
9 b3f61791 2004-03-21 devnull * mpdigits long.
12 b3f61791 2004-03-21 devnull uvtomp(uvlong v, mpint *b)
16 b3f61791 2004-03-21 devnull if(b == nil)
17 b3f61791 2004-03-21 devnull b = mpnew(VLDIGITS*sizeof(mpdigit));
19 b3f61791 2004-03-21 devnull mpbits(b, VLDIGITS*sizeof(mpdigit));
20 b3f61791 2004-03-21 devnull mpassign(mpzero, b);
21 b3f61791 2004-03-21 devnull if(v == 0)
22 b3f61791 2004-03-21 devnull return b;
23 b3f61791 2004-03-21 devnull for(s = 0; s < VLDIGITS && v != 0; s++){
24 b3f61791 2004-03-21 devnull b->p[s] = v;
25 b3f61791 2004-03-21 devnull v >>= sizeof(mpdigit)*8;
27 b3f61791 2004-03-21 devnull b->top = s;
28 b3f61791 2004-03-21 devnull return b;
32 b3f61791 2004-03-21 devnull mptouv(mpint *b)
34 b3f61791 2004-03-21 devnull uvlong v;
37 b3f61791 2004-03-21 devnull if(b->top == 0)
38 b3f61791 2004-03-21 devnull return 0LL;
40 b3f61791 2004-03-21 devnull mpnorm(b);
41 b3f61791 2004-03-21 devnull if(b->top > VLDIGITS)
42 b3f61791 2004-03-21 devnull return MAXVLONG;
44 b3f61791 2004-03-21 devnull v = 0ULL;
45 b3f61791 2004-03-21 devnull for(s = 0; s < b->top; s++)
46 b3f61791 2004-03-21 devnull v |= b->p[s]<<(s*sizeof(mpdigit)*8);
48 b3f61791 2004-03-21 devnull return v;