Mercurial > hg > octave-lyh
diff src/pt-pr-code.cc @ 2960:194b50e4725b
[project @ 1997-05-12 00:43:54 by jwe]
author | jwe |
---|---|
date | Mon, 12 May 1997 00:54:04 +0000 |
parents | 026f342c2019 |
children | 8a77d52c9d02 |
line wrap: on
line diff
--- a/src/pt-pr-code.cc +++ b/src/pt-pr-code.cc @@ -692,10 +692,10 @@ if (in_parens) os << "("; - tree_identifier *id = expr.ident (); + tree_expression *e = expr.operand (); - if (id) - id->accept (*this); + if (e) + e->accept (*this); os << expr.oper (); @@ -715,10 +715,10 @@ os << expr.oper (); - tree_identifier *id = expr.ident (); + tree_expression *e = expr.operand (); - if (id) - id->accept (*this); + if (e) + e->accept (*this); if (in_parens) os << ")"; @@ -1046,37 +1046,6 @@ } void -tree_print_code::visit_unary_expression (tree_unary_expression& expr) -{ - indent (); - - bool in_parens = expr.is_in_parens (); - - if (in_parens) - os << "("; - - tree_expression *op = expr.operand (); - - if (expr.is_prefix_op ()) - { - os << expr.oper (); - - if (op) - op->accept (*this); - } - else - { - if (op) - op->accept (*this); - - os << expr.oper (); - } - - if (in_parens) - os << ")"; -} - -void tree_print_code::visit_unwind_protect_command (tree_unwind_protect_command& cmd) {