Mercurial > octave-nkf

diff src/ov-cx-mat.cc @ 4102:cbac6756967e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2002-10-14 20:16:44 by jwe]
author jwe
date Mon, 14 Oct 2002 20:16:45 +0000
parents 47d3baea432d
children 5719210fff4c
line wrap: on
line diff
--- a/src/ov-cx-mat.cc	Fri Oct 11 20:57:21 2002 +0000
+++ b/src/ov-cx-mat.cc	Mon Oct 14 20:16:45 2002 +0000
@@ -123,7 +123,7 @@
 double
 octave_complex_matrix::double_value (bool force_conversion) const
 {
-  double retval = octave_NaN;
+  double retval = lo_ieee_nan_value ();
 
   int flag = force_conversion;
 
@@ -171,7 +171,9 @@
 Complex
 octave_complex_matrix::complex_value (bool) const
 {
-  Complex retval (octave_NaN, octave_NaN);
+  double tmp = lo_ieee_nan_value ();
+
+  Complex retval (tmp, tmp);
 
   if ((rows () == 1 && columns () == 1)
       || (Vdo_fortran_indexing && rows () > 0 && columns () > 0))