Mercurial > hg > octave-nkf
diff src/pt-pr-code.cc @ 2372:b21b42c25350
[project @ 1996-10-12 00:15:08 by jwe]
author | jwe |
---|---|
date | Sat, 12 Oct 1996 00:15:08 +0000 |
parents | 6abec42e52f6 |
children | 4516c3b75851 |
line wrap: on
line diff
--- a/src/pt-pr-code.cc +++ b/src/pt-pr-code.cc @@ -560,7 +560,7 @@ } void -tree_print_code::visit_octave_value (octave_value& val) +tree_print_code::visit_constant (tree_constant& val) { indent (); @@ -1034,24 +1034,19 @@ tree_expression *op = expr.operand (); - tree_expression::type etype = expr.expression_type (); + if (expr.is_prefix_op ()) + { + os << expr.oper (); - switch (etype) - { - case tree_expression::hermitian: - case tree_expression::transpose: if (op) op->accept (*this); - os << expr.oper (); - break; - - case tree_expression::not: - case tree_expression::uminus: - default: - os << expr.oper (); + } + else + { if (op) op->accept (*this); - break; + + os << expr.oper (); } if (in_parens)