Mercurial > octave-nkf
changeset 9453:5fcf008c7c41
fix Cholesky updating with scalars
| author | Jaroslav Hajek <highegg@gmail.com> |
|---|---|
| date | Thu, 23 Jul 2009 20:37:56 +0200 |
| parents | deb668d53e60 |
| children | c58b8960c7d0 |
| files | src/ChangeLog src/DLD-FUNCTIONS/chol.cc |
| diffstat | 2 files changed, 10 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/src/ChangeLog Thu Jul 23 14:24:45 2009 -0400 +++ b/src/ChangeLog Thu Jul 23 20:37:56 2009 +0200 @@ -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-23 John W. Eaton <jwe@octave.org> * toplev.cc (IGNORE_EXCEPTION, SAFE_CALL): New macros.
--- a/src/DLD-FUNCTIONS/chol.cc Thu Jul 23 14:24:45 2009 -0400 +++ b/src/DLD-FUNCTIONS/chol.cc Thu Jul 23 20:37:56 2009 +0200 @@ -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 ();