/[gcl]/gcl/o/gmp_big.c
ViewVC logotype

Diff of /gcl/o/gmp_big.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.12 by camm, Wed Jun 29 21:53:20 2005 UTC revision 1.13 by camm, Sat Jul 23 08:54:07 2005 UTC
# Line 485  coerce_big_to_string(object x, int print Line 485  coerce_big_to_string(object x, int print
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    

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26