/[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.7 by camm, Sun Sep 14 02:43:07 2003 UTC revision 1.8 by camm, Fri Sep 26 13:43:27 2003 UTC
# Line 380  obj_to_mpz1(object x,MP_INT * y,void *v) Line 380  obj_to_mpz1(object x,MP_INT * y,void *v)
380    
381  }  }
382    
383  /* static int */  int
384  /* mpz_to_mpz(MP_INT * x,MP_INT * y) { */  mpz_to_mpz(MP_INT * x,MP_INT * y) {
385    
386  /*   if (abs(x->_mp_size)<=y->_mp_alloc) */    if (abs(x->_mp_size)<=y->_mp_alloc)
387  /*     mpz_set(y,x); */      mpz_set(y,x);
388  /*   else */    else
389  /*     return abs(x->_mp_size)*sizeof(*y->_mp_d); */      return abs(x->_mp_size)*sizeof(*y->_mp_d);
390    
391  /*   return 0; */    return 0;
392    
393  /* } */  }
394    
395  /* static int */  int
396  /* mpz_to_mpz1(MP_INT * x,MP_INT * y,void *v) { */  mpz_to_mpz1(MP_INT * x,MP_INT * y,void *v) {
397    
398  /*   y->_mp_alloc=abs(x->_mp_size); */    y->_mp_alloc=abs(x->_mp_size);
399  /*   y->_mp_d=v; */    y->_mp_d=v;
400  /*   mpz_set(y,x); */    mpz_set(y,x);
401  /*   return 0; */    return 0;
402    
403  /* } */  }
404    
405  void  void
406  isetq_fix(MP_INT * var,int s)  isetq_fix(MP_INT * var,int s)

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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