Changeset b39d4d in git for Singular/mpr_complex.cc

Timestamp:

Dec 18, 2000, 4:44:42 PM (23 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', 'a7324b6e0b44a1a8ed3fa4d9ca3e2ff210ddd52c')

Children:

e3dc1cc75eb8813142d38ad4d5b8638f5748228a

Parents:

6a9b5a892f6ba5ac58be777a540985149140afae

Message:

Dec alpha port


git-svn-id: file:///usr/local/Singular/svn/trunk@4933 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.28 2000-11-21 15:35:44 Singular Exp $ */
+/* $Id: mpr_complex.cc,v 1.29 2000-12-18 15:44:41 obachman Exp $ */
 
 /*
@@ -63 +63 @@
   gmp_output_digits= digits;
   mpf_set_default_prec( db );
-  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);
+  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);
 }
 
@@ -706 +706 @@
   gmp_float ai=this->imag();
   if (ar.isZero() || ai.isZero()) return;
-  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);
+  mpf_abs(*ar._mpfp(), *ar._mpfp());
+  mpf_abs(*ai._mpfp(), *ai._mpfp());
+  mpf_set_prec(*ar._mpfp(), 32);
+  mpf_set_prec(*ai._mpfp(), 32);
   if (ar > ai)
   {
-    mpf_div((mpf_ptr)*ai.mpfp(), (mpf_ptr)*ai.mpfp(), (mpf_ptr)*ar.mpfp());
+    mpf_div(*ai._mpfp(), *ai._mpfp(), *ar._mpfp());
     if (ai < gmpRel) this->imag(0.0);
   }
   else
   {
-    mpf_div((mpf_ptr)*ar.mpfp(), (mpf_ptr)*ar.mpfp(), (mpf_ptr)*ai.mpfp());
+    mpf_div(*ar._mpfp(), *ar._mpfp(), *ai._mpfp());
     if (ar < gmpRel) this->real(0.0);
   }