Mercurial > hg > octave-lyh
diff src/pr-output.cc @ 2317:8c09c04f7747
[project @ 1996-07-14 22:30:15 by jwe]
| author | jwe |
|---|---|
| date | Sun, 14 Jul 1996 22:40:35 +0000 |
| parents | 5a3f1d00a474 |
| children | be4616e36133 |
line wrap: on
line diff
--- a/src/pr-output.cc +++ b/src/pr-output.cc @@ -35,7 +35,7 @@ #include "CMatrix.h" #include "Range.h" #include "dMatrix.h" -#include "float-fmt.h" +#include "mach-info.h" #include "oct-cmplx.h" #include "oct-math.h" #include "oct-term.h" @@ -992,10 +992,13 @@ // XXX FIXME XXX -- is it correct to swap bytes for VAX // formats and not for Cray? + oct_mach_info::float_format flt_fmt = + oct_mach_info::native_float_format (); + if (hex_format > 1 - || native_float_format == OCTAVE_IEEE_BIG - || native_float_format == OCTAVE_CRAY - || native_float_format == OCTAVE_UNKNOWN_FLT_FMT) + || flt_fmt == oct_mach_info::ieee_big_endian + || flt_fmt == oct_mach_info::cray + || flt_fmt == oct_mach_info::unknown) { for (size_t i = 0; i < sizeof (double); i++) os.form ("%02x", (int) tmp.i[i]); @@ -1017,9 +1020,12 @@ // XXX FIXME XXX -- is it correct to swap bytes for VAX // formats and not for Cray? - if (native_float_format == OCTAVE_IEEE_BIG - || native_float_format == OCTAVE_CRAY - || native_float_format == OCTAVE_UNKNOWN_FLT_FMT) + oct_mach_info::float_format flt_fmt = + oct_mach_info::native_float_format (); + + if (flt_fmt == oct_mach_info::ieee_big_endian + || flt_fmt == oct_mach_info::cray + || flt_fmt == oct_mach_info::unknown) { for (size_t i = 0; i < sizeof (double); i++) PRINT_CHAR_BITS (os, tmp.i[i]);