Mercurial > hg > octave-nkf

diff src/ov-usr-fcn.cc @ 3178:09a3064a3a17

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1998-06-23 03:46:42 by jwe]
author jwe
date Tue, 23 Jun 1998 03:47:31 +0000
parents e4bbfc196e53
children 30770ba4457a
line wrap: on
line diff
--- a/src/ov-usr-fcn.cc
+++ b/src/ov-usr-fcn.cc
@@ -171,11 +171,16 @@
 {
   octave_value_list retval;
 
-  retval.resize (num_args_passed - num_named_args);
+  int n = num_args_passed - num_named_args;
 
-  int k = 0;
-  for (int i = num_named_args; i < num_args_passed; i++)
-    retval(k++) = args_passed(i);
+  if (n > 0)
+    {
+      retval.resize (n);
+
+      int k = 0;
+      for (int i = num_named_args; i < num_args_passed; i++)
+	retval(k++) = args_passed(i);
+    }
 
   return retval;
 }