Changeset 57e94c4 in git for Singular/gnumpfl.cc

Timestamp:

Nov 15, 1999, 5:22:50 PM (24 years ago)

Author:

Wilfred Pohl <pohl@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

416465cfca65379c427648bc9a35bc331345a29f

Parents:

d9909c94593c093ae99a6b1884d5343aba29fbb3

Message:

memory-bug fixed


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

File:

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

Singular/gnumpfl.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: gnumpfl.cc,v 1.11 1999-09-16 12:33:56 Singular Exp $ */
+/* $Id: gnumpfl.cc,v 1.12 1999-11-15 16:22:50 pohl Exp $ */
 /*
 * ABSTRACT: computations with GMP floating-point numbers
@@ -259 +259 @@
     return;
   }
-
   ngfPower(x,exp-1,u);
 
@@ -265 +264 @@
   *n=*(gmp_float*)x;
   *(gmp_float*)(*u) *= *(gmp_float*)n;
-
+  delete (gmp_float*)n;
 }
 
@@ -294 +293 @@
   if ( b==NULL )
   {
-    return (((gmp_float*)a)->sign() < 0);
+    return (((gmp_float*)a)->sign() > 0);
   }
   return ( (*(gmp_float*)a) > (*(gmp_float*)b) );