Mercurial > hg > octave-nkf

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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-unop.cc
+++ b/src/pt-unop.cc
@@ -120,6 +120,18 @@
 	   oper () . c_str (), line (), column ());
 }
 
+tree_expression *
+tree_prefix_expression::dup (symbol_table *sym_tab)
+{
+  tree_prefix_expression *new_pe
+    = new tree_prefix_expression (op ? op->dup (sym_tab) : 0,
+				  line (), column (), etype);
+
+  new_pe->copy_base (*this);
+
+  return new_pe;
+}
+
 void
 tree_prefix_expression::accept (tree_walker& tw)
 {
@@ -205,6 +217,18 @@
 	   oper () . c_str (), line (), column ());
 }
 
+tree_expression *
+tree_postfix_expression::dup (symbol_table *sym_tab)
+{
+  tree_postfix_expression *new_pe
+    = new tree_postfix_expression (op ? op->dup (sym_tab) : 0,
+				   line (), column (), etype);
+
+  new_pe->copy_base (*this);
+
+  return new_pe;
+}
+
 void
 tree_postfix_expression::accept (tree_walker& tw)
 {