Mercurial > octave

changeset 1217:8ec4c0c375a2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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	Fri Apr 07 00:34:39 1995 +0000
+++ b/src/tc-inlines.h	Fri Apr 07 21:00:24 1995 +0000
@@ -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.
 //