Mercurial > hg > octave-lyh

comparison src/ov-base.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 02ca908056e9
comparison
equal deleted inserted replaced
4101:ea537559ab07 4102:cbac6756967e
211 } 211 }
212 212
213 double 213 double
214 octave_base_value::double_value (bool) const 214 octave_base_value::double_value (bool) const
215 { 215 {
216 double retval = octave_NaN; 216 double retval = lo_ieee_nan_value ();
217 gripe_wrong_type_arg ("octave_base_value::double_value ()", type_name ()); 217 gripe_wrong_type_arg ("octave_base_value::double_value ()", type_name ());
218 return retval; 218 return retval;
219 } 219 }
220 220
221 Cell 221 Cell
235 } 235 }
236 236
237 Complex 237 Complex
238 octave_base_value::complex_value (bool) const 238 octave_base_value::complex_value (bool) const
239 { 239 {
240 Complex retval (octave_NaN, octave_NaN); 240 double tmp = lo_ieee_nan_value ();
241 Complex retval (tmp, tmp);
241 gripe_wrong_type_arg ("octave_base_value::complex_value()", type_name ()); 242 gripe_wrong_type_arg ("octave_base_value::complex_value()", type_name ());
242 return retval; 243 return retval;
243 } 244 }
244 245
245 ComplexMatrix 246 ComplexMatrix