| /netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/ |
| H A D | trans-stmt.h | 23 tree gfc_trans_code (gfc_code *);
26 tree gfc_trans_code_cond (gfc_code *, tree);
31 tree gfc_trans_assign (gfc_code *);
32 tree gfc_trans_pointer_assign (gfc_code *);
33 tree gfc_trans_init_assign (gfc_code *);
34 tree gfc_trans_class_init_assign (gfc_code *);
37 tree gfc_trans_cycle (gfc_code *);
38 tree gfc_trans_critical (gfc_code *);
39 tree gfc_trans_exit (gfc_code *);
40 tree gfc_trans_label_assign (gfc_code *);
[all …]
|
| H A D | intrinsic.h | 463 void gfc_resolve_atomic_def (gfc_code *);
464 void gfc_resolve_atomic_ref (gfc_code *);
488 void gfc_resolve_dtime_sub (gfc_code *);
491 void gfc_resolve_etime_sub (gfc_code *);
492 void gfc_resolve_event_query (gfc_code *);
589 void gfc_resolve_second_sub (gfc_code *);
606 void gfc_resolve_srand (gfc_code *);
633 void gfc_resolve_alarm_sub (gfc_code *);
634 void gfc_resolve_chdir_sub (gfc_code *);
635 void gfc_resolve_chmod_sub (gfc_code *);
[all …]
|
| H A D | st.c | 31 gfc_code new_st;
47 gfc_code *
50 gfc_code *c; in gfc_get_code()
52 c = XCNEW (gfc_code); in gfc_get_code()
62 gfc_code *
63 gfc_append_code (gfc_code *tail, gfc_code *new_code) in gfc_append_code()
83 gfc_free_statement (gfc_code *p) in gfc_free_statement()
288 gfc_free_statements (gfc_code *p) in gfc_free_statements()
290 gfc_code *q; in gfc_free_statements()
|
| H A D | frontend-passes.c | 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;
[all …]
|
| H A D | gfortran.h | 1437 struct gfc_code *combiner;
1438 struct gfc_code *initializer;
1822 struct gfc_code *code;
2121 void (*s1)(struct gfc_code *);
2648 typedef struct gfc_code struct
2652 struct gfc_code *block, *next; argument
2694 struct gfc_code *which_construct;
2710 gfc_code; argument
3247 match gfc_intrinsic_sub_interface (gfc_code *, int);
3276 void gfc_resolve_omp_directive (gfc_code *, gfc_namespace *);
[all …]
|
| H A D | iresolve.c | 573 gfc_resolve_chdir_sub (gfc_code *c) in gfc_resolve_chdir_sub()
599 gfc_resolve_chmod_sub (gfc_code *c) in gfc_resolve_chmod_sub()
2428 gfc_resolve_fe_runtime_error (gfc_code *c) in gfc_resolve_fe_runtime_error()
3214 gfc_resolve_alarm_sub (gfc_code *c) in gfc_resolve_alarm_sub()
3247 gfc_resolve_cpu_time (gfc_code *c) in gfc_resolve_cpu_time()
3287 gfc_resolve_atomic_def (gfc_code *c) in gfc_resolve_atomic_def()
3295 gfc_resolve_atomic_ref (gfc_code *c) in gfc_resolve_atomic_ref()
3302 gfc_resolve_event_query (gfc_code *c) in gfc_resolve_event_query()
3309 gfc_resolve_mvbits (gfc_code *c) in gfc_resolve_mvbits()
3345 gfc_resolve_random_init (gfc_code *c) in gfc_resolve_random_init()
[all …]
|
| H A D | parse.h | 45 struct gfc_code *construct;
46 struct gfc_code *head, *tail;
|
| H A D | trans-stmt.c | 60 static void gfc_trans_where_2 (gfc_code *, tree, bool,
66 gfc_trans_label_here (gfc_code * code) in gfc_trans_label_here()
92 gfc_trans_label_assign (gfc_code * code) in gfc_trans_label_assign()
137 gfc_trans_goto (gfc_code * code) in gfc_trans_goto()
175 gfc_trans_entry (gfc_code * code) in gfc_trans_entry()
357 get_proc_ifc_for_call (gfc_code *c) in get_proc_ifc_for_call()
376 gfc_trans_call (gfc_code * code, bool dependency_check, in gfc_trans_call()
415 gfc_code *select_code; in gfc_trans_call()
530 gfc_trans_return (gfc_code * code) in gfc_trans_return()
579 gfc_trans_pause (gfc_code * code) in gfc_trans_pause()
[all …]
|
| H A D | trans-io.c | 1042 gfc_trans_open (gfc_code * code) in gfc_trans_open()
1162 gfc_trans_close (gfc_code * code) in gfc_trans_close()
1215 build_filepos (tree function, gfc_code * code) in build_filepos()
1267 gfc_trans_backspace (gfc_code * code) in gfc_trans_backspace()
1276 gfc_trans_endfile (gfc_code * code) in gfc_trans_endfile()
1285 gfc_trans_rewind (gfc_code * code) in gfc_trans_rewind()
1294 gfc_trans_flush (gfc_code * code) in gfc_trans_flush()
1303 gfc_trans_inquire (gfc_code * code) in gfc_trans_inquire()
1500 gfc_trans_wait (gfc_code * code) in gfc_trans_wait()
1826 build_dt (tree function, gfc_code * code) in build_dt()
[all …]
|
| H A D | gfc-internals.texi | 289 * gfc_code:: Representation of Executable Statements.
294 @c gfc_code
297 @node gfc_code
298 @section @code{gfc_code}
300 @tindex @code{gfc_code}
301 @tindex @code{struct gfc_code}
304 nested chain of @code{gfc_code} structures. The type of statement is
319 @code{gfc_code} structure whose @code{next} member starts the chain of
360 Conditionals are represented by @code{gfc_code} structures with their
362 member must point to another @code{gfc_code} node that is the header of the
[all …]
|
| H A D | trans-openmp.c | 3596 gfc_trans_omp_code (gfc_code *code, bool force_empty) in gfc_trans_omp_code()
3621 gfc_trans_oacc_construct (gfc_code *code) in gfc_trans_oacc_construct()
3660 gfc_trans_oacc_executable_directive (gfc_code *code) in gfc_trans_oacc_executable_directive()
3694 gfc_trans_oacc_wait_directive (gfc_code *code) in gfc_trans_oacc_wait_directive()
3731 static tree gfc_trans_omp_sections (gfc_code *, gfc_omp_clauses *);
3732 static tree gfc_trans_omp_workshare (gfc_code *, gfc_omp_clauses *);
3735 gfc_trans_omp_atomic (gfc_code *code) in gfc_trans_omp_atomic()
3737 gfc_code *atomic_code = code; in gfc_trans_omp_atomic()
4020 gfc_trans_omp_cancel (gfc_code *code) in gfc_trans_omp_cancel()
4060 gfc_trans_omp_cancellation_point (gfc_code *code) in gfc_trans_omp_cancellation_point()
[all …]
|
| H A D | openmp.c | 3865 oacc_is_loop (gfc_code *code) in oacc_is_loop()
4028 static gfc_code *
4032 gfc_code *copy; in resolve_omp_udr_clause()
4084 resolve_omp_clauses (gfc_code *code, gfc_omp_clauses *omp_clauses,
5122 resolve_omp_atomic (gfc_code *code) in resolve_omp_atomic()
5124 gfc_code *atomic_code = code; in resolve_omp_atomic()
5528 gfc_code *code;
5534 static gfc_code *omp_current_do_code;
5538 gfc_resolve_omp_do_blocks (gfc_code *code, gfc_namespace *ns) in gfc_resolve_omp_do_blocks()
5543 gfc_code *c; in gfc_resolve_omp_do_blocks()
[all …]
|
| H A D | parse.c | 1664 static gfc_code *
1665 new_level (gfc_code *q) in new_level()
1667 gfc_code *p; in new_level()
1680 static gfc_code *
1683 gfc_code *p; in add_statement()
1685 p = XCNEW (gfc_code); in add_statement()
3979 gfc_code *top, *d; in parse_where_block()
4056 gfc_code *top, *d; in parse_forall_block()
4118 gfc_code *top, *d; in parse_if_block()
4204 gfc_code *cp; in parse_select_block()
[all …]
|
| H A D | io.c | 3266 check_io_constraints (io_kind k, gfc_dt *dt, gfc_code *io_code,
3272 gfc_resolve_dt (gfc_code *dt_code, gfc_dt *dt, locus *loc) in gfc_resolve_dt()
3301 gfc_code *io_code = NULL; in gfc_resolve_dt()
3539 static match match_io_element (io_kind, gfc_code **);
3542 match_io_iterator (io_kind k, gfc_code **result) in match_io_iterator()
3544 gfc_code *head, *tail, *new_code; in match_io_iterator()
3629 match_io_element (io_kind k, gfc_code **cpp) in match_io_element()
3632 gfc_code *cp; in match_io_element()
3705 match_io_list (io_kind k, gfc_code **head_p) in match_io_list()
3707 gfc_code *head, *tail, *new_code; in match_io_list()
[all …]
|
| /netbsd-src/external/gpl3/gcc/dist/gcc/fortran/ |
| H A D | trans-stmt.h | 23 tree gfc_trans_code (gfc_code *);
26 tree gfc_trans_code_cond (gfc_code *, tree);
31 tree gfc_trans_assign (gfc_code *);
32 tree gfc_trans_pointer_assign (gfc_code *);
33 tree gfc_trans_init_assign (gfc_code *);
34 tree gfc_trans_class_init_assign (gfc_code *);
37 tree gfc_trans_cycle (gfc_code *);
38 tree gfc_trans_critical (gfc_code *);
39 tree gfc_trans_exit (gfc_code *);
40 tree gfc_trans_label_assign (gfc_code *);
[all …]
|
| H A D | intrinsic.h | 461 void gfc_resolve_atomic_def (gfc_code *);
462 void gfc_resolve_atomic_ref (gfc_code *);
486 void gfc_resolve_dtime_sub (gfc_code *);
489 void gfc_resolve_etime_sub (gfc_code *);
490 void gfc_resolve_event_query (gfc_code *);
587 void gfc_resolve_second_sub (gfc_code *);
604 void gfc_resolve_srand (gfc_code *);
631 void gfc_resolve_alarm_sub (gfc_code *);
632 void gfc_resolve_chdir_sub (gfc_code *);
633 void gfc_resolve_chmod_sub (gfc_code *);
[all …]
|
| H A D | st.cc | 31 gfc_code new_st;
47 gfc_code *
50 gfc_code *c; in gfc_get_code()
52 c = XCNEW (gfc_code); in gfc_get_code()
62 gfc_code *
63 gfc_append_code (gfc_code *tail, gfc_code *new_code) in gfc_append_code()
83 gfc_free_statement (gfc_code *p) in gfc_free_statement()
308 gfc_free_statements (gfc_code *p) in gfc_free_statements()
310 gfc_code *q; in gfc_free_statements()
|
| H A D | frontend-passes.cc | 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;
[all …]
|
| H A D | iresolve.cc | 582 gfc_resolve_chdir_sub (gfc_code *c) in gfc_resolve_chdir_sub()
608 gfc_resolve_chmod_sub (gfc_code *c) in gfc_resolve_chmod_sub()
2456 gfc_resolve_fe_runtime_error (gfc_code *c) in gfc_resolve_fe_runtime_error()
3250 gfc_resolve_alarm_sub (gfc_code *c) in gfc_resolve_alarm_sub()
3283 gfc_resolve_cpu_time (gfc_code *c) in gfc_resolve_cpu_time()
3323 gfc_resolve_atomic_def (gfc_code *c) in gfc_resolve_atomic_def()
3331 gfc_resolve_atomic_ref (gfc_code *c) in gfc_resolve_atomic_ref()
3338 gfc_resolve_event_query (gfc_code *c) in gfc_resolve_event_query()
3345 gfc_resolve_mvbits (gfc_code *c) in gfc_resolve_mvbits()
3367 gfc_resolve_random_init (gfc_code *c) in gfc_resolve_random_init()
[all …]
|
| H A D | gfortran.h | 1688 struct gfc_code *combiner;
1689 struct gfc_code *initializer;
2077 struct gfc_code *code;
2410 void (*s1)(struct gfc_code *);
2934 typedef struct gfc_code struct
2938 struct gfc_code *block, *next; argument
2980 struct gfc_code *which_construct;
2995 gfc_code; typedef
3535 match gfc_intrinsic_sub_interface (gfc_code *, int);
3568 void gfc_resolve_omp_directive (gfc_code *, gfc_namespace *);
[all …]
|
| H A D | parse.h | 45 struct gfc_code *construct;
46 struct gfc_code *head, *tail;
|
| H A D | trans-stmt.cc | 60 static void gfc_trans_where_2 (gfc_code *, tree, bool,
66 gfc_trans_label_here (gfc_code * code) in gfc_trans_label_here()
92 gfc_trans_label_assign (gfc_code * code) in gfc_trans_label_assign()
137 gfc_trans_goto (gfc_code * code) in gfc_trans_goto()
175 gfc_trans_entry (gfc_code * code) in gfc_trans_entry()
363 get_intrinsic_for_code (gfc_code *code) in get_intrinsic_for_code()
381 gfc_trans_call (gfc_code * code, bool dependency_check, in gfc_trans_call()
433 gfc_code *select_code; in gfc_trans_call()
556 gfc_trans_return (gfc_code * code) in gfc_trans_return()
605 gfc_trans_pause (gfc_code * code) in gfc_trans_pause()
[all …]
|
| H A D | gfc-internals.texi | 289 * gfc_code:: Representation of Executable Statements.
294 @c gfc_code
297 @node gfc_code
298 @section @code{gfc_code}
300 @tindex @code{gfc_code}
301 @tindex @code{struct gfc_code}
304 nested chain of @code{gfc_code} structures. The type of statement is
319 @code{gfc_code} structure whose @code{next} member starts the chain of
360 Conditionals are represented by @code{gfc_code} structures with their
362 member must point to another @code{gfc_code} node that is the header of the
[all …]
|
| H A D | trans-io.cc | 1068 gfc_trans_open (gfc_code * code) in gfc_trans_open()
1188 gfc_trans_close (gfc_code * code) in gfc_trans_close()
1241 build_filepos (tree function, gfc_code * code) in build_filepos()
1293 gfc_trans_backspace (gfc_code * code) in gfc_trans_backspace()
1302 gfc_trans_endfile (gfc_code * code) in gfc_trans_endfile()
1311 gfc_trans_rewind (gfc_code * code) in gfc_trans_rewind()
1320 gfc_trans_flush (gfc_code * code) in gfc_trans_flush()
1329 gfc_trans_inquire (gfc_code * code) in gfc_trans_inquire()
1526 gfc_trans_wait (gfc_code * code) in gfc_trans_wait()
1851 build_dt (tree function, gfc_code * code) in build_dt()
[all …]
|
| H A D | trans-openmp.cc | 4394 gfc_trans_omp_code (gfc_code *code, bool force_empty) in gfc_trans_omp_code()
4419 gfc_trans_oacc_construct (gfc_code *code) in gfc_trans_oacc_construct()
4460 gfc_trans_oacc_executable_directive (gfc_code *code) in gfc_trans_oacc_executable_directive()
4494 gfc_trans_oacc_wait_directive (gfc_code *code) in gfc_trans_oacc_wait_directive()
4531 static tree gfc_trans_omp_sections (gfc_code *, gfc_omp_clauses *);
4532 static tree gfc_trans_omp_workshare (gfc_code *, gfc_omp_clauses *);
4535 gfc_trans_omp_atomic (gfc_code *code) in gfc_trans_omp_atomic()
4537 gfc_code *atomic_code = code->block; in gfc_trans_omp_atomic()
4949 gfc_trans_omp_cancel (gfc_code *code) in gfc_trans_omp_cancel()
4994 gfc_trans_omp_cancellation_point (gfc_code *code) in gfc_trans_omp_cancellation_point()
[all …]
|