Mercurial > octave

diff src/data.cc @ 4739:7bd3748e2735

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2004-02-05 18:53:18 by jwe]
author jwe
date Thu, 05 Feb 2004 18:53:18 +0000
parents b484cdca27be
children e44d0ac643a5
line wrap: on
line diff
--- a/src/data.cc	Thu Feb 05 18:42:58 2004 +0000
+++ b/src/data.cc	Thu Feb 05 18:53:18 2004 +0000
@@ -1342,8 +1342,21 @@
       return retval;
     }
 
+  // Remove trailing singletons in new_size, but leave at least 2
+  // elements.
+
   int n = new_size.length ();
 
+  while (n > 2)
+    {
+      if (new_size(n-1) == 1)
+	n--;
+      else
+	break;
+    }
+
+  new_size.resize (n);
+
   if (n < 2)
     {
       error ("reshape: expecting size to be vector with at least 2 elements");