Changeset c075b8f in git for Singular/shortfl.cc

Timestamp:

Sep 24, 1999, 2:23:26 PM (25 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '4bd32dfef92ec9f5ed8dceee82d14318ae147107')

Children:

a40c6b72997ba692cd10e9477c9a9b40da2f29a1

Parents:

b0a43cc247b0d6a587d013e59cf99b60a26e7e74

Message:

* hannes: added conversion to float


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

File:

• Singular/shortfl.cc (modified) (4 diffs)

Singular/shortfl.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: shortfl.cc,v 1.11 1999-09-16 12:34:01 Singular Exp $ */
+/* $Id: shortfl.cc,v 1.12 1999-09-24 12:23:26 Singular Exp $ */
 
 /*
@@ -28 +28 @@
   number N() const {return _n;}
 };
+
+float nrFloat(number n)
+{
+  return nf(n).F();
+}
 
 BOOLEAN nrGreaterZero (number k)
@@ -344 +349 @@
     i--;
     rr=(float)mpz_limb_d(z)[i];
-    while(i)
+    while(i>0)
     {
       i--;
@@ -358 +363 @@
   if(j>i)
   {
-    g=n;
-    n=z;
-    z=g;
-    t=j;
-    j=i;
-    i=t;
+    g=n; n=z; z=g;
+    t=j; j=i; i=t;
   }
   t=i-j;