Changeset ee7dcf in git

Timestamp:

Nov 17, 2005, 5:50:57 PM (18 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')

Children:

bcce2ee89fa798c449ace6ea211f4185b6b04abd

Parents:

b17a5c26cefea774381518da0aa52b998e0b4075

Message:

*hannes: fix in normalizing to SRINT


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

File:

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

kernel/longrat.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: longrat.cc,v 1.7 2005-08-03 12:51:07 Singular Exp $ */
+/* $Id: longrat.cc,v 1.8 2005-11-17 16:50:57 Singular Exp $ */
 /*
 * ABSTRACT: computation with long rational numbers (Hubert Grassmann)
@@ -188 +188 @@
     if (a->z._mp_alloc==0)
       Print("!!longrat:n->alloc=0 in %s:%l\n",f,l);
-    if (mpz_cmp_si(&a->n,(long)1)==0)
+    if ((mpz_size1(&a->n) ==1) && (mpz_cmp_si(&a->n,(long)1)==0))
     {
       Print("!!longrat:integer as rational in %s:%d\n",f,l);
@@ -970 +970 @@
       x=aa;
     }
+    else if (x->s==0)
+      nlNormalize(x);
     *u=(number)omAllocBin(rnumber_bin);
 #if defined(LDEBUG)
@@ -1134 +1136 @@
     return;
 #ifdef LDEBUG
-  if (!nlTest(x)) return;
+  if (!nlTest(x)) { x->s=1; return; }
 #endif
   if (x->s==3)