Mercurial > octave-nkf
changeset 8029:090001c04619
initialization check for correct NaN sign
| author | Jaroslav Hajek <highegg@gmail.com> |
|---|---|
| date | Tue, 12 Aug 2008 10:54:31 -0400 |
| parents | f0fbf47c914c |
| children | c42ba026faf1 |
| files | liboctave/ChangeLog liboctave/lo-ieee.cc |
| diffstat | 2 files changed, 9 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/liboctave/ChangeLog Sat Aug 09 23:33:03 2008 +0200 +++ b/liboctave/ChangeLog Tue Aug 12 10:54:31 2008 -0400 @@ -1,3 +1,8 @@ +2008-08-12 Jaroslav Hajek <highegg@gmail.com> + + * lo-ieee.cc (octave_ieee_init): Try to ensure that octave_NaN is + classified as positive by lo_ieee_signbit. + 2008-08-11 Jaroslav Hajek <highegg@gmail.com> * Array.cc (no_op_fcn): New static function.
--- a/liboctave/lo-ieee.cc Sat Aug 09 23:33:03 2008 +0200 +++ b/liboctave/lo-ieee.cc Tue Aug 12 10:54:31 2008 -0400 @@ -95,6 +95,10 @@ octave_NaN = (*(X_CAST(double *, DQNAN))); #else octave_NaN = tmp_inf / tmp_inf; + // try to ensure that lo_ieee_sign gives false for a NaN. + if (lo_ieee_signbit (octave_NaN)) + octave_NaN = -octave_NaN; + #endif octave_Inf = tmp_inf;