Changeset 3d17e6 in git for libpolys

Timestamp:

Aug 17, 2022, 1:48:55 PM (20 months ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

bf876af50c9c77610bd8c9553a50fa858ab48763

Parents:

f560510550f6c309eaf88ff200cf0e5bac0356e8

git-author:

Hans Schoenemann <hannes@mathematik.uni-kl.de>2022-08-17 13:48:55+02:00

git-committer:

Hans Schoenemann <hannes@mathematik.uni-kl.de>2022-08-17 13:57:23+02:00

Message:

fix: ndQuotRem (for non-fields)

Location:

libpolys/coeffs

Files:

• numbers.cc (modified) (1 diff)
• numbers.h (modified) (1 diff)

libpolys/coeffs/numbers.cc

@@ -346 +346 @@
 }
 
-static number ndQuotRem (number a, number b, number * r, const coeffs R)
+number ndQuotRem (number a, number b, number * r, const coeffs R)
 {
   // implementation for a field: r: 0, result: n_Div
-  assume(R->is_field);
-  *r=n_Init(0,R);
-  return n_Div(a,b,R);
+  if(R->is_field)
+  {
+    *r=n_Init(0,R);
+    return n_Div(a,b,R);
+  }
+  else
+  // implementation for a non-field:
+  {
+    number d=n_Div(a,b,R);
+    number p=n_mult(b,d,R);
+    *r=n_Sub(a,p,R);
+    n_Delete(p,R);
+    return d;
+  }
 }
 STATIC_VAR n_coeffType nLastCoeffs=n_CF;

libpolys/coeffs/numbers.h

@@ -71 +71 @@
 // void   ndInpMult(number &a, number b, const coeffs r);
 void   ndInpAdd(number &a, number b, const coeffs r);
+number ndQuotRem (number a, number b, number * r, const coeffs R);
 
 // void ndKillChar(coeffs);