Mercurial > octave-nkf
diff src/ov-complex.cc @ 5450:6b42c78c77d3
[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 Wed Sep 14 19:12:50 2005 +0000 +++ b/src/ov-complex.cc Thu Sep 15 15:36:26 2005 +0000 @@ -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;