Mercurial > hg > octave-nkf
diff src/pt-const.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 | 47f4f4e88166 |
line wrap: on
line diff
--- a/src/pt-const.cc +++ b/src/pt-const.cc @@ -70,6 +70,17 @@ return retval; } +tree_expression * +tree_constant::dup (symbol_table *sym_tab) +{ + tree_constant *new_tc + = new tree_constant (val, orig_text, line (), column ()); + + new_tc->copy_base (*this); + + return new_tc; +} + void tree_constant::accept (tree_walker& tw) {