Mercurial > octave

diff src/OPERATORS/op-scm-cm.cc @ 5785:6b9cec830d72

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-05-03 19:32:46 by dbateman]
author dbateman
date Wed, 03 May 2006 19:32:48 +0000
parents 8d7162924bd3
children 8e0f1eda266b
line wrap: on
line diff
--- a/src/OPERATORS/op-scm-cm.cc	Wed May 03 05:57:16 2006 +0000
+++ b/src/OPERATORS/op-scm-cm.cc	Wed May 03 19:32:48 2006 +0000
@@ -49,8 +49,13 @@
 {
   CAST_BINOP_ARGS (const octave_sparse_complex_matrix&, 
 		   const octave_complex_matrix&);
+  MatrixType typ = v2.matrix_type ();
   
-  return xdiv (v1.complex_matrix_value (), v2.complex_matrix_value ());
+  ComplexMatrix ret = xdiv (v1.complex_matrix_value (), 
+			    v2.complex_matrix_value (), typ);
+
+  v2.matrix_type (typ);
+  return ret;
 }
 
 DEFBINOPX (pow, sparse_complex_matrix, complex_matrix)
@@ -62,12 +67,12 @@
 DEFBINOP (ldiv, sparse_complex_matrix, complex_matrix)
 {
   CAST_BINOP_ARGS (const octave_sparse_complex_matrix&, const octave_complex_matrix&);
-  SparseType typ = v1.sparse_type ();
+  MatrixType typ = v1.matrix_type ();
 
   ComplexMatrix ret = xleftdiv (v1.sparse_complex_matrix_value (), 
 				v2.complex_matrix_value (), typ);
 
-  v1.sparse_type (typ);
+  v1.matrix_type (typ);
   return ret;
 }