Mercurial > hg > octave-nkf

comparison libinterp/parse-tree/pt-id.cc @ 15606:fb9dffe5fbfb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
The silent_functions flag no longer modifies the parse tree * pt-assign.cc (tree_simple_assignment::rvalue1, tree_multi_assignment::rvalue): Check tree_evaluator::statement_printing_enabled. * pt-eval.cc (tree_evaluator::statement_printing_enabled): New function. (tree_evaluator::visit_statement): Do not modify parse tree and check tree_evaluator::statement_printing_enabled. * pt-eval.h (tree_evaluator::statement_printing_enabled): New declaration. * pt-exp.h (tree_expression::print_result): Added comment. * pt-id.cc (tree_identifier::rvalue): Check tree_evaluator::statement_printing_enabled.
author Max Brister <max@2bass.com>
date Fri, 09 Nov 2012 20:29:21 -0700
parents 049e8bbff782
children 46ca8488de92 1785493171ac
comparison
equal deleted inserted replaced
15605:80a4ded6b89c 15606:fb9dffe5fbfb
28 #include "oct-obj.h" 28 #include "oct-obj.h"
29 #include "oct-lvalue.h" 29 #include "oct-lvalue.h"
30 #include "pager.h" 30 #include "pager.h"
31 #include "pt-bp.h" 31 #include "pt-bp.h"
32 #include "pt-const.h" 32 #include "pt-const.h"
33 #include "pt-eval.h"
33 #include "pt-id.h" 34 #include "pt-id.h"
34 #include "pt-walk.h" 35 #include "pt-walk.h"
35 #include "symtab.h" 36 #include "symtab.h"
36 #include "utils.h" 37 #include "utils.h"
37 #include "variables.h" 38 #include "variables.h"
86 87
87 retval = val.do_multi_index_op (nargout, tmp_args); 88 retval = val.do_multi_index_op (nargout, tmp_args);
88 } 89 }
89 else 90 else
90 { 91 {
91 if (print_result () && nargout == 0) 92 if (print_result () && nargout == 0
93 && tree_evaluator::statement_printing_enabled ())
92 val.print_with_name (octave_stdout, name ()); 94 val.print_with_name (octave_stdout, name ());
93 95
94 retval = val; 96 retval = val;
95 } 97 }
96 } 98 }