Changeset f12d4f6 in git for kernel/mpr_complex.h

Timestamp:

Jul 29, 2004, 8:13:28 PM (20 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

3c63794435207b2517c26dcc850fdf2d4c32a64f

Parents:

4a0d8619de8e3809d598fa74e5a0f8813326c7fe

Message:

*hannes: better rounding for long reals


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

File:

• kernel/mpr_complex.h (modified) (2 diffs)

kernel/mpr_complex.h

@@ -4 +4 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: mpr_complex.h,v 1.2 2004-04-28 13:31:36 Singular Exp $ */
+/* $Id: mpr_complex.h,v 1.3 2004-07-29 18:13:28 Singular Exp $ */
 
 /*
@@ -129 +129 @@
   inline operator double() const { return mpf_get_d( t ); };
 
+#if 0
   inline operator int() { return (int)mpf_get_d( t ); };
   inline operator int() const { return (int)mpf_get_d( t ); };
+#else
+  inline operator int() const
+  { if (mpf_fits_sint_p(t))
+    {
+      gmp_float tmp(*this); 
+      tmp+=gmp_float(0.5); 
+      return (int)mpf_get_si( tmp.t );
+    }
+    return 0;
+  };
+#endif  
 
 private: