Mercurial > hg > octave-nkf
diff src/oct-stream.cc @ 2687:3e611118ce15
[project @ 1997-02-14 23:37:36 by jwe]
author | jwe |
---|---|
date | Fri, 14 Feb 1997 23:37:37 +0000 |
parents | 00b2eff19bf5 |
children | 2ff2b536cc9d |
line wrap: on
line diff
--- a/src/oct-stream.cc +++ b/src/oct-stream.cc @@ -961,12 +961,30 @@ { if (elt) { - if (nr > 0 && nc > 0 && count == max_size) + if (count == max_size) { - final_nr = nr; - final_nc = nc; - - break; + if (nr > 0) + { + if (nc > 0) + { + final_nr = nr; + final_nc = nc; + + break; + } + else + { + max_size *= 2; + mval.resize (nr, max_size / nr, 0.0); + data = mval.fortran_vec (); + } + } + else + { + max_size *=2; + mval.resize (max_size, 1, 0.0); + data = mval.fortran_vec (); + } } const char *fmt = elt->text;