Changeset 488056 in git for libpolys/coeffs


Ignore:
Timestamp:
Dec 17, 2012, 1:10:48 PM (11 years ago)
Author:
Martin Lee <martinlee84@…>
Branches:
(u'spielwiese', '5b153614cbc72bfa198d75b1e9e33dab2645d9fe')
Children:
a453bfa3c5e9178b6ada6c3e4b3500f7b3e65b6f
Parents:
8c6bd4d4de4c46d6d974085a44f6e1530d956d5a
Message:
fix: more fixes to init of Z/*
Location:
libpolys/coeffs
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • libpolys/coeffs/rmodulo2m.cc

    r8c6bd4d r488056  
    5151  r->nCoeffIsEqual = nr2mCoeffIsEqual;
    5252
    53   r->modBase = (int_number) omAlloc(sizeof(mpz_t));
     53  r->modBase = (int_number) omAllocBin (gmp_nrz_bin);
    5454  mpz_init_set_si (r->modBase, 2L);
    5555  r->ringtype = 1;
     56  r->modNumber= (int_number) omAllocBin (gmp_nrz_bin);
     57  mpz_init (r->modNumber);
     58  mpz_pow_ui (r->modNumber, r->modBase, r->modExponent);
    5659
    5760  /* next cast may yield an overflow as mod2mMask is an unsigned long */
  • libpolys/coeffs/rmodulon.cc

    r8c6bd4d r488056  
    5151  assume( (getCoeffType(r) == ID) || (getCoeffType (r) == ID2) );
    5252  ZnmInfo * info= (ZnmInfo *) p;
    53   r->modBase = (int_number) omAlloc(sizeof(mpz_t));
     53  r->modBase = (int_number) omAllocBin (gmp_nrz_bin);
    5454  mpz_init_set (r->modBase, info->base);
    5555
     
    578578{
    579579  /* clean up former stuff */
    580   //if (r->modBase   != NULL) mpz_clear(r->modBase);
    581580  if (r->modNumber != NULL) mpz_clear(r->modNumber);
    582581
    583582  r->modExponent= m;
    584   /* this is Z/m = Z/(m^1), hence set modBase = m, modExponent = 1: */
    585   //r->modBase = (int_number)omAllocBin(gmp_nrz_bin);
    586   //mpz_init(r->modBase);
    587   //mpz_set_ui(r->modBase, (unsigned long)m);
    588583  r->modNumber = (int_number)omAllocBin(gmp_nrz_bin);
    589584  mpz_init_set (r->modNumber, r->modBase);
Note: See TracChangeset for help on using the changeset viewer.