Changeset 678ea5 in git

Timestamp:

May 4, 1999, 3:49:49 PM (25 years ago)

Author:

Moritz Wenk <wenk@…>

Branches:

(u'spielwiese', 'a719bcf0b8dbc648b128303a49777a094b57592c')

Children:

a5ddc097a3f2f652542e452a69d45738a2c41223

Parents:

9a11fea7b0583284d7c47c07dd33ea1681b4380c

Message:

Modified Files:
 	gnumpfl.cc mpr_complex.cc


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

Location:

Singular

Files:

• gnumpfl.cc (modified) (2 diffs)
• mpr_complex.cc (modified) (2 diffs)

Singular/gnumpfl.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: gnumpfl.cc,v 1.1 1999-04-29 11:38:42 Singular Exp $ */
+/* $Id: gnumpfl.cc,v 1.2 1999-05-04 13:49:45 wenk Exp $ */
 /*
 * ABSTRACT: computations with GMP floating-point numbers
@@ -243 +243 @@
 {
   if ( a == NULL ) return TRUE;
-  return ( (*(gmp_float*)a) >= 0.0 );
+  return ( (*(gmp_float*)a) >= (gmp_float)0.0 );
 }
 

Singular/mpr_complex.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: mpr_complex.cc,v 1.1 1999-04-29 11:38:50 Singular Exp $ */
+/* $Id: mpr_complex.cc,v 1.2 1999-05-04 13:49:49 wenk Exp $ */
 
 /*
@@ -670 +670 @@
   mprfloat_g r = abs(x);
   mprfloat_g nr, ni;
-  if (r == 0.0) {
+  if (r == (mprfloat_g) 0.0) {
     nr = ni = r;
-  } else if ( x.real() > 0) {
+  } else if ( x.real() > (mprfloat_g)0) {
     nr = sqrt((mprfloat_g)0.5 * (r + x.real()));
     ni = x.imag() / nr / (mprfloat_g)2;
   } else {
     ni = sqrt((mprfloat_g)0.5 * (r - x.real()));
-    if (x.imag() < 0) {
+    if (x.imag() < (mprfloat_g)0) {
       ni = - ni;
     }