Changeset 6c4df47 in git

Timestamp:

Jun 23, 1999, 10:26:43 AM (24 years ago)

Author:

Moritz Wenk <wenk@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')

Children:

6b9e9c662b8c35931dfedb7053c0c6d2597e5f68

Parents:

8c42949b7b17868cb7c7f501a82f0f67bed167f3

Message:

* fixed error in ngfPower


git-svn-id: file:///usr/local/Singular/svn/trunk@3166 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.3 1999-05-10 15:10:49 Singular Exp $ */
+/* $Id: gnumpfl.cc,v 1.4 1999-06-23 08:26:43 wenk Exp $ */
 /*
 * ABSTRACT: computations with GMP floating-point numbers
@@ -242 +242 @@
   if ( exp == 0 )
   {
-    *(gmp_float*)u= 1.0;
+    *(gmp_float*)u= (gmp_float)1.0;
     return;
   }
@@ -249 +249 @@
     if ( x == NULL )
     {
-      *(gmp_float*)u= 0.0;
+      *(gmp_float*)(*u) = (gmp_float)0.0;
     }
     else
     {
-      *(gmp_float*)u= *(gmp_float*)x;
+      *(gmp_float*)(*u) = *(gmp_float*)x;
     }
     return;
   }
+
   ngfPower(x,exp-1,u);
-  *(gmp_float*)u*= *(gmp_float*)x;
+
+  *(gmp_float*)(*u) *= *(gmp_float*)x;
+
 }
 
@@ -398 +401 @@
 {
   char *out;
-//Print("ngfWrite %d\n",gmp_output_digits);
-  out= floatToStr(*(gmp_float*)a,gmp_output_digits);
-  StringAppend(out);
-
-  Free((ADDRESS)out, (strlen(out)+1)* sizeof(char) );
+  if ( a ) {
+    out= floatToStr(*(gmp_float*)a,gmp_output_digits);
+    StringAppend(out);
+    //Free((ADDRESS)out, (strlen(out)+1)* sizeof(char) );
+    FreeL( (ADDRESS)out );
+  } else {
+    StringAppend("0");
+  }
 }