Mercurial > octave
diff libinterp/corefcn/call-stack.cc @ 32125:fc5a9a9e5cea
new set_nargin and set_nargout functions for evaluator
* pt-eval.h, pt-eval.cc (tree_evaluator::set_nargin,
tree_evaluator::set_nargout): New functions.
* call-stack.h, call-stack.cc (call_stack::set_nargin,
call_stack::set_nargout): New functions.
* stack-frame.h (stack_frame::set_nargin, stack_frame::set_nargout):
New virtual functions.
author | Petter T. <petter.vilhelm@gmail.com> |
---|---|
date | Thu, 15 Jun 2023 10:53:23 -0400 |
parents | 73fdf7f8381b |
children | 18c6b6997055 |
line wrap: on
line diff
--- a/libinterp/corefcn/call-stack.cc Thu Jun 15 10:51:50 2023 -0400 +++ b/libinterp/corefcn/call-stack.cc Thu Jun 15 10:53:23 2023 -0400 @@ -1131,6 +1131,18 @@ m_cs[m_curr_frame]->set_auto_fcn_var (avt, val); } +void +call_stack::set_nargin (int nargin) +{ + m_cs[m_curr_frame]->set_nargin (nargin); +} + +void +call_stack::set_nargout (int nargout) +{ + m_cs[m_curr_frame]->set_nargout (nargout); +} + octave_value call_stack::get_auto_fcn_var (stack_frame::auto_var_type avt) const { return m_cs[m_curr_frame]->get_auto_fcn_var (avt);