Mercurial > hg > octave-lyh

diff src/data.cc @ 6197:c67c11e22828

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-12-04 16:08:30 by dbateman]
author dbateman
date Mon, 04 Dec 2006 16:08:30 +0000
parents a4ecbadedc17
children a6cc01dd09f9
line wrap: on
line diff
--- a/src/data.cc
+++ b/src/data.cc
@@ -1043,6 +1043,16 @@
 	  for (int i = nargout-1; i >= ndims; i--)
 	    retval(i) = 1;
 
+	  if (ndims > nargout)
+	    {
+	      octave_idx_type d = 1;
+
+	      while (ndims >= nargout)
+		d *= dimensions(--ndims);
+	      
+	      retval(ndims) = d;
+	    }
+
 	  while (ndims--)
 	    retval(ndims) = dimensions(ndims);
 	}