| 2871 | } |
| 2872 | |
| 2873 | FUNCTION * function_compile_actions( char const * actions, OBJECT * file, |
| 2874 | int line ) |
| 2875 | { |
| 2876 | compiler c[ 1 ]; |
| 2877 | JAM_FUNCTION * result; |
| 2878 | VAR_PARSE_ACTIONS * parse; |
| 2879 | current_file = object_str( file ); |
| 2880 | current_line = line; |
| 2881 | parse = parse_actions( actions ); |
| 2882 | compiler_init( c ); |
| 2883 | var_parse_actions_compile( parse, c ); |
| 2884 | var_parse_actions_free( parse ); |
| 2885 | compile_emit( c, INSTR_RETURN, 0 ); |
| 2886 | result = compile_to_function( c ); |
| 2887 | compiler_free( c ); |
| 2888 | result->file = object_copy( file ); |
| 2889 | result->line = line; |
| 2890 | return (FUNCTION *)result; |
| 2891 | } |
| 2892 | |
| 2893 | static void argument_list_print( struct arg_list * args, int num_args ); |
| 2894 |
no test coverage detected