mpzspecial.hpp

Go to the documentation of this file.

typedef Monom<Scl<MPZ>, mon::rep_t> mon_mpz;
template<>
void INIT_ELEM<pol<mon_mpz,Scl<MPZ> > >(void *ptr, int size)
{
  typedef pol<mon_mpz,Scl<MPZ> > ppol;
  int nbelem=size/sizeof(ppol),k=0;
  for(ppol *i=(ppol*)ptr;k<nbelem;i++,k++)
    mpz_init(&((i->ind).coeff.rep()));
}
template<>
void INIT_ELEM<Scl<MPZ> >(void * ptr, int size)
{
  int nbelem=size/sizeof(Scl<MPZ>),k=0;
  for(Scl<MPZ> *i=(Scl<MPZ> *)ptr;k<nbelem;i++,k++)
       mpz_init(&i->rep())
    ;
}
template<>
void CLEAR_ELEM<Scl<MPZ> >(void * ptr, int size)
{
  //cout<<"clear elem "<<endl;
  int nbelem=size/sizeof(Scl<MPZ>),k=0;
  for(Scl<MPZ> *i=(Scl<MPZ>*)ptr;k<nbelem;i++,k++)
    mpz_clear(&i->rep());
}

template<>
void CLEAR_ELEM<pol<mon_mpz,Scl<MPZ> > >(void *ptr, int size)
{
  typedef pol<mon_mpz,Scl<MPZ> > pol;
  typedef pol::coeff_t coeff;
  int nbelem=size/sizeof(pol),k=0;
  for(pol *i=(pol*)ptr;k<nbelem;i++,k++)
    {
      mpz_clear(&((i->ind).coeff.rep()));
      //MAC_REV_FREE<coeff>(i->nf,i->size*sizeof(coeff));
    }
}