Mercurial > hg > octave-nkf

changeset 4769:aef1e2d57055

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2004-02-16 16:15:24 by jwe]
author jwe
date Mon, 16 Feb 2004 16:15:24 +0000
parents 22c4c2be4733
children ef5e598f099b
files src/ChangeLog src/ov-list.cc
diffstat 2 files changed, 11 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2004-02-16  John W. Eaton  <jwe@bevo.che.wisc.edu>
+
+	* ov-list.cc (octave_list::subsasgn): Call assign for Cell objects
+	here, not the base octave_value::assign.
+
 2004-02-15  John W. Eaton  <jwe@bevo.che.wisc.edu>
 
 	* lex.l (yywrap): Don't #undef this symbol.
--- a/src/ov-list.cc
+++ b/src/ov-list.cc
@@ -186,7 +186,12 @@
 	  {
 	    octave_value_list i = idx.front ();
 
-	    assign (i, t_rhs);
+	    int len = i.length ();
+
+	    for (int k = 0; k < len; k++)
+	      data.set_index (i(k).index_vector ());
+
+	    ::assign (data, Cell (t_rhs), Cell::resize_fill_value ());
 
 	    retval = octave_value (this, count + 1);
 	  }