Changeset de27d8 in git for Singular/iparith.cc

Timestamp:

Feb 18, 2013, 7:27:17 PM (11 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

7d1ce3ef53e17b72b36010a52fcfbdbde745a3e7afc974f80049f26666102bf7d90f3aa6c1dfd957

Parents:

77ed18101c07cdbb767d8703e5ea1d0f7c8b05f6

git-author:

Hans Schoenemann <hannes@mathematik.uni-kl.de>2013-02-18 19:27:17+01:00

git-committer:

Hans Schoenemann <hannes@mathematik.uni-kl.de>2013-02-18 19:27:55+01:00

Message:

fix: intdiv/intmod/chinrem copied from master

File:

• Singular/iparith.cc (modified) (5 diffs)

Singular/iparith.cc

@@ -1643 +1643 @@
     x[i]=n_Init((*c)[i], coeffs_BIGINT);
   }
-  number n=n_ChineseRemainder(x,q,rl,coeffs_BIGINT);
+  number n=n_ChineseRemainderSym(x,q,rl,FALSE,coeffs_BIGINT);
   for(i=rl-1;i>=0;i--)
   {
@@ -1720 +1720 @@
 static BOOLEAN jjCHINREM_ID(leftv res, leftv u, leftv v)
 {
-  lists c=(lists)u->CopyD(); // list of ideal
+  lists c=(lists)u->CopyD(); // list of ideal or bigint/int
   lists pl=NULL;
   intvec *p=NULL;
@@ -1816 +1816 @@
         for(i++;i<rl;i++)
         {
-          n_Delete(&(q[i]),currRing->cf);
+          n_Delete(&(q[i]),currRing);
         }
+
         omFree(x); // delete c
         omFree(q); // delete pl
+        if (xx!=NULL) omFree(xx); // delete c
         return TRUE;
       }
@@ -1826 +1828 @@
   if (return_type==BIGINT_CMD)
   {
-    number n=n_ChineseRemainder(xx,q,rl,coeffs_BIGINT);
+    number n=n_ChineseRemainderSym(xx,q,rl,TRUE,coeffs_BIGINT);
     res->data=(char *)n;
   }
@@ -1843 +1845 @@
   for(i=rl-1;i>=0;i--)
   {
-    n_Delete(&(q[i]),currRing->cf);
+    n_Delete(&(q[i]),currRing);
   }
   omFree(q);