Mercurial > octave-nkf
diff src/pt-binop.cc @ 5861:2a6cb4ed8f1e
[project @ 2006-06-16 05:09:41 by jwe]
author | jwe |
---|---|
date | Fri, 16 Jun 2006 05:09:42 +0000 |
parents | 4c8a2e4e0717 |
children | 93c65f2a5668 |
line wrap: on
line diff
--- a/src/pt-binop.cc Fri Jun 16 05:01:39 2006 +0000 +++ b/src/pt-binop.cc Fri Jun 16 05:09:42 2006 +0000 @@ -105,6 +105,19 @@ return octave_value::binary_op_as_string (etype); } +tree_expression * +tree_binary_expression::dup (symbol_table *sym_tab) +{ + tree_binary_expression *new_be + = new tree_binary_expression (op_lhs ? op_lhs->dup (sym_tab) : 0, + op_rhs ? op_rhs->dup (sym_tab) : 0, + line (), column (), etype); + + new_be->copy_base (*this); + + return new_be; +} + void tree_binary_expression::accept (tree_walker& tw) { @@ -219,6 +232,19 @@ return retval; } +tree_expression * +tree_boolean_expression::dup (symbol_table *sym_tab) +{ + tree_boolean_expression *new_be + = new tree_boolean_expression (op_lhs ? op_lhs->dup (sym_tab) : 0, + op_rhs ? op_rhs->dup (sym_tab) : 0, + line (), column (), etype); + + new_be->copy_base (*this); + + return new_be; +} + /* ;;; Local Variables: *** ;;; mode: C++ ***