Mercurial > hg > octave-avbm

comparison src/pt-fcn-handle.cc @ 6061:c968f4198067

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-10-18 20:57:04 by jwe]
author jwe
date Wed, 18 Oct 2006 20:57:05 +0000
parents 2a6cb4ed8f1e
children 3a68a2dc6eb1
comparison
equal deleted inserted replaced
6060:ced23ae2b5cc 6061:c968f4198067
139 } 139 }
140 140
141 tree_expression * 141 tree_expression *
142 tree_anon_fcn_handle::dup (symbol_table *st) 142 tree_anon_fcn_handle::dup (symbol_table *st)
143 { 143 {
144 symbol_table *new_sym_tab = sym_tab ? sym_tab->dup () : 0;
145
146 if (new_sym_tab)
147 new_sym_tab->inherit (st);
148
144 tree_anon_fcn_handle *new_afh 149 tree_anon_fcn_handle *new_afh
145 = new tree_anon_fcn_handle (param_list ? param_list->dup (st) : 0, 150 = new tree_anon_fcn_handle (param_list ? param_list->dup (new_sym_tab) : 0,
146 ret_list ? ret_list->dup (st) : 0, 151 ret_list ? ret_list->dup (new_sym_tab) : 0,
147 cmd_list ? cmd_list->dup (st) : 0, 152 cmd_list ? cmd_list->dup (new_sym_tab) : 0,
148 sym_tab ? sym_tab->dup () : 0, 153 new_sym_tab, line (), column ());
149 line (), column ());
150 154
151 new_afh->copy_base (*this); 155 new_afh->copy_base (*this);
152 156
153 return new_afh; 157 return new_afh;
154 } 158 }