Changeset de27d8 in git for kernel/ideals.cc

Timestamp:

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

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'f875bbaccd0831e36aaed09ff6adeb3eb45aeb94')

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:

• kernel/ideals.cc (modified) (1 diff)

kernel/ideals.cc

@@ -2400 +2400 @@
 #endif
 
-#ifdef HAVE_FACTORY
-/*2
-* xx,q: arrays of length 0..rl-1
-* xx[i]: SB mod q[i]
-* assume: char=0
-* assume: q[i]!=0
-* destroys xx
-*/
-ideal id_ChineseRemainder(ideal *xx, number *q, int rl, const ring R)
-{
-  int cnt=IDELEMS(xx[0])*xx[0]->nrows;
-  ideal result=idInit(cnt,xx[0]->rank);
-  result->nrows=xx[0]->nrows; // for lifting matrices
-  result->ncols=xx[0]->ncols; // for lifting matrices
-  int i,j;
-  number *x=(number *)omAlloc(rl*sizeof(number));
-  poly *p=(poly *)omAlloc(rl*sizeof(poly));
-  for(i=cnt-1;i>=0;i--)
-  {
-    for(j=rl-1;j>=0;j--)
-    {
-      p[j]=xx[j]->m[i];
-    }
-    result->m[i]=p_ChineseRemainder(p,x,q,rl,R);
-    for(j=rl-1;j>=0;j--)
-    {
-      xx[j]->m[i]=p[j];
-    }
-  }
-  omFreeSize(p,rl*sizeof(poly));
-  omFreeSize(x,rl*sizeof(number));
-  for(i=rl-1;i>=0;i--) id_Delete(&(xx[i]),R);
-  omFreeSize(xx,rl*sizeof(ideal));
-  return result;
-}
-#endif
-
 #if 0
 /*2