Mercurial > hg > octave-nkf
diff liboctave/lo-ieee.cc @ 10314:07ebe522dac2
untabify liboctave C++ sources
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Thu, 11 Feb 2010 12:23:32 -0500 |
parents | 4c0cdbe0acca |
children | 2f36145742c9 |
line wrap: on
line diff
--- a/liboctave/lo-ieee.cc +++ b/liboctave/lo-ieee.cc @@ -69,89 +69,89 @@ case oct_mach_info::flt_fmt_ieee_big_endian: case oct_mach_info::flt_fmt_ieee_little_endian: { - // Don't optimize away tmp_inf / tmp_inf to generate octave_NaN. + // Don't optimize away tmp_inf / tmp_inf to generate octave_NaN. - volatile double tmp_inf; + volatile double tmp_inf; #if defined (SCO) - volatile double tmp = 1.0; - tmp_inf = 1.0 / (tmp - tmp); + volatile double tmp = 1.0; + tmp_inf = 1.0 / (tmp - tmp); #elif defined (__alpha__) && defined (__osf__) - extern unsigned int DINFINITY[2]; - tmp_inf = (*(X_CAST(double *, DINFINITY))); + extern unsigned int DINFINITY[2]; + tmp_inf = (*(X_CAST(double *, DINFINITY))); #else - double tmp = 1e+10; - tmp_inf = tmp; - for (;;) - { - tmp_inf *= 1e+10; - if (tmp_inf == tmp) - break; - tmp = tmp_inf; - } + double tmp = 1e+10; + tmp_inf = tmp; + for (;;) + { + tmp_inf *= 1e+10; + if (tmp_inf == tmp) + break; + tmp = tmp_inf; + } #endif #if defined (__alpha__) && defined (__osf__) - extern unsigned int DQNAN[2]; - octave_NaN = (*(X_CAST(double *, DQNAN))); + extern unsigned int DQNAN[2]; + octave_NaN = (*(X_CAST(double *, DQNAN))); #elif defined (__NetBSD__) - octave_NaN = nan (""); + octave_NaN = nan (""); #else - octave_NaN = tmp_inf / tmp_inf; + 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; + octave_Inf = tmp_inf; - // This is patterned after code in R. + // This is patterned after code in R. - if (ff == oct_mach_info::flt_fmt_ieee_big_endian) - { - lo_ieee_hw = 0; - lo_ieee_lw = 1; - } - else - { - lo_ieee_hw = 1; - lo_ieee_lw = 0; - } + if (ff == oct_mach_info::flt_fmt_ieee_big_endian) + { + lo_ieee_hw = 0; + lo_ieee_lw = 1; + } + else + { + lo_ieee_hw = 1; + lo_ieee_lw = 0; + } - lo_ieee_double t; - t.word[lo_ieee_hw] = LO_IEEE_NA_HW; - t.word[lo_ieee_lw] = LO_IEEE_NA_LW; + lo_ieee_double t; + t.word[lo_ieee_hw] = LO_IEEE_NA_HW; + t.word[lo_ieee_lw] = LO_IEEE_NA_LW; - octave_NA = t.value; + octave_NA = t.value; - volatile float float_tmp_inf; + volatile float float_tmp_inf; #if defined (SCO) - volatile float float_tmp = 1.0; - float_tmp_inf = 1.0 / (float_tmp - float_tmp); + volatile float float_tmp = 1.0; + float_tmp_inf = 1.0 / (float_tmp - float_tmp); #else - float float_tmp = 1e+10; - float_tmp_inf = float_tmp; - for (;;) - { - float_tmp_inf *= 1e+10; - if (float_tmp_inf == float_tmp) - break; - float_tmp = float_tmp_inf; - } + float float_tmp = 1e+10; + float_tmp_inf = float_tmp; + for (;;) + { + float_tmp_inf *= 1e+10; + if (float_tmp_inf == float_tmp) + break; + float_tmp = float_tmp_inf; + } #endif #if defined (__NetBSD__) - octave_Float_NaN = nanf (""); + octave_Float_NaN = nanf (""); #else - octave_Float_NaN = float_tmp_inf / float_tmp_inf; + octave_Float_NaN = float_tmp_inf / float_tmp_inf; #endif - octave_Float_Inf = float_tmp_inf; + octave_Float_Inf = float_tmp_inf; - lo_ieee_float tf; - tf.word = LO_IEEE_NA_FLOAT; - octave_Float_NA = tf.value; + lo_ieee_float tf; + tf.word = LO_IEEE_NA_FLOAT; + octave_Float_NA = tf.value; } break; @@ -165,7 +165,7 @@ // floating point should be capable of removing this check and // the configure test. (*current_liboctave_error_handler) - ("lo_ieee_init: floating point format is not IEEE! Maybe DLAMCH is miscompiled, or you are using some strange system without IEEE floating point math?"); + ("lo_ieee_init: floating point format is not IEEE! Maybe DLAMCH is miscompiled, or you are using some strange system without IEEE floating point math?"); abort (); } }