Changeset 295e8cf in git

Timestamp:

Jul 11, 2019, 3:27:29 PM (5 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

3e03a26b0d38e0f1025585424c070bba27e294b3

Parents:

dffcf06de72c5d8f3347abee6740a159f6cabd41

Message:

opt: convFlintNSingN_QQ

File:

• libpolys/polys/flintconv.cc (modified) (1 diff)

libpolys/polys/flintconv.cc

@@ -96 +96 @@
 {
 #if __FLINT_RELEASE > 20502
+  if (fmpz_is_one(fmpq_denref(f)))
+  {
+    if (fmpz_fits_si(fmpq_numref(f)))
+    {
+      long i=fmpz_get_si(fmpq_numref(f));
+      return n_Init(i,cf);
+    }
+  }
   number z=ALLOC_RNUMBER();
   #if defined(LDEBUG)
   z->debug=123456;
   #endif
-  z->s=0;
   mpz_init(z->z);
-  mpz_init(z->n);
-  fmpq_get_mpz_frac(z->z,z->n,f);
-  n_Normalize(z,cf);
+  if (fmpz_is_one(fmpq_denref(f)))
+  {
+    z->s=3;
+    fmpz_get_mpz(z->z,fmpq_numref(f));
+  }
+  else
+  {
+    z->s=0;
+    mpz_init(z->n);
+    fmpq_get_mpz_frac(z->z,z->n,f);
+  }
   n_Test(z,cf);
   return z;