Mercurial > hg > octave-nkf
changeset 513:3c95cec7dd05
[project @ 1994-07-12 19:52:40 by jwe]
author | jwe |
---|---|
date | Tue, 12 Jul 1994 19:55:11 +0000 |
parents | f13cce2fda30 |
children | 20d2061944ee |
files | src/pt-const.cc |
diffstat | 1 files changed, 7 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/src/pt-const.cc +++ b/src/pt-const.cc @@ -360,12 +360,12 @@ } break; case 3: - retval(2) = tree_constant (val, 1); + retval(2) = val; case 2: - retval(0) = tree_constant (tmp, 1); + retval(0) = tree_constant (i_idx, 1); // If you want this to work more like Matlab, use the following line // instead of the previous one. -// retval(0) = tree_constant (tmp, (nr != 1)); +// retval(0) = tree_constant (i_idx, (nr != 1)); retval(1) = tree_constant (j_idx, 1); break; default: @@ -413,7 +413,8 @@ } } - return find_to_fortran_idx (i_idx, j_idx, v, m_nr, m_nc, nargout); + tree_constant tmp (v, 1); + return find_to_fortran_idx (i_idx, j_idx, tmp, m_nr, m_nc, nargout); } static Octave_object @@ -453,7 +454,8 @@ } } - return find_to_fortran_idx (i_idx, j_idx, v, m_nr, m_nc, nargout); + tree_constant tmp (v, 1); + return find_to_fortran_idx (i_idx, j_idx, tmp, m_nr, m_nc, nargout); } Octave_object