Mercurial > octave

comparison src/pt-exp-base.h @ 1161:0326a802cd5c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1995-02-27 16:14:48 by jwe]
author jwe
date Mon, 27 Feb 1995 16:15:02 +0000
parents dfe01093f657
children 7d7c3eaa1d3b
comparison
equal deleted inserted replaced
1160:74397545c242 1161:0326a802cd5c
803 803
804 class 804 class
805 tree_function : public tree_fvc 805 tree_function : public tree_fvc
806 { 806 {
807 private: 807 private:
808 void install_nargin_and_nargout (void);
809
810 void bind_nargin_and_nargout (int nargin, int nargout);
811
808 void init (void) 812 void init (void)
809 { 813 {
810 call_depth = 0; 814 call_depth = 0;
811 param_list = 0; 815 param_list = 0;
812 ret_list = 0; 816 ret_list = 0;
831 : tree_fvc (l, c) 835 : tree_fvc (l, c)
832 { 836 {
833 init (); 837 init ();
834 sym_tab = st; 838 sym_tab = st;
835 cmd_list = cl; 839 cmd_list = cl;
840 install_nargin_and_nargout ();
836 } 841 }
837 842
838 // tree_function *define (tree_statement_list *t); 843 // tree_function *define (tree_statement_list *t);
839 tree_function *define_param_list (tree_parameter_list *t); 844 tree_function *define_param_list (tree_parameter_list *t);
840 tree_function *define_ret_list (tree_parameter_list *t); 845 tree_function *define_ret_list (tree_parameter_list *t);
896 int num_named_args; 901 int num_named_args;
897 Octave_object args_passed; 902 Octave_object args_passed;
898 int num_args_passed; 903 int num_args_passed;
899 int curr_va_arg_number; 904 int curr_va_arg_number;
900 tree_va_return_list *vr_list; 905 tree_va_return_list *vr_list;
906 symbol_record *nargin_sr;
907 symbol_record *nargout_sr;
901 }; 908 };
902 909
903 #endif 910 #endif
904 911
905 /* 912 /*