Mercurial > octave-nkf
comparison src/pt-cell.cc @ 7336:745a8299c2b5
[project @ 2007-12-28 20:56:55 by jwe]
author | jwe |
---|---|
date | Fri, 28 Dec 2007 20:56:58 +0000 |
parents | a1dbe9d80eee |
children | 71f068b22fcc |
comparison
equal
deleted
inserted
replaced
7335:58f5fab3ebe5 | 7336:745a8299c2b5 |
---|---|
100 | 100 |
101 return retval; | 101 return retval; |
102 } | 102 } |
103 | 103 |
104 tree_expression * | 104 tree_expression * |
105 tree_cell::dup (symbol_table *sym_tab) | 105 tree_cell::dup (symbol_table::scope_id scope) |
106 { | 106 { |
107 tree_cell *new_cell = new tree_cell (0, line (), column ()); | 107 tree_cell *new_cell = new tree_cell (0, line (), column ()); |
108 | 108 |
109 for (iterator p = begin (); p != end (); p++) | 109 for (iterator p = begin (); p != end (); p++) |
110 { | 110 { |
111 tree_argument_list *elt = *p; | 111 tree_argument_list *elt = *p; |
112 | 112 |
113 new_cell->append (elt ? elt->dup (sym_tab) : 0); | 113 new_cell->append (elt ? elt->dup (scope) : 0); |
114 } | 114 } |
115 | 115 |
116 new_cell->copy_base (*this); | 116 new_cell->copy_base (*this); |
117 | 117 |
118 return new_cell; | 118 return new_cell; |