Changeset 6e5e20 in git

Timestamp:

Jun 27, 2000, 2:07:01 PM (24 years ago)

Author:

Wilfred Pohl <pohl@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

527ac8fed1f0865e3893374eefa5ab848c9fb0fa

Parents:

e80ff56d9a4fa8c9359e3fdd5d66f6093d5f54b8

Message:

memory bug fixed


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

Location:

Singular

Files:

• gnumpc.cc (modified) (3 diffs)
• gnumpfl.cc (modified) (2 diffs)

Singular/gnumpc.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: gnumpc.cc,v 1.10 1999-11-15 17:20:03 obachman Exp $ */
+/* $Id: gnumpc.cc,v 1.11 2000-06-27 12:07:00 pohl Exp $ */
 /*
 * ABSTRACT: computations with GMP complex floating-point numbers
@@ -26 +26 @@
 static number ngcMapQ(number from)
 {
-  gmp_complex *res= new gmp_complex();
   if ( from != NULL )
   {
-    *res= numberFieldToFloat(from,QTOF);
-  }
-  return (number)res;
+    gmp_complex *res=new gmp_complex(numberFieldToFloat(from,QTOF));
+    return (number)res;
+  }
+  else
+    return NULL;
 }
 
@@ -57 +58 @@
 void ngcNew (number * r)
 {
-  gmp_complex* n= new gmp_complex( );
-  *r=(number)n;
+  *r=NULL;
 }
 

Singular/gnumpfl.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: gnumpfl.cc,v 1.13 2000-06-21 07:35:41 pohl Exp $ */
+/* $Id: gnumpfl.cc,v 1.14 2000-06-27 12:07:01 pohl Exp $ */
 /*
 * ABSTRACT: computations with GMP floating-point numbers
@@ -34 +34 @@
 static number ngfMapQ(number from)
 {
-  gmp_float *res= new gmp_float();
   if ( from != NULL )
   {
-    *res= numberFieldToFloat(from,QTOF);
-  }
-  return (number)res;
+    gmp_float *res=new gmp_float(numberFieldToFloat(from,QTOF));
+    return (number)res;
+  }
+  else
+    return NULL;
 }