Changeset 7f7808 in git

Timestamp:

Jan 19, 2015, 7:32:03 PM (9 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

0aa248bce27cf5733670e130d1c774a07cbdf251

Parents:

a7c8b1fd065150adf6d6165eac463687c886eaae

Message:

minor optimizations for numbers

Location:

libpolys

Files:

• coeffs/longrat.cc (modified) (1 diff)
• coeffs/rintegers.cc (modified) (1 diff)
• polys/clapsing.cc (modified) (3 diffs)

libpolys/coeffs/longrat.cc

@@ -345 +345 @@
   if ( SR_HDL(n) & SR_INT )
   {
-    int nn=SR_TO_INT(n);
-    if ((long)nn==SR_TO_INT(n))
-       term = nn;
-    else
-    {
-        mpz_t dummy;
-        mpz_init_set_si(dummy, SR_TO_INT(n));
-        term = make_cf(dummy);
-    }
+    long nn=SR_TO_INT(n);
+    term = nn;
   }
   else

libpolys/coeffs/rintegers.cc

@@ -161 +161 @@
 number nrzCopy(number a, const coeffs)
 {
+  if (a==NULL) return NULL;
   mpz_ptr erg = (mpz_ptr) omAllocBin(gmp_nrz_bin);
   mpz_init_set(erg, (mpz_ptr) a);

libpolys/polys/clapsing.cc

@@ -154 +154 @@
   if (g == NULL)
   {
-    res= p_Copy (f,r);
-    p_Delete (&f, r);
+    res= f;
     f=p_One (r);
     return res;
@@ -161 +160 @@
   if (f==NULL)
   {
-    res= p_Copy (g,r);
-    p_Delete (&g, r);
+    res= g;
     g=p_One (r);
     return res;
@@ -172 +170 @@
   {
     bool b1=isOn(SW_USE_EZGCD_P);
-    setCharacteristic( rChar(r) );
     F=convSingPFactoryP( f,r );
     G=convSingPFactoryP( g,r );