Mercurial > octave-nkf

comparison libinterp/corefcn/ls-mat4.cc @ 17415:3856298f1ff8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
eliminate unimplemented vax and cray floating point formats * mach-info.h * test/io.tst: Delete vaxd, vaxg, and cray from list of architectures in fopen test. # HG changeset patch # User John W. Eaton <jwe@octave.org> # Date 1379028062 14400 # Thu Sep 12 19:21:02 2013 -0400 # Node ID ea2763020ac1aa15ad0d43d787b61ff3b8469209 # Parent e89e86e1a5518c11058930fec5e907e60e31251b eliminate unimplemented vax and cray floating point formats * mach-info.h (oct_mach_info::float_format): Delete flt_fmt_vaxd, flt_fmt_vaxg, and flt_fmt_cray enum values. * ls-mat4.cc (float_format_to_mopt_digit, mopt_digit_to_float_format): Delete cases for vaxd, vaxg, and cray floating point formats. * lo-ieee.cc (octave_ieee_init): Likewise. * mach-info.cc (get_float_format, oct_mach_info::string_to_float_format, oct_mach_info::float_format_as_string): Likewise. * oct-stream.cc: Delete explicit template instantiation for do_write. (octave_stream::write, do_read): Delete checks for vaxd and vaxg floating point formats. * pr-output.cc (pr_any_float): Don't check for cray or unknonwn float formats. * data-conv.cc (VAX_D_double_to_IEEE_little_double, VAX_G_double_to_IEEE_little_double, Cray_to_IEEE_little_double, IEEE_big_float_to_IEEE_little_float, VAX_D_float_to_IEEE_little_float, VAX_G_float_to_IEEE_little_float, Cray_to_IEEE_little_float, IEEE_little_double_to_IEEE_big_double, VAX_D_double_to_IEEE_big_double, VAX_G_double_to_IEEE_big_double, Cray_to_IEEE_big_double, IEEE_little_float_to_IEEE_big_float, VAX_D_float_to_IEEE_big_float, VAX_G_float_to_IEEE_big_float, Cray_to_IEEE_big_float, IEEE_little_double_to_VAX_D_double, IEEE_big_double_to_VAX_D_double, VAX_G_double_to_VAX_D_double, Cray_to_VAX_D_double, IEEE_little_float_to_VAX_D_float, IEEE_big_float_to_VAX_D_float, VAX_G_float_to_VAX_D_float, Cray_to_VAX_D_float, IEEE_little_double_to_VAX_G_double, IEEE_big_double_to_VAX_G_double, VAX_D_double_to_VAX_G_double, Cray_to_VAX_G_double, IEEE_little_float_to_VAX_G_float, IEEE_big_float_to_VAX_G_float, VAX_D_float_to_VAX_G_float, Cray_to_VAX_G_float): Delete. (do_double_format_conversion): Eliminate unimplemented vaxd, vaxg, and cray conversions. * file-io.cc (Ffopen, Ffread): Fix doc strings.
author John W. Eaton <jwe@octave.org>
date Thu, 12 Sep 2013 19:21:02 -0400
parents 68fc671a9339
children d63878346099
comparison
equal deleted inserted replaced
17413:e89e86e1a551 17415:3856298f1ff8
192 case 1: 192 case 1:
193 flt_fmt = oct_mach_info::flt_fmt_ieee_big_endian; 193 flt_fmt = oct_mach_info::flt_fmt_ieee_big_endian;
194 break; 194 break;
195 195
196 case 2: 196 case 2:
197 flt_fmt = oct_mach_info::flt_fmt_vax_d;
198 break;
199
200 case 3: 197 case 3:
201 flt_fmt = oct_mach_info::flt_fmt_vax_g;
202 break;
203
204 case 4: 198 case 4:
205 flt_fmt = oct_mach_info::flt_fmt_cray;
206 break;
207
208 default: 199 default:
209 flt_fmt = oct_mach_info::flt_fmt_unknown; 200 flt_fmt = oct_mach_info::flt_fmt_unknown;
210 break; 201 break;
211 } 202 }
212 203
224 retval = 0; 215 retval = 0;
225 break; 216 break;
226 217
227 case oct_mach_info::flt_fmt_ieee_big_endian: 218 case oct_mach_info::flt_fmt_ieee_big_endian:
228 retval = 1; 219 retval = 1;
229 break;
230
231 case oct_mach_info::flt_fmt_vax_d:
232 retval = 2;
233 break;
234
235 case oct_mach_info::flt_fmt_vax_g:
236 retval = 3;
237 break;
238
239 case oct_mach_info::flt_fmt_cray:
240 retval = 4;
241 break; 220 break;
242 221
243 default: 222 default:
244 break; 223 break;
245 } 224 }