485 |
int ss = mpz_sizeinbase(MP(x),printbase); |
int ss = mpz_sizeinbase(MP(x),printbase); |
486 |
char *p; |
char *p; |
487 |
object ans = alloc_simple_string(ss+2+(sign<0? 1: 0)); |
object ans = alloc_simple_string(ss+2+(sign<0? 1: 0)); |
488 |
ans->ust.ust_self=p=alloc_relblock(ans->ust.ust_dim); |
ans->st.st_self=p=alloc_relblock(ans->st.st_dim); |
489 |
/* if (sign < 0) *p++='-'; */ |
/* if (sign < 0) *p++='-'; */ |
490 |
mpz_get_str(p, printbase,MP(x)); |
mpz_get_str(p, printbase,MP(x)); |
491 |
i = ans->ust.ust_dim-5; |
i = ans->st.st_dim-5; |
492 |
if (i <0 ) i=0; |
if (i <0 ) i=0; |
493 |
while(ans->ust.ust_self[i]) { i++;} |
while(ans->st.st_self[i]) { i++;} |
494 |
ans->ust.ust_fillp=i; |
ans->st.st_fillp=i; |
495 |
return ans; |
return ans; |
496 |
} |
} |
497 |
|
|