Mercurial > hg > octave-nkf
changeset 1217:8ec4c0c375a2
[project @ 1995-04-07 21:00:24 by jwe]
author | jwe |
---|---|
date | Fri, 07 Apr 1995 21:00:24 +0000 |
parents | 0ffb52e268d7 |
children | 90ecb04a1e52 |
files | src/tc-inlines.h |
diffstat | 1 files changed, 11 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/src/tc-inlines.h +++ b/src/tc-inlines.h @@ -179,20 +179,24 @@ int nc = 0; \ Matrix m; \ ComplexMatrix cm; \ - if ((tc).const_type () == TC_REP::complex_matrix_constant) \ + if ((tc).is_real_type ()) \ + { \ + m = (tc).matrix_value (); \ + nr = (m).rows (); \ + nc = (m).columns (); \ + } \ + else if ((tc).is_complex_type ()) \ { \ cm = (tc).complex_matrix_value (); \ nr = (cm).rows (); \ nc = (cm).columns (); \ } \ - else if ((tc).const_type () == TC_REP::matrix_constant) \ + else \ { \ - m = (tc).matrix_value (); \ - nr = (m).rows (); \ - nc = (m).columns (); \ + panic_impossible (); \ } \ - else \ - panic_impossible (); + if (error_state) \ + return; // Assign a real or complex value to a tree_constant. //