| 3146 | } |
| 3147 | |
| 3148 | FUNCTION * function_compile_actions( char const * actions, OBJECT * file, |
| 3149 | int32_t line ) |
| 3150 | { |
| 3151 | compiler c[ 1 ]; |
| 3152 | JAM_FUNCTION * result; |
| 3153 | VAR_PARSE_ACTIONS * parse; |
| 3154 | current_file = object_str( file ); |
| 3155 | current_line = line; |
| 3156 | parse = parse_actions( actions ); |
| 3157 | compiler_init( c ); |
| 3158 | var_parse_actions_compile( parse, c ); |
| 3159 | var_parse_actions_free( parse ); |
| 3160 | compile_emit( c, INSTR_RETURN, 1 ); |
| 3161 | result = compile_to_function( c ); |
| 3162 | compiler_free( c ); |
| 3163 | result->file = object_copy( file ); |
| 3164 | result->line = line; |
| 3165 | return (FUNCTION *)result; |
| 3166 | } |
| 3167 | |
| 3168 | static void argument_list_print( struct arg_list * args, int32_t num_args ); |
| 3169 |
no test coverage detected