Mercurial > octave

changeset 513:3c95cec7dd05

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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	Tue Jul 12 19:22:50 1994 +0000
+++ b/src/pt-const.cc	Tue Jul 12 19:55:11 1994 +0000
@@ -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