Mercurial > hg > octave-lyh
comparison src/pt-cell.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 | 79845b1793cf |
children | 35cd375d4bb3 |
comparison
equal
deleted
inserted
replaced
8657:102e05821f93 | 8658:73c4516fae10 |
---|---|
39 #include "utils.h" | 39 #include "utils.h" |
40 #include "ov.h" | 40 #include "ov.h" |
41 #include "variables.h" | 41 #include "variables.h" |
42 | 42 |
43 octave_value | 43 octave_value |
44 tree_cell::rvalue (void) | 44 tree_cell::rvalue1 (int) |
45 { | 45 { |
46 octave_value retval; | 46 octave_value retval; |
47 | |
48 MAYBE_DO_BREAKPOINT; | |
49 | 47 |
50 octave_idx_type nr = length (); | 48 octave_idx_type nr = length (); |
51 octave_idx_type nc = -1; | 49 octave_idx_type nc = -1; |
52 | 50 |
53 Cell val; | 51 Cell val; |
97 octave_value_list retval; | 95 octave_value_list retval; |
98 | 96 |
99 if (nargout > 1) | 97 if (nargout > 1) |
100 error ("invalid number of output arguments for cell array"); | 98 error ("invalid number of output arguments for cell array"); |
101 else | 99 else |
102 retval = rvalue (); | 100 retval = rvalue1 (nargout); |
103 | 101 |
104 return retval; | 102 return retval; |
105 } | 103 } |
106 | 104 |
107 tree_expression * | 105 tree_expression * |