Changeset eb059c5 in git for kernel/longrat.cc

Timestamp:

Aug 4, 2004, 3:21:55 PM (20 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')

Children:

fd1978167b53af9ab851cd4eb86936122d35a7d4

Parents:

6c90074698fffbdf3734e19fde2653870561607e

Message:

*hannes: minor optimization (less realloc in nlNormalize)


git-svn-id: file:///usr/local/Singular/svn/trunk@7309 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• kernel/longrat.cc (modified) (6 diffs)

kernel/longrat.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: longrat.cc,v 1.2 2004-06-04 13:23:10 Singular Exp $ */
+/* $Id: longrat.cc,v 1.3 2004-08-04 13:21:55 Singular Exp $ */
 /*
 * ABSTRACT: computation with long rational numbers (Hubert Grassmann)
@@ -97 +97 @@
 omBin rnumber_bin = omGetSpecBin(sizeof(snumber));
 
-number nlOne=nlInit(1);
+number nlOne=INT_TO_SR(1);
 
 #if (__GNU_MP_VERSION*10+__GNU_MP_VERSION_MINOR < 31)
@@ -229 +229 @@
 {
   double f=nrFloat(from);
-  if (f==0.0) return nlInit(0);
+  if (f==0.0) return INT_TO_SR(0);
   int f_sign=1;
   if (f<0.0)
@@ -265 +265 @@
   size = (*f)[0]._mp_size;
   if (size == 0)
-    return nlInit(0);
+    return INT_TO_SR(0);
   if(size<0)
   {
@@ -1145 +1145 @@
     {
       nlDelete(&x,currRing);
-      x=nlInit(0);
+      x=INT_TO_SR(0);
       return;
     }
@@ -1202 +1202 @@
     else if (divided)
     {
-      _mpz_realloc(&x->n,mpz_size1(&x->n));
-    }
-    if (divided) _mpz_realloc(&x->z,mpz_size1(&x->z));
+#define mpz_alloc1(A) ((A)->_mp_alloc)
+      int l;
+      if ((mpz_alloc1(&x->n)>>1) >= (l=mpz_size1(&x->n)))
+      {
+        _mpz_realloc(&x->n,il /* mpz_size1(&x->n)*/);
+      }
+    }
+    if (divided)i
+    {
+      int l;
+      if ((mpz_alloc1(&x->z)>>1) >= (l=mpz_size1(&x->z)))
+      {
+        _mpz_realloc(&x->z,l /*mpz_size1(&x->z)*/);
+      }
+    }
   }
 #ifdef LDEBUG