Mercurial > hg > octave-nkf

diff src/ov-complex.cc @ 5450:6b42c78c77d3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2005-09-15 15:36:26 by jwe]
author jwe
date Thu, 15 Sep 2005 15:36:26 +0000
parents 4c8a2e4e0717
children c7d5a534afa5
line wrap: on
line diff
--- a/src/ov-complex.cc
+++ b/src/ov-complex.cc
@@ -56,7 +56,9 @@
 {
   octave_value *retval = 0;
 
-  if (imag (scalar) == 0.0)
+  double im = std::imag (scalar);
+
+  if (im == 0.0 && ! lo_ieee_signbit (im))
     retval = new octave_scalar (real (scalar));
 
   return retval;