Mercurial > hg > octave-lyh

diff src/pt-fcn-handle.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: 24701aa75ecb
children: ab87d08d9a1b
--- a/src/pt-fcn-handle.cc
+++ b/src/pt-fcn-handle.cc
@@ -49,14 +49,11 @@
 }
 
 octave_value
-tree_fcn_handle::rvalue (void)
+tree_fcn_handle::rvalue1 (int)
 {
-  MAYBE_DO_BREAKPOINT;
-
   return make_fcn_handle (nm);
 }
 
-
 octave_value_list
 tree_fcn_handle::rvalue (int nargout)
 {
@@ -65,7 +62,7 @@
   if (nargout > 1)
     error ("invalid number of output arguments for function handle expression");
   else
-    retval = rvalue ();
+    retval = rvalue1 (nargout);
 
   return retval;
 }
@@ -88,10 +85,8 @@
 }
 
 octave_value
-tree_anon_fcn_handle::rvalue (void)
+tree_anon_fcn_handle::rvalue1 (int)
 {
-  MAYBE_DO_BREAKPOINT;
-
   tree_parameter_list *param_list = parameter_list ();
   tree_parameter_list *ret_list = return_list ();
   tree_statement_list *cmd_list = body ();
@@ -140,7 +135,7 @@
   if (nargout > 1)
     error ("invalid number of output arguments for anonymous function handle expression");
   else
-    retval = rvalue ();
+    retval = rvalue1 (nargout);
 
   return retval;
 }