Mercurial > hg > octave-lyh

diff src/inv.cc @ 516:309fc59f66ee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-07-13 02:31:31 by jwe]
author jwe
date Wed, 13 Jul 1994 02:31:31 +0000
parents 0f388340e607
children b9284136189a
line wrap: on
line diff
--- a/src/inv.cc
+++ b/src/inv.cc
@@ -64,7 +64,7 @@
 
   Matrix mtmp;
   if (nr == 0 && nc == 0)
-    return tree_constant (mtmp);
+    return mtmp;
 
   switch (tmp.const_type ())
     {
@@ -80,7 +80,7 @@
 	      warning ("inverse: matrix singular to machine precision,\
  rcond = %g", rcond);
 	    else
-	      retval = tree_constant (minv);
+	      retval = minv;
 	  }
 	else
 	  gripe_square_matrix_required ("inverse");
@@ -89,7 +89,7 @@
     case tree_constant_rep::scalar_constant:
       {
 	double d = 1.0 / tmp.double_value ();
-	retval = tree_constant (d);
+	retval = d;
       }
       break;
     case tree_constant_rep::complex_matrix_constant:
@@ -104,7 +104,7 @@
 	      warning ("inverse: matrix singular to machine precision,\
  rcond = %g", rcond);
 	    else
-	      retval = tree_constant (minv);
+	      retval = minv;
 	  }
 	else
 	  gripe_square_matrix_required ("inverse");
@@ -113,7 +113,7 @@
     case tree_constant_rep::complex_scalar_constant:
       {
 	Complex c = 1.0 / tmp.complex_value ();
-	retval = tree_constant (c);
+	retval = c;
       }
       break;
     default: