Mercurial > hg > octave-lyh

diff liboctave/Array.cc @ 4533:ed2990fab58f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2003-10-10 02:13:33 by jwe]
author jwe
date Fri, 10 Oct 2003 02:15:46 +0000
parents 01ee68d18069
children e8355721a809
line wrap: on
line diff
--- a/liboctave/Array.cc
+++ b/liboctave/Array.cc
@@ -1950,7 +1950,7 @@
 		    (*current_liboctave_error_handler)
 		      ("attempt to grow array along ambiguous dimension");
 		  else
-		    retval.Array<T>::checkelem (numelem_result) = Array<T>::checkelem (numelem_elt);
+		    retval.checkelem (numelem_result) = checkelem (numelem_elt);
 		
 		  increment_index (result_idx, frozen_lengths);
 	
@@ -2460,7 +2460,14 @@
       if (n_idx == 0)
 	(*current_liboctave_error_handler)
 	  ("number of indices is zero");
-
+      else if (n_idx == 1)
+	{
+	  Array<int> one_arg_temp (1, 0);
+
+	  RT scalar = rhs.elem (one_arg_temp);
+
+	  lhs.fill (scalar);
+	}
       else if (n_idx < lhs_dims.length ())
 	{
 	  // Number of indices is less than dimensions.
@@ -2519,7 +2526,7 @@
 		(*current_liboctave_error_handler)
 		  ("attempt to grow array along ambiguous dimension");
 	      else
-		lhs.Array<LT>::checkelem (numelem) = scalar;
+		lhs.checkelem (numelem) = scalar;
 	    }
 	}
       else
@@ -2554,7 +2561,7 @@
 	    }
 	}
     }
-  else if (rhs_dims.length () >= 2)
+  else if (rhs_dims.length () > 1)
     {
       // RHS is matrix or higher dimension.