| 2916 | } |
| 2917 | |
| 2918 | void function_location( FUNCTION * function_, OBJECT * * file, int * line ) |
| 2919 | { |
| 2920 | if ( function_->type == FUNCTION_BUILTIN ) |
| 2921 | { |
| 2922 | *file = constant_builtin; |
| 2923 | *line = -1; |
| 2924 | } |
| 2925 | #ifdef HAVE_PYTHON |
| 2926 | if ( function_->type == FUNCTION_PYTHON ) |
| 2927 | { |
| 2928 | *file = constant_builtin; |
| 2929 | *line = -1; |
| 2930 | } |
| 2931 | #endif |
| 2932 | else |
| 2933 | { |
| 2934 | JAM_FUNCTION * function = (JAM_FUNCTION *)function_; |
| 2935 | assert( function_->type == FUNCTION_JAM ); |
| 2936 | *file = function->file; |
| 2937 | *line = function->line; |
| 2938 | } |
| 2939 | } |
| 2940 | |
| 2941 | static struct arg_list * arg_list_compile_builtin( char const * * args, |
| 2942 | int * num_arguments ); |