Changeset 921913 in git

Timestamp:

Jun 23, 2021, 9:48:32 AM (3 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

27077291dbf9510b6d5b705f5981a3f8fdea9c61

Parents:

caa9c4e4186a7cea39e722bb522108e1f86c6009

Message:

fix: convert longR -> Z, bigint for long values

Location:

libpolys/coeffs

Files:

• longrat.cc (modified) (1 diff)
• rintegers2.cc (modified) (3 diffs)

libpolys/coeffs/longrat.cc

@@ -523 +523 @@
     return nlInit(l,dst);
   }
-  return nlInit(0,dst);
+  char *out=floatToStr(*(gmp_float*)from, src->float_len);
+  char *p=strchr(out,'.');
+  *p='\0';
+  number res;
+  res = ALLOC_RNUMBER();
+#if defined(LDEBUG)
+  res->debug=123456;
+#endif
+  res->s=3;
+  mpz_init(res->z);
+  if (out[0]=='-')
+  {
+    mpz_set_str(res->z,out+1,10);
+    res=nlNeg(res,dst);
+  }
+  else
+  {
+    mpz_set_str(res->z,out,10);
+  }
+  omFree( (void *)out );
+  return res;
 }
 

libpolys/coeffs/rintegers2.cc

@@ -304 +304 @@
 }
 
+/*
 static number nrzQuotRem (number a, number b, number * r, const coeffs )
 {
@@ -322 +323 @@
   return (number) qq;
 }
+*/
 
 static number nrzIntMod (number a,number b, const coeffs)
@@ -382 +384 @@
     return nrzInit(l,dst);
   }
-  return nrzInit(0,dst);
+  char *out=floatToStr(*(gmp_float*)from, src->float_len);
+  char *p=strchr(out,'.');
+  *p='\0';
+  mpz_ptr erg = (mpz_ptr) omAllocBin(gmp_nrz_bin);
+  mpz_init(erg);
+  if (out[0]=='-')
+  {
+    mpz_set_str(erg,out+1,10);
+    mpz_mul_si(erg, erg, -1);
+  }
+  else
+  {
+    mpz_set_str(erg,out,10);
+  }
+  omFree( (void *)out );
+  return (number) erg;
 }