Mercurial > octave-nkf
diff src/pt-loop.cc @ 5861:2a6cb4ed8f1e
[project @ 2006-06-16 05:09:41 by jwe]
| author | jwe |
|---|---|
| date | Fri, 16 Jun 2006 05:09:42 +0000 |
| parents | ace8d8d26933 |
| children | 00fad3bad2a5 |
line wrap: on
line diff
--- a/src/pt-loop.cc Fri Jun 16 05:01:39 2006 +0000 +++ b/src/pt-loop.cc Fri Jun 16 05:09:42 2006 +0000 @@ -125,6 +125,16 @@ line (), column ()); } +tree_command * +tree_while_command::dup (symbol_table *sym_tab) +{ + return new tree_while_command (expr ? expr->dup (sym_tab) : 0, + list ? list->dup (sym_tab) : 0, + lead_comm ? lead_comm->dup () : 0, + trail_comm ? trail_comm->dup (): 0, + line (), column ()); +} + void tree_while_command::accept (tree_walker& tw) { @@ -178,6 +188,16 @@ line (), column ()); } +tree_command * +tree_do_until_command::dup (symbol_table *sym_tab) +{ + return new tree_do_until_command (expr ? expr->dup (sym_tab) : 0, + list ? list->dup (sym_tab) : 0, + lead_comm ? lead_comm->dup () : 0, + trail_comm ? trail_comm->dup (): 0, + line (), column ()); +} + void tree_do_until_command::accept (tree_walker& tw) { @@ -462,6 +482,17 @@ line (), column ()); } +tree_command * +tree_simple_for_command::dup (symbol_table *sym_tab) +{ + return new tree_simple_for_command (lhs ? lhs->dup (sym_tab) : 0, + expr ? expr->dup (sym_tab) : 0, + list ? list->dup (sym_tab) : 0, + lead_comm ? lead_comm->dup () : 0, + trail_comm ? trail_comm->dup () : 0, + line (), column ()); +} + void tree_simple_for_command::accept (tree_walker& tw) { @@ -572,6 +603,17 @@ line (), column ()); } +tree_command * +tree_complex_for_command::dup (symbol_table *sym_tab) +{ + return new tree_complex_for_command (lhs ? lhs->dup (sym_tab) : 0, + expr ? expr->dup (sym_tab) : 0, + list ? list->dup (sym_tab) : 0, + lead_comm ? lead_comm->dup () : 0, + trail_comm ? trail_comm->dup () : 0, + line (), column ()); +} + void tree_complex_for_command::accept (tree_walker& tw) {