Mercurial > hg > octave-nkf
diff src/pt-misc.cc @ 723:1c072f20b522
[project @ 1994-09-21 16:00:10 by jwe]
author | jwe |
---|---|
date | Wed, 21 Sep 1994 16:00:10 +0000 |
parents | 36ba0576bd1b |
children | 586160369413 |
line wrap: on
line diff
--- a/src/pt-misc.cc +++ b/src/pt-misc.cc @@ -302,10 +302,13 @@ } Octave_object -tree_parameter_list::convert_to_const_vector (void) +tree_parameter_list::convert_to_const_vector (tree_va_return_list *vr_list) { int nout = length (); + if (vr_list) + nout += vr_list->length (); + Octave_object retval; retval.resize (nout); @@ -321,6 +324,15 @@ i++; } + if (vr_list) + { + for (p = vr_list->first (); p != 0; vr_list->next (p)) + { + retval(i) = vr_list->operator () (p); + i++; + } + } + return retval; }