| 2817 | } |
| 2818 | |
| 2819 | void function_location( FUNCTION * function_, OBJECT * * file, int * line ) |
| 2820 | { |
| 2821 | if ( function_->type == FUNCTION_BUILTIN ) |
| 2822 | { |
| 2823 | *file = constant_builtin; |
| 2824 | *line = -1; |
| 2825 | } |
| 2826 | #ifdef HAVE_PYTHON |
| 2827 | if ( function_->type == FUNCTION_PYTHON ) |
| 2828 | { |
| 2829 | *file = constant_builtin; |
| 2830 | *line = -1; |
| 2831 | } |
| 2832 | #endif |
| 2833 | else |
| 2834 | { |
| 2835 | JAM_FUNCTION * function = (JAM_FUNCTION *)function_; |
| 2836 | assert( function_->type == FUNCTION_JAM ); |
| 2837 | *file = function->file; |
| 2838 | *line = function->line; |
| 2839 | } |
| 2840 | } |
| 2841 | |
| 2842 | static struct arg_list * arg_list_compile_builtin( char const * * args, |
| 2843 | int * num_arguments ); |