Mercurial > hg > octave-nkf

diff src/OPERATORS/op-cm-sm.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-cm-sm.cc
+++ b/src/OPERATORS/op-cm-sm.cc
@@ -49,12 +49,12 @@
 {
   CAST_BINOP_ARGS (const octave_complex_matrix&, const octave_sparse_matrix&);
   
-  SparseType typ = v2.sparse_type ();
+  MatrixType typ = v2.matrix_type ();
 
   ComplexMatrix ret = xdiv (v1.complex_matrix_value (), 
 			    v2.sparse_matrix_value (), typ);
 
-  v2.sparse_type (typ);
+  v2.matrix_type (typ);
   return ret;
 }
 
@@ -68,8 +68,13 @@
 {
   CAST_BINOP_ARGS (const octave_complex_matrix&, 
 		   const octave_sparse_matrix&);
+  MatrixType typ = v1.matrix_type ();
   
-  return xleftdiv (v1.complex_matrix_value (), v2.matrix_value ());
+  ComplexMatrix ret = xleftdiv (v1.complex_matrix_value (), 
+				v2.matrix_value (), typ);
+
+  v1.matrix_type (typ);
+  return ret;
 }
 
 DEFBINOP_FN (lt, complex_matrix, sparse_matrix, mx_el_lt)