Mercurial > hg > octave-nkf
diff src/pt-misc.cc @ 2878:55cca18e943a
[project @ 1997-04-24 09:19:43 by jwe]
author | jwe |
---|---|
date | Thu, 24 Apr 1997 09:25:02 +0000 |
parents | 00c0cd0f2ee7 |
children | 1a30f46e1870 |
line wrap: on
line diff
--- a/src/pt-misc.cc +++ b/src/pt-misc.cc @@ -40,17 +40,18 @@ #include "error.h" #include "input.h" #include "oct-obj.h" +#include "ov.h" #include "pager.h" -#include "toplev.h" #include "pt-cmd.h" +#include "pt-const.h" #include "pt-exp.h" #include "pt-fcn.h" #include "pt-fvc.h" #include "pt-misc.h" #include "pt-mvr.h" +#include "pt-pr-code.h" #include "pt-walk.h" -#include "pt-pr-code.h" -#include "ov.h" +#include "toplev.h" #include "variables.h" // Nonzero means we're breaking out of a loop or function body. @@ -214,6 +215,15 @@ tw.visit_statement_list (*this); } +tree_argument_list::~tree_argument_list (void) +{ + while (! empty ()) + { + tree_expression *t = remove_front (); + delete t; + } +} + octave_value_list tree_argument_list::convert_to_const_vector (void) { @@ -312,7 +322,7 @@ if (! elt->is_defined ()) { octave_variable_reference tmp (elt); - tmp.assign (val); + tmp.assign (octave_value::asn_eq, val); } } }