Mercurial > octave-libgccjit
comparison src/DLD-FUNCTIONS/sparse.cc @ 8910:6e9f26506804
optimize diag -> sparse and perm -> sparse conversions
author | Jaroslav Hajek <highegg@gmail.com> |
---|---|
date | Thu, 05 Mar 2009 08:34:52 +0100 |
parents | d254a21e0120 |
children | eb63fbe60fab |
comparison
equal
deleted
inserted
replaced
8909:52596fe9f178 | 8910:6e9f26506804 |
---|---|
144 { | 144 { |
145 SparseMatrix sm = arg.sparse_matrix_value (); | 145 SparseMatrix sm = arg.sparse_matrix_value (); |
146 retval = new octave_sparse_matrix (sm); | 146 retval = new octave_sparse_matrix (sm); |
147 } | 147 } |
148 } | 148 } |
149 else if (arg.is_diag_matrix ()) | |
150 { | |
151 if (arg.is_complex_type ()) | |
152 { | |
153 SparseComplexMatrix sm = arg.sparse_complex_matrix_value (); | |
154 retval = new octave_sparse_complex_matrix (sm); | |
155 } | |
156 else | |
157 { | |
158 SparseMatrix sm = arg.sparse_matrix_value (); | |
159 retval = new octave_sparse_matrix (sm); | |
160 } | |
161 } | |
162 else if (arg.is_perm_matrix ()) | |
163 { | |
164 SparseMatrix sm = arg.sparse_matrix_value (); | |
165 retval = new octave_sparse_matrix (sm); | |
166 } | |
149 else | 167 else |
150 { | 168 { |
151 if (use_complex) | 169 if (use_complex) |
152 { | 170 { |
153 SparseComplexMatrix sm (args (0).complex_matrix_value ()); | 171 SparseComplexMatrix sm (args (0).complex_matrix_value ()); |