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);
 	}
     }
 }