Changeset 9bffb9c in git for Singular/mpr_complex.cc

Timestamp:

Nov 21, 2000, 4:35:46 PM (23 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'df6a8e29030ff93c6ad53051028727af7d339fa0')

Children:

328da8ca57cf235bbc94d105b9166cb711808d52

Parents:

cbcc2f63a9e62d54ee5a650e66237db3adf77d46

Message:

*hannes: SOLARIS/gcc 2.95.2 changes


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

File:

• Singular/mpr_complex.cc (modified) (3 diffs)

Singular/mpr_complex.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: mpr_complex.cc,v 1.27 2000-09-18 09:19:19 obachman Exp $ */
+/* $Id: mpr_complex.cc,v 1.28 2000-11-21 15:35:44 Singular Exp $ */
 
 /*
@@ -63 +63 @@
   gmp_output_digits= digits;
   mpf_set_default_prec( db );
-  mpf_set_prec(*diff.mpfp(),32);
-  mpf_set_prec(*gmpRel.mpfp(),32);
-  mpf_set_d(*gmpRel.mpfp(),0.1);
-  mpf_pow_ui(*gmpRel.mpfp(),*gmpRel.mpfp(),digits);
+  mpf_set_prec((mpf_ptr)*(diff.mpfp()),32);
+  mpf_set_prec((mpf_ptr)*gmpRel.mpfp(),32);
+  mpf_set_d((mpf_ptr)*gmpRel.mpfp(),0.1);
+  mpf_pow_ui((mpf_ptr)*gmpRel.mpfp(),(mpf_ptr)*gmpRel.mpfp(),digits);
 }
 
@@ -706 +706 @@
   gmp_float ai=this->imag();
   if (ar.isZero() || ai.isZero()) return;
-  mpf_abs(*ar.mpfp(), *ar.mpfp());
-  mpf_abs(*ai.mpfp(), *ai.mpfp());
-  mpf_set_prec(*ar.mpfp(), 32);
-  mpf_set_prec(*ai.mpfp(), 32);
+  mpf_abs((mpf_ptr)*ar.mpfp(), (mpf_ptr)*ar.mpfp());
+  mpf_abs((mpf_ptr)*ai.mpfp(), (mpf_ptr)*ai.mpfp());
+  mpf_set_prec((mpf_ptr)*ar.mpfp(), 32);
+  mpf_set_prec((mpf_ptr)*ai.mpfp(), 32);
   if (ar > ai)
   {
-    mpf_div(*ai.mpfp(), *ai.mpfp(), *ar.mpfp());
+    mpf_div((mpf_ptr)*ai.mpfp(), (mpf_ptr)*ai.mpfp(), (mpf_ptr)*ar.mpfp());
     if (ai < gmpRel) this->imag(0.0);
   }
   else
   {
-    mpf_div(*ar.mpfp(), *ar.mpfp(), *ai.mpfp());
+    mpf_div((mpf_ptr)*ar.mpfp(), (mpf_ptr)*ar.mpfp(), (mpf_ptr)*ai.mpfp());
     if (ar < gmpRel) this->real(0.0);
   }