diff src/pt-assign.cc @ 5861:2a6cb4ed8f1e

[project @ 2006-06-16 05:09:41 by jwe]
author jwe
date Fri, 16 Jun 2006 05:09:42 +0000
parents db0598f94c0f
children f1676652d808
line wrap: on
line diff
--- a/src/pt-assign.cc	Fri Jun 16 05:01:39 2006 +0000
+++ b/src/pt-assign.cc	Fri Jun 16 05:09:42 2006 +0000
@@ -158,6 +158,19 @@
   return octave_value::assign_op_as_string (etype);
 }
 
+tree_expression *
+tree_simple_assignment::dup (symbol_table *sym_tab)
+{
+  tree_simple_assignment *new_sa
+    = new tree_simple_assignment (lhs ? lhs->dup (sym_tab) : 0,
+				  rhs ? rhs->dup (sym_tab) : 0,
+				  preserve, etype);
+
+  new_sa->copy_base (*this);
+
+  return new_sa;
+}
+
 void
 tree_simple_assignment::accept (tree_walker& tw)
 {
@@ -359,6 +372,19 @@
   return octave_value::assign_op_as_string (etype);
 }
 
+tree_expression *
+tree_multi_assignment::dup (symbol_table *sym_tab)
+{
+  tree_multi_assignment *new_ma
+    = new tree_multi_assignment (lhs ? lhs->dup (sym_tab) : 0,
+				 rhs ? rhs->dup (sym_tab) : 0,
+				 preserve, etype);
+
+  new_ma->copy_base (*this);
+
+  return new_ma;
+}
+
 void
 tree_multi_assignment::accept (tree_walker& tw)
 {