Mercurial > hg > octave-max

changeset 2372:b21b42c25350

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1996-10-12 00:15:08 by jwe]
author jwe
date Sat, 12 Oct 1996 00:15:08 +0000
parents dd29ab8af9e7
children d423dcc0ac32
files src/pt-pr-code.cc src/pt-pr-code.h src/pt-walk.h
diffstat 3 files changed, 11 insertions(+), 16 deletions(-) [+]
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)
--- a/src/pt-pr-code.h
+++ b/src/pt-pr-code.h
@@ -86,7 +86,7 @@
 
   void visit_oct_obj (tree_oct_obj&);
 
-  void visit_octave_value (octave_value&);
+  void visit_constant (tree_constant&);
 
   void visit_parameter_list (tree_parameter_list&);
 
--- a/src/pt-walk.h
+++ b/src/pt-walk.h
@@ -102,7 +102,7 @@
   visit_oct_obj (tree_oct_obj&) = 0;
 
   virtual void
-  visit_octave_value (octave_value&) = 0;
+  visit_constant (tree_constant&) = 0;
 
   virtual void
   visit_parameter_list (tree_parameter_list&) = 0;