Mercurial > hg > octave-nkf
diff src/load-save.cc @ 774:9541a1fe575c
[project @ 1994-10-05 22:35:46 by jwe]
author | jwe |
---|---|
date | Wed, 05 Oct 1994 22:35:46 +0000 |
parents | 42731861ee09 |
children | d1acd4a89bf7 |
line wrap: on
line diff
--- a/src/load-save.cc +++ b/src/load-save.cc @@ -520,7 +520,7 @@ #endif default: - panic_impossible (); + gripe_unrecognized_float_fmt (); break; } } @@ -620,7 +620,7 @@ #endif default: - panic_impossible (); + gripe_unrecognized_float_fmt (); break; } } @@ -720,7 +720,7 @@ break; default: - panic_impossible (); + error ("unrecognized data format requested"); break; } } @@ -954,7 +954,7 @@ } } else - panic_impossible (); + error ("load: unable to load data for unknown symbol type"); } else { @@ -1000,7 +1000,7 @@ } } else - panic_impossible (); + error ("load: unable to load data for unknown symbol type"); } if (sr) @@ -1453,7 +1453,7 @@ goto data_read_error; double dtmp; read_doubles (is, &dtmp, (save_type) tmp, 1, swap, fmt); - if (! is) + if (error_state || ! is) goto data_read_error; tc = dtmp; } @@ -1476,7 +1476,7 @@ double *re = m.fortran_vec (); int len = nr * nc; read_doubles (is, re, (save_type) tmp, len, swap, fmt); - if (! is) + if (error_state || ! is) goto data_read_error; tc = m; } @@ -1488,7 +1488,7 @@ goto data_read_error; Complex ctmp; read_doubles (is, (double *) &ctmp, (save_type) tmp, 2, swap, fmt); - if (! is) + if (error_state || ! is) goto data_read_error; tc = ctmp; } @@ -1512,7 +1512,7 @@ int len = nr * nc; read_doubles (is, (double *) im, (save_type) tmp, 2*len, swap, fmt); - if (! is) + if (error_state || ! is) goto data_read_error; tc = m; } @@ -2565,7 +2565,7 @@ break; default: - panic_impossible (); + error ("save: unrecognized data format requested"); break; } }