Changeset 71effd8 in git for kernel/ring.cc
 Timestamp:
 Jan 7, 2009, 3:51:11 PM (15 years ago)
 Branches:
 (u'spielwiese', 'd0474371d8c5d8068ab70bfb42719c97936b18a6')
 Children:
 b260a453e69d26f5718c152ac7d411b45c8adb9a
 Parents:
 753f9d279599c9b867a6d1e24ceace76b99a5066
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

kernel/ring.cc
r753f9d2 r71effd8 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: ring.cc,v 1.10 7 20090106 16:46:40Singular Exp $ */4 /* $Id: ring.cc,v 1.108 20090107 14:51:11 Singular Exp $ */ 5 5 6 6 /* … … 515 515 #ifdef HAVE_RINGS 516 516 if (r>ringflaga != NULL) 517 { 517 518 mpz_clear(r>ringflaga); 519 omFree((ADDRESS)r>ringflaga); 520 } 518 521 #endif 519 522 omFreeBin(r, ip_sring_bin); … … 1492 1495 #ifdef HAVE_RINGS 1493 1496 res>ringtype=r>ringtype; /* cring = 0 => coefficient field, cring = 1 => coeffs from Z/2^m */ 1494 if (r>ringflaga!=NULL) mpz_set(res>ringflaga,r>ringflaga); 1497 if (r>ringflaga!=NULL) 1498 { 1499 res>ringflaga = (int_number) omAlloc(sizeof(MP_INT)); 1500 mpz_set(res>ringflaga,r>ringflaga); 1501 } 1495 1502 res>ringflagb=r>ringflagb; 1496 1503 #endif
Note: See TracChangeset
for help on using the changeset viewer.