Mercurial > octave

comparison src/pt-misc.cc @ 1093:51fd9e40a7f7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1995-02-03 21:57:34 by jwe]
author jwe
date Fri, 03 Feb 1995 21:57:34 +0000
parents 1a3121ebf088
children 2a8073a0b8a6
comparison
equal deleted inserted replaced
1092:2e10146f7f72 1093:51fd9e40a7f7
293 elt->mark_as_formal_parameter (); 293 elt->mark_as_formal_parameter ();
294 } 294 }
295 } 295 }
296 296
297 void 297 void
298 tree_parameter_list::initialize_undefined_elements (const tree_constant& val)
299 {
300 for (Pix p = first (); p != 0; next (p))
301 {
302 tree_identifier *elt = this->operator () (p);
303 if (! elt->is_defined ())
304 elt->assign (val);
305 }
306 }
307
308 void
298 tree_parameter_list::define_from_arg_vector (const Octave_object& args) 309 tree_parameter_list::define_from_arg_vector (const Octave_object& args)
299 { 310 {
300 int nargin = args.length (); 311 int nargin = args.length ();
301 312
302 if (nargin <= 0) 313 if (nargin <= 0)