Lines Matching refs:gfc_code
34 static void optimize_assignment (gfc_code *);
49 static int matmul_to_var_code (gfc_code **, int *, void *);
50 static int inline_matmul_assign (gfc_code **, int *, void *);
51 static gfc_code * create_do_loop (gfc_expr *, gfc_expr *, gfc_expr *,
56 static int call_external_blas (gfc_code **, int *, void *);
57 static int matmul_temp_args (gfc_code **, int *,void *data);
58 static int index_interchange (gfc_code **, int*, void *);
76 static gfc_code **current_code;
81 static gfc_code *inserted_block, **changed_statement;
110 gfc_code *c;
190 check_locus_code (gfc_code **c, int *walk_subtrees ATTRIBUTE_UNUSED, in check_locus_code()
246 realloc_string_callback (gfc_code **c, int *walk_subtrees ATTRIBUTE_UNUSED, in realloc_string_callback()
250 gfc_code *co = *c; in realloc_string_callback()
310 optimize_code (gfc_code **c, int *walk_subtrees ATTRIBUTE_UNUSED, in optimize_code()
684 inserted_block = XCNEW (gfc_code); in insert_block()
764 gfc_code *n; in create_var()
874 n = XCNEW (gfc_code); in create_var()
970 cfe_code (gfc_code **c, int *walk_subtrees, void *data ATTRIBUTE_UNUSED) in cfe_code()
1016 gfc_dummy_code_callback (gfc_code **e ATTRIBUTE_UNUSED, in gfc_dummy_code_callback()
1034 convert_do_while (gfc_code **c, int *walk_subtrees ATTRIBUTE_UNUSED, in convert_do_while()
1037 gfc_code *co = *c; in convert_do_while()
1038 gfc_code *c_if1, *c_if2, *c_exit; in convert_do_while()
1039 gfc_code *loopblock; in convert_do_while()
1060 c_exit = XCNEW (gfc_code); in convert_do_while()
1066 c_if2 = XCNEW (gfc_code); in convert_do_while()
1073 c_if1 = XCNEW (gfc_code); in convert_do_while()
1108 convert_elseif (gfc_code **c, int *walk_subtrees ATTRIBUTE_UNUSED, in convert_elseif()
1111 gfc_code *co = *c; in convert_elseif()
1112 gfc_code *c_if1, *c_if2, *else_stmt; in convert_elseif()
1122 gfc_code *next_else; in convert_elseif()
1131 c_if2 = XCNEW (gfc_code); in convert_elseif()
1139 c_if1 = XCNEW (gfc_code); in convert_elseif()
1184 gfc_code *code;
1198 traverse_io_block (gfc_code *code, bool *has_reached, gfc_code *prev) in traverse_io_block()
1200 gfc_code *curr; in traverse_io_block()
1424 simplify_io_impl_do (gfc_code **code, int *walk_subtrees, in simplify_io_impl_do()
1427 gfc_code **curr, *prev = NULL; in simplify_io_impl_do()
1558 optimize_binop_array_assignment (gfc_code *c, gfc_expr **rhs, bool seen_op) in optimize_binop_array_assignment()
1609 gfc_code *n; in optimize_binop_array_assignment()
1613 n = XCNEW (gfc_code); in optimize_binop_array_assignment()
1667 optimize_assignment (gfc_code * c) in optimize_assignment()
2312 doloop_code (gfc_code **c, int *walk_subtrees ATTRIBUTE_UNUSED, in doloop_code()
2315 gfc_code *co; in doloop_code()
2319 gfc_code *cl; in doloop_code()
2556 gfc_code *dl; in do_subscript()
2741 gfc_code *dl; in do_intent()
2856 matmul_to_var_code (gfc_code **c, int *walk_subtrees ATTRIBUTE_UNUSED, in matmul_to_var_code()
2876 matmul_temp_args (gfc_code **c, int *walk_subtrees ATTRIBUTE_UNUSED, in matmul_temp_args()
2880 gfc_code *co; in matmul_temp_args()
3051 static gfc_code *
3055 gfc_code *if_1, *if_2, *else_2; in inline_limit_check()
3085 else_2 = XCNEW (gfc_code); in inline_limit_check()
3089 if_2 = XCNEW (gfc_code); in inline_limit_check()
3095 if_1 = XCNEW (gfc_code); in inline_limit_check()
3106 static gfc_code *
3110 gfc_code *if_1, *if_2; in runtime_error_ne()
3111 gfc_code *c; in runtime_error_ne()
3116 c = XCNEW (gfc_code); in runtime_error_ne()
3140 if_2 = XCNEW (gfc_code); in runtime_error_ne()
3145 if_1 = XCNEW (gfc_code); in runtime_error_ne()
3174 static gfc_code *
3180 gfc_code *if_alloc_1, *if_alloc_2, *if_size_1, *if_size_2; in matmul_lhs_realloc()
3181 gfc_code *else_alloc; in matmul_lhs_realloc()
3182 gfc_code *deallocate, *allocate1, *allocate_else; in matmul_lhs_realloc()
3284 allocate1 = XCNEW (gfc_code); in matmul_lhs_realloc()
3290 allocate_else = XCNEW (gfc_code); in matmul_lhs_realloc()
3300 deallocate = XCNEW (gfc_code); in matmul_lhs_realloc()
3307 if_size_2 = XCNEW (gfc_code); in matmul_lhs_realloc()
3313 if_size_1 = XCNEW (gfc_code); in matmul_lhs_realloc()
3318 else_alloc = XCNEW (gfc_code); in matmul_lhs_realloc()
3323 if_alloc_2 = XCNEW (gfc_code); in matmul_lhs_realloc()
3330 if_alloc_1 = XCNEW (gfc_code); in matmul_lhs_realloc()
3461 static gfc_code *
3470 gfc_code *n, *n2; in create_do_loop()
3501 n = XCNEW (gfc_code); in create_do_loop()
3514 n2 = XCNEW (gfc_code); in create_do_loop()
3822 inline_matmul_assign (gfc_code **c, int *walk_subtrees, in inline_matmul_assign()
3825 gfc_code *co = *c; in inline_matmul_assign()
3829 gfc_code *do_1, *do_2, *do_3, *assign_zero, *assign_matmul; in inline_matmul_assign()
3841 gfc_code *if_limit = NULL; in inline_matmul_assign()
3842 gfc_code **next_code_point; in inline_matmul_assign()
4018 assign_zero = XCNEW (gfc_code); in inline_matmul_assign()
4029 gfc_code *test; in inline_matmul_assign()
4152 gfc_code *lhs_alloc; in inline_matmul_assign()
4165 assign_matmul = XCNEW (gfc_code); in inline_matmul_assign()
4372 call_external_blas (gfc_code **c, int *walk_subtrees ATTRIBUTE_UNUSED, in call_external_blas()
4375 gfc_code *co, *co_next; in call_external_blas()
4378 gfc_code *if_limit = NULL; in call_external_blas()
4381 gfc_code *call; in call_external_blas()
4390 gfc_code **next_code_point; in call_external_blas()
4521 call = XCNEW (gfc_code); in call_external_blas()
4532 gfc_code *test; in call_external_blas()
4641 gfc_code *lhs_alloc; in call_external_blas()
4865 index_interchange (gfc_code **c, int *walk_subtrees ATTRIBUTE_UNUSED, in index_interchange()
4868 gfc_code *co; in index_interchange()
5055 gfc_code_walker (gfc_code **c, walk_code_fn_t codefn, walk_expr_fn_t exprfn, in gfc_code_walker()
5067 gfc_code *b; in gfc_code_walker()
5069 gfc_code *co; in gfc_code_walker()
5470 check_externals_code (gfc_code **c, int *walk_subtrees ATTRIBUTE_UNUSED, in check_externals_code()
5473 gfc_code *co = *c; in check_externals_code()
5542 implicit_pure_call (gfc_code **c, int *walk_subtrees ATTRIBUTE_UNUSED, in implicit_pure_call()
5545 gfc_code *co = *c; in implicit_pure_call()