# HG changeset patch
# User jwe
# Date 798405897 0
# Node ID 0a5e9e8892a0687d2b430a226a5ada6ea695d8b8
# Parent  abaf21f34109699990f834896f031e29c21ac648
[project @ 1995-04-20 19:23:24 by jwe]

diff -r abaf21f34109 -r 0a5e9e8892a0 src/pt-cmd.h
--- a/src/pt-cmd.h	Thu Apr 20 19:18:13 1995 +0000
+++ b/src/pt-cmd.h	Thu Apr 20 19:24:57 1995 +0000
@@ -58,6 +58,8 @@
 public:
   tree_command (int l = -1, int c = -1) : tree (l, c) { }
 
+  virtual ~tree_command (void) { }
+
   virtual void eval (void) = 0;
 };
 
diff -r abaf21f34109 -r 0a5e9e8892a0 src/pt-exp-base.cc
--- a/src/pt-exp-base.cc	Thu Apr 20 19:18:13 1995 +0000
+++ b/src/pt-exp-base.cc	Thu Apr 20 19:24:57 1995 +0000
@@ -1885,9 +1885,12 @@
 {
   if (! preserve)
     {
-      delete lhs;
-      delete index;
+      if (lhs_idx_expr)
+	delete lhs_idx_expr;
+      else
+	delete lhs;
     }
+
   delete rhs;
 }
 
@@ -2497,6 +2500,17 @@
   nargout_sr->define (tmp);
 }
 
+tree_function::~tree_function (void)
+{
+  delete param_list;
+  delete ret_list;
+  delete sym_tab;
+  delete cmd_list;
+  delete [] file_name;
+  delete [] fcn_name;
+  delete vr_list;
+}
+
 #if 0
 tree_function *
 tree_function::define (tree statement_list *t)
diff -r abaf21f34109 -r 0a5e9e8892a0 src/pt-exp-base.h
--- a/src/pt-exp-base.h	Thu Apr 20 19:18:13 1995 +0000
+++ b/src/pt-exp-base.h	Thu Apr 20 19:24:57 1995 +0000
@@ -196,6 +196,8 @@
 public:
   tree_multi_val_ret (int l = -1, int c = -1) : tree_expression (l, c) { }
 
+  ~tree_multi_val_ret (void) { }
+
   int is_multi_val_ret_expression (void) const
     { return 1; }
 
@@ -219,6 +221,8 @@
 	values = v;
       }
 
+  ~tree_oct_obj (void) { }
+
   tree_constant eval (int print);
 
   Octave_object eval (int print, int nargout, const Octave_object& args);
@@ -237,6 +241,8 @@
 public:
   tree_fvc (int l = -1, int c = -1) : tree_multi_val_ret (l, c) { }
 
+  ~tree_fvc (void) { }
+
   virtual int is_constant (void) const
     { return 0; }
 
@@ -288,6 +294,8 @@
       maybe_do_ans_assign = 0;
     }
 
+  ~tree_identifier (void) { }
+
   int is_identifier (void) const
     { return 1; }
 
@@ -619,6 +627,7 @@
   void init (int plhs, int ans_assign)
     {
       etype = tree_expression::assignment;
+      lhs_idx_expr = 0;
       lhs = 0;
       index = 0;
       rhs = 0;
@@ -661,6 +670,7 @@
     : tree_expression (l, c)
       {
 	init (plhs, ans_assign);
+	lhs_idx_expr = idx_expr; // cache this -- we may need to delete it.
 	lhs = idx_expr->ident ();
 	index = idx_expr->arg_list ();
 	rhs = r;
@@ -687,6 +697,7 @@
   void print_code (ostream& os);
 
  private:
+  tree_index_expression *lhs_idx_expr;
   tree_indirect_ref *lhs;
   tree_argument_list *index;
   tree_expression *rhs;
@@ -799,6 +810,8 @@
   tree_builtin (int i_max, int o_max, Octave_builtin_fcn f,
 		const char *nm = 0);
 
+  ~tree_builtin (void) { }  // XXX ?? XXX
+
 //  int is_builtin (void) const;
 
   int is_mapper_function (void) const
@@ -868,6 +881,8 @@
 	 install_nargin_and_nargout ();
        }
 
+  ~tree_function (void);
+
 //  tree_function *define (tree_statement_list *t);
   tree_function *define_param_list (tree_parameter_list *t);
   tree_function *define_ret_list (tree_parameter_list *t);