Mercurial > hg > octave-nkf
diff src/pt-binop.cc @ 8658:73c4516fae10
New evaluator and debugger derived from tree-walker class
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Wed, 04 Feb 2009 00:47:53 -0500 |
parents | 3100283874d7 |
children | 35cd375d4bb3 |
line wrap: on
line diff
--- a/src/pt-binop.cc +++ b/src/pt-binop.cc @@ -43,28 +43,26 @@ error ("binary operator `%s': invalid number of output arguments", oper () . c_str ()); else - retval = rvalue (); + retval = rvalue1 (nargout); return retval; } octave_value -tree_binary_expression::rvalue (void) +tree_binary_expression::rvalue1 (int) { octave_value retval; - MAYBE_DO_BREAKPOINT; - if (error_state) return retval; if (op_lhs) { - octave_value a = op_lhs->rvalue (); + octave_value a = op_lhs->rvalue1 (); if (! error_state && a.is_defined () && op_rhs) { - octave_value b = op_rhs->rvalue (); + octave_value b = op_rhs->rvalue1 (); if (! error_state && b.is_defined ()) { @@ -112,19 +110,17 @@ { octave_value_list retval; - MAYBE_DO_BREAKPOINT; - if (nargout > 1) error ("binary operator `%s': invalid number of output arguments", oper () . c_str ()); else - retval = rvalue (); + retval = rvalue1 (nargout); return retval; } octave_value -tree_boolean_expression::rvalue (void) +tree_boolean_expression::rvalue1 (int) { octave_value retval; @@ -135,7 +131,7 @@ if (op_lhs) { - octave_value a = op_lhs->rvalue (); + octave_value a = op_lhs->rvalue1 (); if (! error_state) { @@ -159,7 +155,7 @@ if (op_rhs) { - octave_value b = op_rhs->rvalue (); + octave_value b = op_rhs->rvalue1 (); if (! error_state) result = b.is_true ();