Mercurial > octave-nkf

diff src/ov-cx-mat.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 ce79d238f142
line wrap: on
line diff
--- a/src/ov-cx-mat.cc	Wed Sep 14 19:12:50 2005 +0000
+++ b/src/ov-cx-mat.cc	Thu Sep 15 15:36:26 2005 +0000
@@ -74,7 +74,9 @@
 	{
 	  Complex c = matrix (0, 0);
 
-	  if (std::imag (c) == 0.0)
+	  double im = std::imag (c);
+
+	  if (im == 0.0 && ! lo_ieee_signbit (im))
 	    retval = new octave_scalar (std::real (c));
 	  else
 	    retval = new octave_complex (c);