Mercurial > hg > octave-nkf

diff src/ov-re-nd-array.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-re-nd-array.cc
+++ b/src/ov-re-nd-array.cc
@@ -113,7 +113,7 @@
 double
 octave_matrix::double_value (bool) const
 {
-  double retval = octave_NaN;
+  double retval = lo_ieee_nan_value ();
 
   // XXX FIXME XXX -- maybe this should be a function, valid_as_scalar()
   if ((rows () == 1 && columns () == 1)
@@ -128,7 +128,9 @@
 Complex
 octave_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))