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	Tue Feb 03 12:47:38 2009 +0100
+++ b/src/pt-binop.cc	Wed Feb 04 00:47:53 2009 -0500
@@ -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 ();