Mercurial > hg > octave-lojdl
changeset 12047:e929449b9b03 release-3-2-x
fix Cholesky updating with scalars
author | Jaroslav Hajek <highegg@gmail.com> |
---|---|
date | Sat, 25 Jul 2009 16:22:40 +0200 |
parents | efdc5df061b6 |
children | 4dc74edc8321 |
files | src/ChangeLog src/DLD-FUNCTIONS/chol.cc |
diffstat | 2 files changed, 10 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,9 @@ +2009-07-23 Jaroslav Hajek <highegg@gmail.com> + + * DLD-FUNCTIONS/chol.cc (Fcholupdate, + Fcholinsert, Fcholdelete, Fcholshift): Replace is_matrix_type -> + is_numeric_type. + 2009-07-20 Aleksej Saushev <asau@inbox.ru> * sysdep.cc: Also define BSD_init if __NetBSD__ is defined.
--- a/src/DLD-FUNCTIONS/chol.cc +++ b/src/DLD-FUNCTIONS/chol.cc @@ -619,7 +619,7 @@ octave_value argr = args(0); octave_value argu = args(1); - if (argr.is_matrix_type () && argu.is_matrix_type () + if (argr.is_numeric_type () && argu.is_numeric_type () && (nargin < 3 || args(2).is_string ())) { octave_idx_type n = argr.rows (); @@ -830,7 +830,7 @@ octave_value argj = args(1); octave_value argu = args(2); - if (argr.is_matrix_type () && argu.is_matrix_type () + if (argr.is_numeric_type () && argu.is_numeric_type () && argj.is_real_scalar ()) { octave_idx_type n = argr.rows (); @@ -1003,7 +1003,7 @@ octave_value argr = args(0); octave_value argj = args(1); - if (argr.is_matrix_type () && argj.is_real_scalar ()) + if (argr.is_numeric_type () && argj.is_real_scalar ()) { octave_idx_type n = argr.rows (); octave_idx_type j = argj.scalar_value (); @@ -1141,7 +1141,7 @@ octave_value argi = args(1); octave_value argj = args(2); - if (argr.is_matrix_type () && argi.is_real_scalar () && argj.is_real_scalar ()) + if (argr.is_numeric_type () && argi.is_real_scalar () && argj.is_real_scalar ()) { octave_idx_type n = argr.rows (); octave_idx_type i = argi.scalar_value ();