Changeset 71effd8 in git for kernel/ring.cc

Timestamp:

Jan 7, 2009, 3:51:11 PM (15 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'd0474371d8c5d8068ab70bfb42719c97936b18a6')

Children:

b260a453e69d26f5718c152ac7d411b45c8adb9a

Parents:

753f9d279599c9b867a6d1e24ceace76b99a5066

Message:

*hannes: ringflaga


git-svn-id: file:///usr/local/Singular/svn/trunk@11285 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• kernel/ring.cc (modified) (3 diffs)

kernel/ring.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ring.cc,v 1.107 2009-01-06 16:46:40 Singular Exp $ */
+/* $Id: ring.cc,v 1.108 2009-01-07 14:51:11 Singular Exp $ */
 
 /*
@@ -515 +515 @@
 #ifdef HAVE_RINGS
   if (r->ringflaga != NULL)
+  {
     mpz_clear(r->ringflaga);
+    omFree((ADDRESS)r->ringflaga);
+  }
 #endif
   omFreeBin(r, ip_sring_bin);
@@ -1492 +1495 @@
 #ifdef HAVE_RINGS
   res->ringtype=r->ringtype;  /* cring = 0 => coefficient field, cring = 1 => coeffs from Z/2^m */
-  if (r->ringflaga!=NULL) mpz_set(res->ringflaga,r->ringflaga);
+  if (r->ringflaga!=NULL) 
+  {
+    res->ringflaga = (int_number) omAlloc(sizeof(MP_INT));
+    mpz_set(res->ringflaga,r->ringflaga);
+  }
   res->ringflagb=r->ringflagb;
 #endif