| /netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/ |
| H A D | intrinsic.h | 24 extern gfc_expr gfc_bad_expr;
28 bool gfc_check_a_ikind (gfc_expr *, gfc_expr *);
29 bool gfc_check_a_xkind (gfc_expr *, gfc_expr *);
30 bool gfc_check_a_p (gfc_expr *, gfc_expr *);
31 bool gfc_check_x_yd (gfc_expr *, gfc_expr *);
33 bool gfc_check_abs (gfc_expr *);
34 bool gfc_check_access_func (gfc_expr *, gfc_expr *);
35 bool gfc_check_achar (gfc_expr *, gfc_expr *);
36 bool gfc_check_all_any (gfc_expr *, gfc_expr *);
37 bool gfc_check_allocated (gfc_expr *);
[all …]
|
| H A D | arith.h | 33 arith gfc_range_check (gfc_expr *);
35 int gfc_compare_expr (gfc_expr *, gfc_expr *, gfc_intrinsic_op);
36 int gfc_compare_string (gfc_expr *, gfc_expr *);
37 int gfc_compare_with_Cstring (gfc_expr *, const char *, bool);
41 gfc_expr *gfc_parentheses (gfc_expr * op);
42 gfc_expr *gfc_uplus (gfc_expr * op);
43 gfc_expr *gfc_uminus (gfc_expr * op);
44 gfc_expr *gfc_add (gfc_expr *, gfc_expr *);
45 gfc_expr *gfc_subtract (gfc_expr *, gfc_expr *);
46 gfc_expr *gfc_multiply (gfc_expr *, gfc_expr *);
[all …]
|
| H A D | gfortran.h | 1027 struct gfc_expr *length;
1068 struct gfc_expr *lower[GFC_MAX_DIMENSIONS], *upper[GFC_MAX_DIMENSIONS];
1098 struct gfc_expr *initializer;
1101 struct gfc_expr *kind_expr;
1143 struct gfc_expr *expr;
1165 struct gfc_expr *expr;
1237 struct gfc_expr *expr;
1336 struct gfc_expr *if_expr;
1337 struct gfc_expr *final_expr;
1338 struct gfc_expr *num_threads;
[all …]
|
| H A D | arith.c | 419 gfc_arith_not (gfc_expr *op1, gfc_expr **resultp) in gfc_arith_not()
421 gfc_expr *result; in gfc_arith_not()
432 gfc_arith_and (gfc_expr *op1, gfc_expr *op2, gfc_expr **resultp) in gfc_arith_and()
434 gfc_expr *result; in gfc_arith_and()
446 gfc_arith_or (gfc_expr *op1, gfc_expr *op2, gfc_expr **resultp) in gfc_arith_or()
448 gfc_expr *result; in gfc_arith_or()
460 gfc_arith_eqv (gfc_expr *op1, gfc_expr *op2, gfc_expr **resultp) in gfc_arith_eqv()
462 gfc_expr *result; in gfc_arith_eqv()
474 gfc_arith_neqv (gfc_expr *op1, gfc_expr *op2, gfc_expr **resultp) in gfc_arith_neqv()
476 gfc_expr *result; in gfc_arith_neqv()
[all …]
|
| H A D | iresolve.c | 82 check_charlen_present (gfc_expr *source) in check_charlen_present()
109 resolve_mask_arg (gfc_expr *mask) in resolve_mask_arg()
144 resolve_bound (gfc_expr *f, gfc_expr *array, gfc_expr *dim, gfc_expr *kind, in resolve_bound()
169 resolve_transformational (const char *name, gfc_expr *f, gfc_expr *array, in resolve_transformational()
170 gfc_expr *dim, gfc_expr *mask) in resolve_transformational()
205 gfc_resolve_abs (gfc_expr *f, gfc_expr *a) in gfc_resolve_abs()
217 gfc_resolve_access (gfc_expr *f, gfc_expr *name ATTRIBUTE_UNUSED, in gfc_resolve_access()
218 gfc_expr *mode ATTRIBUTE_UNUSED) in gfc_resolve_access()
227 gfc_resolve_adjustl (gfc_expr *f, gfc_expr *string) in gfc_resolve_adjustl()
239 gfc_resolve_adjustr (gfc_expr *f, gfc_expr *string) in gfc_resolve_adjustr()
[all …]
|
| H A D | simplify.c | 35 static int min_max_choose (gfc_expr *, gfc_expr *, int, bool back_val = false);
37 gfc_expr gfc_bad_expr;
39 static gfc_expr *simplify_size (gfc_expr *, gfc_expr *, int);
77 static gfc_expr *
78 range_check (gfc_expr *result, const char *name) in range_check()
120 get_kind (bt type, gfc_expr *k, const char *name, int default_kind) in get_kind()
220 is_constant_array_expr (gfc_expr *e) in is_constant_array_expr()
245 gfc_is_size_zero_array (gfc_expr *array) in gfc_is_size_zero_array()
272 init_result_expr (gfc_expr *e, int init, gfc_expr *array) in init_result_expr()
323 gfc_expr *len = gfc_simplify_len (array, NULL); in init_result_expr()
[all …]
|
| H A D | check.c | 42 reset_boz (gfc_expr *x) in reset_boz()
83 illegal_boz_arg (gfc_expr *x) in illegal_boz_arg()
99 boz_args_check(gfc_expr *i, gfc_expr *j) in boz_args_check()
119 is_boz_constant (gfc_expr *a) in is_boz_constant()
209 bin2real (gfc_expr *x, int kind) in bin2real()
297 gfc_boz2real (gfc_expr *x, int kind) in gfc_boz2real()
387 gfc_boz2int (gfc_expr *x, int kind) in gfc_boz2int()
472 scalar_check (gfc_expr *e, int n) in scalar_check()
488 type_check (gfc_expr *e, int n, bt type) in type_check()
504 numeric_check (gfc_expr *e, int n) in numeric_check()
[all …]
|
| H A D | trans-array.h | 23 bool gfc_array_allocate (gfc_se *, gfc_expr *, tree, tree, tree, tree,
24 tree, tree *, gfc_expr *, tree, bool);
55 tree gfc_bcast_alloc_comp (gfc_symbol *, gfc_expr *, int, tree,
68 tree gfc_alloc_allocatable_for_assignment (gfc_loopinfo*, gfc_expr*, gfc_expr*);
76 gfc_symbol *gfc_get_proc_ifc_for_expr (gfc_expr *);
78 gfc_ss *gfc_walk_expr (gfc_expr *);
80 gfc_ss *gfc_walk_subexpr (gfc_ss *, gfc_expr *);
82 gfc_ss *gfc_walk_array_ref (gfc_ss *, gfc_expr *, gfc_ref * ref);
87 gfc_ss *gfc_walk_intrinsic_function (gfc_ss *, gfc_expr *,
103 gfc_ss *gfc_get_array_ss (gfc_ss *, gfc_expr *, int, gfc_ss_type);
[all …]
|
| H A D | dependency.h | 34 gfc_expr *gfc_get_noncopying_intrinsic_argument (gfc_expr *);
35 int gfc_check_fncall_dependency (gfc_expr *, sym_intent, gfc_symbol *,
37 int gfc_check_dependency (gfc_expr *, gfc_expr *, bool);
38 int gfc_expr_is_one (gfc_expr *, int);
42 int gfc_are_equivalenced_arrays (gfc_expr *, gfc_expr *);
44 gfc_expr * gfc_discard_nops (gfc_expr *);
|
| H A D | matchexp.c | 128 gfc_expr *
129 gfc_get_parentheses (gfc_expr *e) in gfc_get_parentheses()
131 gfc_expr *e2; in gfc_get_parentheses()
144 match_primary (gfc_expr **result) in match_primary()
147 gfc_expr *e; in match_primary()
197 match_level_1 (gfc_expr **result) in match_level_1()
200 gfc_expr *e, *f; in match_level_1()
244 static match match_ext_mult_operand (gfc_expr **result);
245 static match match_ext_add_operand (gfc_expr **result);
259 match_mult_operand (gfc_expr **result) in match_mult_operand()
[all …]
|
| H A D | trans.h | 257 gfc_expr *expr;
427 gfc_expr * gfc_find_and_cut_at_last_class_ref (gfc_expr *, bool is_mold = false);
444 void gfc_reset_vptr (stmtblock_t *, gfc_expr *);
445 void gfc_reset_len (stmtblock_t *, gfc_expr *);
446 tree gfc_get_class_from_gfc_expr (gfc_expr *);
451 bool gfc_add_finalizer_call (stmtblock_t *, gfc_expr *);
454 void gfc_conv_derived_to_class (gfc_se *, gfc_expr *, gfc_typespec, tree, bool,
456 void gfc_conv_class_to_class (gfc_se *, gfc_expr *, gfc_typespec, bool, bool,
499 void gfc_conv_expr (gfc_se * se, gfc_expr * expr);
500 void gfc_conv_expr_val (gfc_se * se, gfc_expr * expr);
[all …]
|
| H A D | target-memory.h | 25 bool gfc_convert_boz (gfc_expr *, gfc_typespec *);
27 bool gfc_element_size (gfc_expr *, size_t *);
28 bool gfc_target_expr_size (gfc_expr *, size_t *);
33 unsigned HOST_WIDE_INT gfc_target_encode_expr (gfc_expr *, unsigned char *,
42 size_t gfc_interpret_character (unsigned char *, size_t, gfc_expr *);
43 int gfc_interpret_derived (unsigned char *, size_t, gfc_expr *);
44 size_t gfc_target_interpret_expr (unsigned char *, size_t, gfc_expr *, bool);
47 size_t gfc_merge_initializers (gfc_typespec, gfc_expr *, locus *,
|
| /netbsd-src/external/gpl3/gcc/dist/gcc/fortran/ |
| H A D | intrinsic.h | 24 extern gfc_expr gfc_bad_expr;
28 bool gfc_check_a_ikind (gfc_expr *, gfc_expr *);
29 bool gfc_check_a_xkind (gfc_expr *, gfc_expr *);
30 bool gfc_check_a_p (gfc_expr *, gfc_expr *);
31 bool gfc_check_x_yd (gfc_expr *, gfc_expr *);
33 bool gfc_check_abs (gfc_expr *);
34 bool gfc_check_access_func (gfc_expr *, gfc_expr *);
35 bool gfc_check_achar (gfc_expr *, gfc_expr *);
36 bool gfc_check_all_any (gfc_expr *, gfc_expr *);
37 bool gfc_check_allocated (gfc_expr *);
[all …]
|
| H A D | arith.h | 33 arith gfc_range_check (gfc_expr *);
35 int gfc_compare_expr (gfc_expr *, gfc_expr *, gfc_intrinsic_op);
36 int gfc_compare_string (gfc_expr *, gfc_expr *);
37 int gfc_compare_with_Cstring (gfc_expr *, const char *, bool);
41 gfc_expr *gfc_parentheses (gfc_expr * op);
42 gfc_expr *gfc_uplus (gfc_expr * op);
43 gfc_expr *gfc_uminus (gfc_expr * op);
44 gfc_expr *gfc_add (gfc_expr *, gfc_expr *);
45 gfc_expr *gfc_subtract (gfc_expr *, gfc_expr *);
46 gfc_expr *gfc_multiply (gfc_expr *, gfc_expr *);
[all …]
|
| H A D | iresolve.cc | 82 check_charlen_present (gfc_expr *source) in check_charlen_present()
109 resolve_mask_arg (gfc_expr *mask) in resolve_mask_arg()
144 resolve_bound (gfc_expr *f, gfc_expr *array, gfc_expr *dim, gfc_expr *kind, in resolve_bound()
169 resolve_transformational (const char *name, gfc_expr *f, gfc_expr *array, in resolve_transformational()
170 gfc_expr *dim, gfc_expr *mask) in resolve_transformational()
206 gfc_resolve_abs (gfc_expr *f, gfc_expr *a) in gfc_resolve_abs()
219 gfc_resolve_access (gfc_expr *f, gfc_expr *name ATTRIBUTE_UNUSED, in gfc_resolve_access()
220 gfc_expr *mode ATTRIBUTE_UNUSED) in gfc_resolve_access()
229 gfc_resolve_adjustl (gfc_expr *f, gfc_expr *string) in gfc_resolve_adjustl()
241 gfc_resolve_adjustr (gfc_expr *f, gfc_expr *string) in gfc_resolve_adjustr()
[all …]
|
| H A D | gfortran.h | 1102 struct gfc_expr *length;
1143 struct gfc_expr *lower[GFC_MAX_DIMENSIONS], *upper[GFC_MAX_DIMENSIONS];
1173 struct gfc_expr *initializer;
1176 struct gfc_expr *kind_expr;
1216 struct gfc_expr *expr;
1243 struct gfc_expr *expr;
1341 struct gfc_expr *expr;
1505 struct gfc_expr *if_expr;
1506 struct gfc_expr *final_expr;
1507 struct gfc_expr *num_threads;
[all …]
|
| H A D | simplify.cc | 35 static int min_max_choose (gfc_expr *, gfc_expr *, int, bool back_val = false);
37 gfc_expr gfc_bad_expr;
39 static gfc_expr *simplify_size (gfc_expr *, gfc_expr *, int);
77 static gfc_expr *
78 range_check (gfc_expr *result, const char *name) in range_check()
120 get_kind (bt type, gfc_expr *k, const char *name, int default_kind) in get_kind()
220 is_constant_array_expr (gfc_expr *e) in is_constant_array_expr()
277 gfc_is_size_zero_array (gfc_expr *array) in gfc_is_size_zero_array()
304 init_result_expr (gfc_expr *e, int init, gfc_expr *array) in init_result_expr()
355 gfc_expr *len = gfc_simplify_len (array, NULL); in init_result_expr()
[all …]
|
| H A D | arith.cc | 418 gfc_arith_not (gfc_expr *op1, gfc_expr **resultp) in gfc_arith_not()
420 gfc_expr *result; in gfc_arith_not()
431 gfc_arith_and (gfc_expr *op1, gfc_expr *op2, gfc_expr **resultp) in gfc_arith_and()
433 gfc_expr *result; in gfc_arith_and()
445 gfc_arith_or (gfc_expr *op1, gfc_expr *op2, gfc_expr **resultp) in gfc_arith_or()
447 gfc_expr *result; in gfc_arith_or()
459 gfc_arith_eqv (gfc_expr *op1, gfc_expr *op2, gfc_expr **resultp) in gfc_arith_eqv()
461 gfc_expr *result; in gfc_arith_eqv()
473 gfc_arith_neqv (gfc_expr *op1, gfc_expr *op2, gfc_expr **resultp) in gfc_arith_neqv()
475 gfc_expr *result; in gfc_arith_neqv()
[all …]
|
| H A D | check.cc | 42 reset_boz (gfc_expr *x) in reset_boz()
83 illegal_boz_arg (gfc_expr *x) in illegal_boz_arg()
99 boz_args_check(gfc_expr *i, gfc_expr *j) in boz_args_check()
119 is_boz_constant (gfc_expr *a) in is_boz_constant()
209 bin2real (gfc_expr *x, int kind) in bin2real()
297 gfc_boz2real (gfc_expr *x, int kind) in gfc_boz2real()
387 gfc_boz2int (gfc_expr *x, int kind) in gfc_boz2int()
472 scalar_check (gfc_expr *e, int n) in scalar_check()
488 type_check (gfc_expr *e, int n, bt type) in type_check()
504 numeric_check (gfc_expr *e, int n) in numeric_check()
[all …]
|
| H A D | dependency.h | 34 gfc_expr *gfc_get_noncopying_intrinsic_argument (gfc_expr *);
35 int gfc_check_fncall_dependency (gfc_expr *, sym_intent, gfc_symbol *,
37 int gfc_check_dependency (gfc_expr *, gfc_expr *, bool);
38 int gfc_expr_is_one (gfc_expr *, int);
42 int gfc_are_equivalenced_arrays (gfc_expr *, gfc_expr *);
44 gfc_expr * gfc_discard_nops (gfc_expr *);
|
| H A D | trans-array.h | 23 bool gfc_array_allocate (gfc_se *, gfc_expr *, tree, tree, tree, tree,
24 tree, tree *, gfc_expr *, tree, bool);
42 tree gfc_tree_array_size (stmtblock_t *, tree, gfc_expr *, tree);
57 tree gfc_bcast_alloc_comp (gfc_symbol *, gfc_expr *, int, tree,
70 tree gfc_alloc_allocatable_for_assignment (gfc_loopinfo*, gfc_expr*, gfc_expr*);
80 gfc_symbol *gfc_get_proc_ifc_for_expr (gfc_expr *);
82 gfc_intrinsic_sym *gfc_get_intrinsic_for_expr (gfc_expr *);
84 gfc_ss *gfc_walk_expr (gfc_expr *);
86 gfc_ss *gfc_walk_subexpr (gfc_ss *, gfc_expr *);
88 gfc_ss *gfc_walk_array_ref (gfc_ss *, gfc_expr *, gfc_ref * ref);
[all …]
|
| H A D | matchexp.cc | 128 gfc_expr *
129 gfc_get_parentheses (gfc_expr *e) in gfc_get_parentheses()
131 gfc_expr *e2; in gfc_get_parentheses()
144 match_primary (gfc_expr **result) in match_primary()
147 gfc_expr *e; in match_primary()
197 match_level_1 (gfc_expr **result) in match_level_1()
200 gfc_expr *e, *f; in match_level_1()
244 static match match_ext_mult_operand (gfc_expr **result);
245 static match match_ext_add_operand (gfc_expr **result);
259 match_mult_operand (gfc_expr **result) in match_mult_operand()
[all …]
|
| H A D | trans.h | 260 gfc_expr *expr;
429 gfc_expr * gfc_find_and_cut_at_last_class_ref (gfc_expr *, bool is_mold = false,
445 void gfc_reset_vptr (stmtblock_t *, gfc_expr *);
446 void gfc_reset_len (stmtblock_t *, gfc_expr *);
447 tree gfc_get_class_from_gfc_expr (gfc_expr *);
451 bool gfc_add_finalizer_call (stmtblock_t *, gfc_expr *);
454 void gfc_conv_derived_to_class (gfc_se *, gfc_expr *, gfc_typespec, tree, bool,
456 void gfc_conv_class_to_class (gfc_se *, gfc_expr *, gfc_typespec, bool, bool,
499 void gfc_conv_expr (gfc_se * se, gfc_expr * expr);
500 void gfc_conv_expr_val (gfc_se * se, gfc_expr * expr);
[all …]
|
| H A D | target-memory.h | 25 bool gfc_convert_boz (gfc_expr *, gfc_typespec *);
27 bool gfc_element_size (gfc_expr *, size_t *);
28 bool gfc_target_expr_size (gfc_expr *, size_t *);
33 unsigned HOST_WIDE_INT gfc_target_encode_expr (gfc_expr *, unsigned char *,
42 size_t gfc_interpret_character (unsigned char *, size_t, gfc_expr *);
43 int gfc_interpret_derived (unsigned char *, size_t, gfc_expr *);
44 size_t gfc_target_interpret_expr (unsigned char *, size_t, gfc_expr *, bool);
47 size_t gfc_merge_initializers (gfc_typespec, gfc_expr *, locus *,
|
| H A D | frontend-passes.cc | 32 static void strip_function_call (gfc_expr *);
35 static bool optimize_op (gfc_expr *);
36 static bool optimize_comparison (gfc_expr *, gfc_intrinsic_op);
37 static bool optimize_trim (gfc_expr *);
38 static bool optimize_lexical_comparison (gfc_expr *);
39 static void optimize_minmaxloc (gfc_expr **);
40 static bool is_empty_string (gfc_expr *e);
42 static int do_intent (gfc_expr **);
43 static int do_subscript (gfc_expr **);
45 static int callback_reduction (gfc_expr **, int *, void *);
[all …]
|