Changeset 488056 in git for libpolys/coeffs/rmodulon.cc
 Timestamp:
 Dec 17, 2012, 1:10:48 PM (10 years ago)
 Branches:
 (u'jengelhdatetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')
 Children:
 a453bfa3c5e9178b6ada6c3e4b3500f7b3e65b6f
 Parents:
 8c6bd4d4de4c46d6d974085a44f6e1530d956d5a
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

libpolys/coeffs/rmodulon.cc
r8c6bd4d r488056 51 51 assume( (getCoeffType(r) == ID)  (getCoeffType (r) == ID2) ); 52 52 ZnmInfo * info= (ZnmInfo *) p; 53 r>modBase = (int_number) omAlloc (sizeof(mpz_t));53 r>modBase = (int_number) omAllocBin (gmp_nrz_bin); 54 54 mpz_init_set (r>modBase, info>base); 55 55 … … 578 578 { 579 579 /* clean up former stuff */ 580 //if (r>modBase != NULL) mpz_clear(r>modBase);581 580 if (r>modNumber != NULL) mpz_clear(r>modNumber); 582 581 583 582 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);588 583 r>modNumber = (int_number)omAllocBin(gmp_nrz_bin); 589 584 mpz_init_set (r>modNumber, r>modBase);
Note: See TracChangeset
for help on using the changeset viewer.