C++ (Cpp) _fmpz_clear_mpz Exemples

Exemple #1

Fichier : fmpz_single.c Projet : hemmecke/flint2

void _fmpz_demote_val(fmpz_t f)
{
    __mpz_struct * mpz_ptr = COEFF_TO_PTR(*f);
    long size = mpz_ptr->_mp_size;
    
    if (size == 0L) /* value is zero */
    {
        _fmpz_clear_mpz(*f);
        (*f) = 0;
    } else if (size == 1L) /* value is positive and 1 limb */
    {
        ulong uval = mpz_get_ui(mpz_ptr);
        if (uval <= (ulong) COEFF_MAX) 
        {
            _fmpz_clear_mpz(*f);
            (*f) = (fmpz) uval;
        }
    }
    else if (size == -1L) /* value is negative and 1 limb */
    {
        ulong uval = mpz_get_ui(mpz_ptr);
        if (uval <= (ulong) COEFF_MAX) 
        {
            _fmpz_clear_mpz(*f);
            (*f) = (fmpz) -uval;
        }
    }
    /* don't do anything if value has to be multi precision */
}

Exemple #2

Fichier : window_unsh.c Projet : krisk0/razin

static __inline__ void
fmpz_clear_and_zero(fmpz_t f)
// works like fmpz_zero(), but does not assign zero twice --- one time
//  is quite enough
 {
  if (COEFF_IS_MPZ(*f))
   _fmpz_clear_mpz(*f);
  (*f) = WORD(0);
 }

Exemple #3

Fichier : fmpz_single.c Projet : goens/flint2

void _fmpz_demote_val(fmpz_t f)
{
    __mpz_struct * mpz_ptr = COEFF_TO_PTR(*f);
    int size = mpz_ptr->_mp_size;

    if (!(((unsigned int) size + 1U) & ~2U))  /* size +-1 */
    {
        ulong uval = mpz_ptr->_mp_d[0];

        if (uval <= (ulong) COEFF_MAX)
        {
            _fmpz_clear_mpz(*f);
            *f = size * (fmpz) uval;
        }
    }
    else if (size == 0)  /* value is 0 */
    {
        _fmpz_clear_mpz(*f);
        *f = 0;
    }

    /* don't do anything if value has to be multi precision */
}

Exemple #4

Fichier : window_unsh.c Projet : krisk0/razin

static __inline__
void fmpz_clear_only(fmpz_t f)
 {
  if (COEFF_IS_MPZ(*f))
   _fmpz_clear_mpz(*f);
 }