Mercurial > octave-nkf
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) {