| 3092 | } |
| 3093 | |
| 3094 | void function_location( FUNCTION * function_, OBJECT * * file, int32_t * line ) |
| 3095 | { |
| 3096 | if ( function_->type == FUNCTION_BUILTIN ) |
| 3097 | { |
| 3098 | *file = constant_builtin; |
| 3099 | *line = -1; |
| 3100 | } |
| 3101 | #ifdef HAVE_PYTHON |
| 3102 | if ( function_->type == FUNCTION_PYTHON ) |
| 3103 | { |
| 3104 | *file = constant_builtin; |
| 3105 | *line = -1; |
| 3106 | } |
| 3107 | #endif |
| 3108 | else |
| 3109 | { |
| 3110 | JAM_FUNCTION * function = (JAM_FUNCTION *)function_; |
| 3111 | assert( function_->type == FUNCTION_JAM ); |
| 3112 | *file = function->file; |
| 3113 | *line = function->line; |
| 3114 | } |
| 3115 | } |
| 3116 | |
| 3117 | static struct arg_list * arg_list_compile_builtin( char const * * args, |