[BACK]Return to gmpq.c CVS log [TXT][DIR] Up to [local] / OpenXM_contrib2 / asir2000 / engine

Diff for /OpenXM_contrib2/asir2000/engine/gmpq.c between version 1.2 and 1.4

version 1.2, 2014/01/22 02:34:58 version 1.4, 2015/08/07 05:30:36
Line 21  void gc_free(void *p,size_t size)
Line 21  void gc_free(void *p,size_t size)
   
 void init_gmpq()  void init_gmpq()
 {  {
         mp_set_memory_functions(Risa_GC_malloc_atomic,gc_realloc,gc_free);          mp_set_memory_functions(Risa_GC_malloc,gc_realloc,gc_free);
   
         mpz_init(ONEMPZ); mpz_set_ui(ONEMPZ,1); MPZTOGZ(ONEMPZ,ONEGZ);          mpz_init(ONEMPZ); mpz_set_ui(ONEMPZ,1); MPZTOGZ(ONEMPZ,ONEGZ);
 }  }
Line 217  void mulgz(GZ n1,GZ n2,GZ *nr)
Line 217  void mulgz(GZ n1,GZ n2,GZ *nr)
         else if ( MUNIGZ(n2) ) chsgngz(n1,nr);          else if ( MUNIGZ(n2) ) chsgngz(n1,nr);
         else {          else {
                 mpz_init(t); mpz_mul(t,BDY(n1),BDY(n2)); MPZTOGZ(t,*nr);                  mpz_init(t); mpz_mul(t,BDY(n1),BDY(n2)); MPZTOGZ(t,*nr);
           }
   }
   
   void mul1gz(GZ n1,int n2,GZ *nr)
   {
           mpz_t t;
   
           if ( !n1 || !n2 ) *nr = 0;
           else {
                   mpz_init(t); mpz_mul_ui(t,BDY(n1),(long)n2); MPZTOGZ(t,*nr);
         }          }
 }  }
   
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>