Mercurial > hg > octave-lyh

diff 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
line wrap: on
line diff
--- a/src/pt-fcn-handle.cc
+++ b/src/pt-fcn-handle.cc
@@ -141,12 +141,16 @@
 tree_expression *
 tree_anon_fcn_handle::dup (symbol_table *st)
 {
+  symbol_table *new_sym_tab = sym_tab ? sym_tab->dup () : 0;
+
+  if (new_sym_tab)
+    new_sym_tab->inherit (st);
+
   tree_anon_fcn_handle *new_afh
-    = new tree_anon_fcn_handle (param_list ? param_list->dup (st) : 0,
-				ret_list ? ret_list->dup (st) : 0,
-				cmd_list ? cmd_list->dup (st) : 0,
-				sym_tab ? sym_tab->dup () : 0,
-				line (), column ());
+    = new tree_anon_fcn_handle (param_list ? param_list->dup (new_sym_tab) : 0,
+				ret_list ? ret_list->dup (new_sym_tab) : 0,
+				cmd_list ? cmd_list->dup (new_sym_tab) : 0,
+				new_sym_tab, line (), column ());
 
   new_afh->copy_base (*this);