Mercurial > hg > octave-jordi
diff src/tc-assign.cc @ 206:1761d7a3770c
[project @ 1993-11-10 21:00:31 by jwe]
author | jwe |
---|---|
date | Wed, 10 Nov 1993 21:00:31 +0000 |
parents | b6b4d8c513fe |
children | 380cb9ccc889 |
line wrap: on
line diff
--- a/src/tc-assign.cc +++ b/src/tc-assign.cc @@ -392,23 +392,29 @@ int nr = rows (); int nc = columns (); - if (nr == 1 && nc == 1) // No orientation to preserve + if ((nr == 1 && nc == 1) || nr == 0 || nc == 0) // No orientation. { - if (! ( ilen == rhs_nr || ilen == rhs_nc)) - error ("A(%s) = X: X and %s must have the same number of\ - elements", rm, rm); + if (! (ilen == rhs_nr || ilen == rhs_nc)) + { + error ("A(%s) = X: X and %s must have the same number of elements", + rm, rm); + } } - else if (nr == 1) // Preserve current row orientation + else if (nr == 1) // Preserve current row orientation. { if (! (rhs_nr == 1 && rhs_nc == ilen)) - error ("A(%s) = X: where A is a row vector, X must also be a\ - row vector with the same number of elements as %s", rm, rm); + { + error ("A(%s) = X: where A is a row vector, X must also be a", rm); + error ("row vector with the same number of elements as %s", rm); + } } - else if (nc == 1) // Preserve current column orientation + else if (nc == 1) // Preserve current column orientation. { if (! (rhs_nc == 1 && rhs_nr == ilen)) - error ("A(%s) = X: where A is a column vector, X must also\ - be a column vector with the same number of elements as %s", rm, rm); + { + error ("A(%s) = X: where A is a column vector, X must also be", rm); + error ("a column vector with the same number of elements as %s", rm); + } } else panic_impossible ();