Projet_SETI_RISC-V/riscv-gnu-toolchain/build-gcc-newlib-stage1/gcc/gtype-fortran.h

1414 lines
34 KiB
C

/* Type information for fortran.
Copyright (C) 2004-2022 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 3, or (at your option) any later
version.
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING3. If not see
<http://www.gnu.org/licenses/>. */
/* This file is machine generated. Do not edit. */
void
gt_ggc_mx_lang_type (void *x_p)
{
struct lang_type * const x = (struct lang_type *)x_p;
if (ggc_test_and_set_mark (x))
{
{
size_t i0;
size_t l0 = (size_t)(GFC_MAX_DIMENSIONS);
for (i0 = 0; i0 != l0; i0++) {
gt_ggc_m_9tree_node ((*x).lbound[i0]);
}
}
{
size_t i1;
size_t l1 = (size_t)(GFC_MAX_DIMENSIONS);
for (i1 = 0; i1 != l1; i1++) {
gt_ggc_m_9tree_node ((*x).ubound[i1]);
}
}
{
size_t i2;
size_t l2 = (size_t)(GFC_MAX_DIMENSIONS);
for (i2 = 0; i2 != l2; i2++) {
gt_ggc_m_9tree_node ((*x).stride[i2]);
}
}
gt_ggc_m_9tree_node ((*x).size);
gt_ggc_m_9tree_node ((*x).offset);
gt_ggc_m_9tree_node ((*x).dtype);
gt_ggc_m_9tree_node ((*x).dataptr_type);
{
size_t i3;
size_t l3 = (size_t)(2);
for (i3 = 0; i3 != l3; i3++) {
gt_ggc_m_9tree_node ((*x).base_decl[i3]);
}
}
gt_ggc_m_9tree_node ((*x).nonrestricted_type);
gt_ggc_m_9tree_node ((*x).caf_token);
gt_ggc_m_9tree_node ((*x).caf_offset);
}
}
void
gt_ggc_mx_lang_decl (void *x_p)
{
struct lang_decl * const x = (struct lang_decl *)x_p;
if (ggc_test_and_set_mark (x))
{
gt_ggc_m_9tree_node ((*x).saved_descriptor);
gt_ggc_m_9tree_node ((*x).stringlen);
gt_ggc_m_9tree_node ((*x).addr);
gt_ggc_m_9tree_node ((*x).token);
gt_ggc_m_9tree_node ((*x).caf_offset);
}
}
void
gt_ggc_mx_module_htab_entry (void *x_p)
{
struct module_htab_entry * const x = (struct module_htab_entry *)x_p;
if (ggc_test_and_set_mark (x))
{
gt_ggc_m_S ((*x).name);
gt_ggc_m_9tree_node ((*x).namespace_decl);
gt_ggc_m_30hash_table_module_decl_hasher_ ((*x).decls);
}
}
void
gt_ggc_mx (struct module_htab_entry& x_r ATTRIBUTE_UNUSED)
{
struct module_htab_entry * ATTRIBUTE_UNUSED x = &x_r;
gt_ggc_m_S ((*x).name);
gt_ggc_m_9tree_node ((*x).namespace_decl);
gt_ggc_m_30hash_table_module_decl_hasher_ ((*x).decls);
}
void
gt_ggc_mx (struct module_htab_entry *& x)
{
if (x)
gt_ggc_mx_module_htab_entry ((void *) x);
}
void
gt_ggc_mx_hash_table_module_decl_hasher_ (void *x_p)
{
hash_table<module_decl_hasher> * const x = (hash_table<module_decl_hasher> *)x_p;
if (ggc_test_and_set_mark (x))
{
gt_ggc_mx (x);
}
}
void
gt_ggc_mx (struct module_decl_hasher& x_r ATTRIBUTE_UNUSED)
{
struct module_decl_hasher * ATTRIBUTE_UNUSED x = &x_r;
}
void
gt_pch_nx_lang_type (void *x_p)
{
struct lang_type * const x = (struct lang_type *)x_p;
if (gt_pch_note_object (x, x, gt_pch_p_9lang_type))
{
{
size_t i0;
size_t l0 = (size_t)(GFC_MAX_DIMENSIONS);
for (i0 = 0; i0 != l0; i0++) {
gt_pch_n_9tree_node ((*x).lbound[i0]);
}
}
{
size_t i1;
size_t l1 = (size_t)(GFC_MAX_DIMENSIONS);
for (i1 = 0; i1 != l1; i1++) {
gt_pch_n_9tree_node ((*x).ubound[i1]);
}
}
{
size_t i2;
size_t l2 = (size_t)(GFC_MAX_DIMENSIONS);
for (i2 = 0; i2 != l2; i2++) {
gt_pch_n_9tree_node ((*x).stride[i2]);
}
}
gt_pch_n_9tree_node ((*x).size);
gt_pch_n_9tree_node ((*x).offset);
gt_pch_n_9tree_node ((*x).dtype);
gt_pch_n_9tree_node ((*x).dataptr_type);
{
size_t i3;
size_t l3 = (size_t)(2);
for (i3 = 0; i3 != l3; i3++) {
gt_pch_n_9tree_node ((*x).base_decl[i3]);
}
}
gt_pch_n_9tree_node ((*x).nonrestricted_type);
gt_pch_n_9tree_node ((*x).caf_token);
gt_pch_n_9tree_node ((*x).caf_offset);
}
}
void
gt_pch_nx_lang_decl (void *x_p)
{
struct lang_decl * const x = (struct lang_decl *)x_p;
if (gt_pch_note_object (x, x, gt_pch_p_9lang_decl))
{
gt_pch_n_9tree_node ((*x).saved_descriptor);
gt_pch_n_9tree_node ((*x).stringlen);
gt_pch_n_9tree_node ((*x).addr);
gt_pch_n_9tree_node ((*x).token);
gt_pch_n_9tree_node ((*x).caf_offset);
}
}
void
gt_pch_nx_module_htab_entry (void *x_p)
{
struct module_htab_entry * const x = (struct module_htab_entry *)x_p;
if (gt_pch_note_object (x, x, gt_pch_p_17module_htab_entry))
{
gt_pch_n_S ((*x).name);
gt_pch_n_9tree_node ((*x).namespace_decl);
gt_pch_n_30hash_table_module_decl_hasher_ ((*x).decls);
}
}
void
gt_pch_nx (struct module_htab_entry& x_r ATTRIBUTE_UNUSED)
{
struct module_htab_entry * ATTRIBUTE_UNUSED x = &x_r;
gt_pch_n_S ((*x).name);
gt_pch_n_9tree_node ((*x).namespace_decl);
gt_pch_n_30hash_table_module_decl_hasher_ ((*x).decls);
}
void
gt_pch_nx (struct module_htab_entry *& x)
{
if (x)
gt_pch_nx_module_htab_entry ((void *) x);
}
void
gt_pch_nx_hash_table_module_decl_hasher_ (void *x_p)
{
hash_table<module_decl_hasher> * const x = (hash_table<module_decl_hasher> *)x_p;
if (gt_pch_note_object (x, x, gt_pch_p_30hash_table_module_decl_hasher_))
{
gt_pch_nx (x);
}
}
void
gt_pch_nx (struct module_decl_hasher& x_r ATTRIBUTE_UNUSED)
{
struct module_decl_hasher * ATTRIBUTE_UNUSED x = &x_r;
}
void
gt_pch_p_9lang_type (ATTRIBUTE_UNUSED void *this_obj,
void *x_p,
ATTRIBUTE_UNUSED gt_pointer_operator op,
ATTRIBUTE_UNUSED void *cookie)
{
struct lang_type * x ATTRIBUTE_UNUSED = (struct lang_type *)x_p;
{
size_t i0;
size_t l0 = (size_t)(GFC_MAX_DIMENSIONS);
for (i0 = 0; i0 != l0; i0++) {
if ((void *)(x) == this_obj)
op (&((*x).lbound[i0]), NULL, cookie);
}
}
{
size_t i1;
size_t l1 = (size_t)(GFC_MAX_DIMENSIONS);
for (i1 = 0; i1 != l1; i1++) {
if ((void *)(x) == this_obj)
op (&((*x).ubound[i1]), NULL, cookie);
}
}
{
size_t i2;
size_t l2 = (size_t)(GFC_MAX_DIMENSIONS);
for (i2 = 0; i2 != l2; i2++) {
if ((void *)(x) == this_obj)
op (&((*x).stride[i2]), NULL, cookie);
}
}
if ((void *)(x) == this_obj)
op (&((*x).size), NULL, cookie);
if ((void *)(x) == this_obj)
op (&((*x).offset), NULL, cookie);
if ((void *)(x) == this_obj)
op (&((*x).dtype), NULL, cookie);
if ((void *)(x) == this_obj)
op (&((*x).dataptr_type), NULL, cookie);
{
size_t i3;
size_t l3 = (size_t)(2);
for (i3 = 0; i3 != l3; i3++) {
if ((void *)(x) == this_obj)
op (&((*x).base_decl[i3]), NULL, cookie);
}
}
if ((void *)(x) == this_obj)
op (&((*x).nonrestricted_type), NULL, cookie);
if ((void *)(x) == this_obj)
op (&((*x).caf_token), NULL, cookie);
if ((void *)(x) == this_obj)
op (&((*x).caf_offset), NULL, cookie);
}
void
gt_pch_p_9lang_decl (ATTRIBUTE_UNUSED void *this_obj,
void *x_p,
ATTRIBUTE_UNUSED gt_pointer_operator op,
ATTRIBUTE_UNUSED void *cookie)
{
struct lang_decl * x ATTRIBUTE_UNUSED = (struct lang_decl *)x_p;
if ((void *)(x) == this_obj)
op (&((*x).saved_descriptor), NULL, cookie);
if ((void *)(x) == this_obj)
op (&((*x).stringlen), NULL, cookie);
if ((void *)(x) == this_obj)
op (&((*x).addr), NULL, cookie);
if ((void *)(x) == this_obj)
op (&((*x).token), NULL, cookie);
if ((void *)(x) == this_obj)
op (&((*x).caf_offset), NULL, cookie);
}
void
gt_pch_p_17module_htab_entry (ATTRIBUTE_UNUSED void *this_obj,
void *x_p,
ATTRIBUTE_UNUSED gt_pointer_operator op,
ATTRIBUTE_UNUSED void *cookie)
{
struct module_htab_entry * x ATTRIBUTE_UNUSED = (struct module_htab_entry *)x_p;
if ((void *)(x) == this_obj)
op (&((*x).name), NULL, cookie);
if ((void *)(x) == this_obj)
op (&((*x).namespace_decl), NULL, cookie);
if ((void *)(x) == this_obj)
op (&((*x).decls), NULL, cookie);
}
void
gt_pch_nx (struct module_htab_entry* x ATTRIBUTE_UNUSED,
ATTRIBUTE_UNUSED gt_pointer_operator op,
ATTRIBUTE_UNUSED void *cookie)
{
op (&((*x).name), NULL, cookie);
op (&((*x).namespace_decl), NULL, cookie);
op (&((*x).decls), NULL, cookie);
}
void
gt_pch_p_30hash_table_module_decl_hasher_ (ATTRIBUTE_UNUSED void *this_obj,
void *x_p,
ATTRIBUTE_UNUSED gt_pointer_operator op,
ATTRIBUTE_UNUSED void *cookie)
{
struct hash_table<module_decl_hasher> * x ATTRIBUTE_UNUSED = (struct hash_table<module_decl_hasher> *)x_p;
if ((void *)(x) == this_obj)
gt_pch_nx (&((*x)), op, cookie);
}
void
gt_pch_nx (struct module_decl_hasher* x ATTRIBUTE_UNUSED,
ATTRIBUTE_UNUSED gt_pointer_operator op,
ATTRIBUTE_UNUSED void *cookie)
{
}
/* GC roots. */
EXPORTED_CONST struct ggc_root_tab gt_ggc_r_gtype_fortran_h[] = {
{
&gfc_rank_cst[0],
1 * (GFC_MAX_DIMENSIONS + 1),
sizeof (gfc_rank_cst[0]),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_caf_random_init,
1,
sizeof (gfor_fndecl_caf_random_init),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_random_init,
1,
sizeof (gfor_fndecl_random_init),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_ieee_procedure_exit,
1,
sizeof (gfor_fndecl_ieee_procedure_exit),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_ieee_procedure_entry,
1,
sizeof (gfor_fndecl_ieee_procedure_entry),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_sr_kind,
1,
sizeof (gfor_fndecl_sr_kind),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_si_kind,
1,
sizeof (gfor_fndecl_si_kind),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_sc_kind,
1,
sizeof (gfor_fndecl_sc_kind),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_is_contiguous0,
1,
sizeof (gfor_fndecl_is_contiguous0),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_kill_sub,
1,
sizeof (gfor_fndecl_kill_sub),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_kill,
1,
sizeof (gfor_fndecl_kill),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_iargc,
1,
sizeof (gfor_fndecl_iargc),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_convert_char4_to_char1,
1,
sizeof (gfor_fndecl_convert_char4_to_char1),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_convert_char1_to_char4,
1,
sizeof (gfor_fndecl_convert_char1_to_char4),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_select_string_char4,
1,
sizeof (gfor_fndecl_select_string_char4),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_adjustr_char4,
1,
sizeof (gfor_fndecl_adjustr_char4),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_adjustl_char4,
1,
sizeof (gfor_fndecl_adjustl_char4),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_string_minmax_char4,
1,
sizeof (gfor_fndecl_string_minmax_char4),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_string_trim_char4,
1,
sizeof (gfor_fndecl_string_trim_char4),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_string_verify_char4,
1,
sizeof (gfor_fndecl_string_verify_char4),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_string_scan_char4,
1,
sizeof (gfor_fndecl_string_scan_char4),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_string_index_char4,
1,
sizeof (gfor_fndecl_string_index_char4),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_string_len_trim_char4,
1,
sizeof (gfor_fndecl_string_len_trim_char4),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_concat_string_char4,
1,
sizeof (gfor_fndecl_concat_string_char4),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_compare_string_char4,
1,
sizeof (gfor_fndecl_compare_string_char4),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_select_string,
1,
sizeof (gfor_fndecl_select_string),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_adjustr,
1,
sizeof (gfor_fndecl_adjustr),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_adjustl,
1,
sizeof (gfor_fndecl_adjustl),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_string_minmax,
1,
sizeof (gfor_fndecl_string_minmax),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_string_trim,
1,
sizeof (gfor_fndecl_string_trim),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_string_verify,
1,
sizeof (gfor_fndecl_string_verify),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_string_scan,
1,
sizeof (gfor_fndecl_string_scan),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_string_index,
1,
sizeof (gfor_fndecl_string_index),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_string_len_trim,
1,
sizeof (gfor_fndecl_string_len_trim),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_concat_string,
1,
sizeof (gfor_fndecl_concat_string),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_compare_string,
1,
sizeof (gfor_fndecl_compare_string),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_zgemm,
1,
sizeof (gfor_fndecl_zgemm),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_cgemm,
1,
sizeof (gfor_fndecl_cgemm),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_dgemm,
1,
sizeof (gfor_fndecl_dgemm),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_sgemm,
1,
sizeof (gfor_fndecl_sgemm),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_math_ishftc16,
1,
sizeof (gfor_fndecl_math_ishftc16),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_math_ishftc8,
1,
sizeof (gfor_fndecl_math_ishftc8),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_math_ishftc4,
1,
sizeof (gfor_fndecl_math_ishftc4),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_math_powi[0][0].integer,
1 * (4) * (3),
sizeof (gfor_fndecl_math_powi[0][0]),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_math_powi[0][0].real,
1 * (4) * (3),
sizeof (gfor_fndecl_math_powi[0][0]),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_math_powi[0][0].cmplx,
1 * (4) * (3),
sizeof (gfor_fndecl_math_powi[0][0]),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_caf_is_present,
1,
sizeof (gfor_fndecl_caf_is_present),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_co_sum,
1,
sizeof (gfor_fndecl_co_sum),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_co_reduce,
1,
sizeof (gfor_fndecl_co_reduce),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_co_min,
1,
sizeof (gfor_fndecl_co_min),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_co_max,
1,
sizeof (gfor_fndecl_co_max),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_co_broadcast,
1,
sizeof (gfor_fndecl_co_broadcast),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_caf_team_number,
1,
sizeof (gfor_fndecl_caf_team_number),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_caf_sync_team,
1,
sizeof (gfor_fndecl_caf_sync_team),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_caf_get_team,
1,
sizeof (gfor_fndecl_caf_get_team),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_caf_end_team,
1,
sizeof (gfor_fndecl_caf_end_team),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_caf_change_team,
1,
sizeof (gfor_fndecl_caf_change_team),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_caf_form_team,
1,
sizeof (gfor_fndecl_caf_form_team),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_caf_stopped_images,
1,
sizeof (gfor_fndecl_caf_stopped_images),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_caf_image_status,
1,
sizeof (gfor_fndecl_caf_image_status),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_caf_failed_images,
1,
sizeof (gfor_fndecl_caf_failed_images),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_caf_fail_image,
1,
sizeof (gfor_fndecl_caf_fail_image),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_caf_event_query,
1,
sizeof (gfor_fndecl_caf_event_query),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_caf_event_wait,
1,
sizeof (gfor_fndecl_caf_event_wait),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_caf_event_post,
1,
sizeof (gfor_fndecl_caf_event_post),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_caf_unlock,
1,
sizeof (gfor_fndecl_caf_unlock),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_caf_lock,
1,
sizeof (gfor_fndecl_caf_lock),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_caf_atomic_op,
1,
sizeof (gfor_fndecl_caf_atomic_op),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_caf_atomic_cas,
1,
sizeof (gfor_fndecl_caf_atomic_cas),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_caf_atomic_ref,
1,
sizeof (gfor_fndecl_caf_atomic_ref),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_caf_atomic_def,
1,
sizeof (gfor_fndecl_caf_atomic_def),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_caf_error_stop_str,
1,
sizeof (gfor_fndecl_caf_error_stop_str),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_caf_error_stop,
1,
sizeof (gfor_fndecl_caf_error_stop),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_caf_stop_str,
1,
sizeof (gfor_fndecl_caf_stop_str),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_caf_stop_numeric,
1,
sizeof (gfor_fndecl_caf_stop_numeric),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_caf_sync_images,
1,
sizeof (gfor_fndecl_caf_sync_images),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_caf_sync_memory,
1,
sizeof (gfor_fndecl_caf_sync_memory),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_caf_sync_all,
1,
sizeof (gfor_fndecl_caf_sync_all),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_caf_sendget_by_ref,
1,
sizeof (gfor_fndecl_caf_sendget_by_ref),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_caf_send_by_ref,
1,
sizeof (gfor_fndecl_caf_send_by_ref),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_caf_get_by_ref,
1,
sizeof (gfor_fndecl_caf_get_by_ref),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_caf_sendget,
1,
sizeof (gfor_fndecl_caf_sendget),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_caf_send,
1,
sizeof (gfor_fndecl_caf_send),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_caf_get,
1,
sizeof (gfor_fndecl_caf_get),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_caf_deregister,
1,
sizeof (gfor_fndecl_caf_deregister),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_caf_register,
1,
sizeof (gfor_fndecl_caf_register),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_caf_num_images,
1,
sizeof (gfor_fndecl_caf_num_images),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_caf_this_image,
1,
sizeof (gfor_fndecl_caf_this_image),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_caf_finalize,
1,
sizeof (gfor_fndecl_caf_finalize),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_caf_init,
1,
sizeof (gfor_fndecl_caf_init),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_system_clock8,
1,
sizeof (gfor_fndecl_system_clock8),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_system_clock4,
1,
sizeof (gfor_fndecl_system_clock4),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_associated,
1,
sizeof (gfor_fndecl_associated),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_in_unpack,
1,
sizeof (gfor_fndecl_in_unpack),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_in_pack,
1,
sizeof (gfor_fndecl_in_pack),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_fdate,
1,
sizeof (gfor_fndecl_fdate),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_ctime,
1,
sizeof (gfor_fndecl_ctime),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_ttynam,
1,
sizeof (gfor_fndecl_ttynam),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_set_options,
1,
sizeof (gfor_fndecl_set_options),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_set_fpe,
1,
sizeof (gfor_fndecl_set_fpe),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_generate_error,
1,
sizeof (gfor_fndecl_generate_error),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_os_error_at,
1,
sizeof (gfor_fndecl_os_error_at),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_runtime_warning_at,
1,
sizeof (gfor_fndecl_runtime_warning_at),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_runtime_error_at,
1,
sizeof (gfor_fndecl_runtime_error_at),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_runtime_error,
1,
sizeof (gfor_fndecl_runtime_error),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_error_stop_string,
1,
sizeof (gfor_fndecl_error_stop_string),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_error_stop_numeric,
1,
sizeof (gfor_fndecl_error_stop_numeric),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_stop_string,
1,
sizeof (gfor_fndecl_stop_string),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_stop_numeric,
1,
sizeof (gfor_fndecl_stop_numeric),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_pause_string,
1,
sizeof (gfor_fndecl_pause_string),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfor_fndecl_pause_numeric,
1,
sizeof (gfor_fndecl_pause_numeric),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfc_static_ctors,
1,
sizeof (gfc_static_ctors),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfc_charlen_type_node,
1,
sizeof (gfc_charlen_type_node),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&logical_false_node,
1,
sizeof (logical_false_node),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&logical_true_node,
1,
sizeof (logical_true_node),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&logical_type_node,
1,
sizeof (logical_type_node),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfc_complex_float128_type_node,
1,
sizeof (gfc_complex_float128_type_node),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfc_float128_type_node,
1,
sizeof (gfc_float128_type_node),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&pchar_type_node,
1,
sizeof (pchar_type_node),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&prvoid_type_node,
1,
sizeof (prvoid_type_node),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&pvoid_type_node,
1,
sizeof (pvoid_type_node),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&ppvoid_type_node,
1,
sizeof (ppvoid_type_node),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfc_character1_type_node,
1,
sizeof (gfc_character1_type_node),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfc_array_range_type,
1,
sizeof (gfc_array_range_type),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
{
&gfc_array_index_type,
1,
sizeof (gfc_array_index_type),
&gt_ggc_mx_tree_node,
&gt_pch_nx_tree_node
},
LAST_GGC_ROOT_TAB
};
extern const struct ggc_root_tab gt_ggc_r_gt_coverage_h[];
extern const struct ggc_root_tab gt_ggc_r_gt_symtab_thunks_h[];
extern const struct ggc_root_tab gt_ggc_r_gt_caller_save_h[];
extern const struct ggc_root_tab gt_ggc_r_gt_alias_h[];
extern const struct ggc_root_tab gt_ggc_r_gt_cselib_h[];
extern const struct ggc_root_tab gt_ggc_r_gt_cgraph_h[];
extern const struct ggc_root_tab gt_ggc_r_gt_ipa_prop_h[];
extern const struct ggc_root_tab gt_ggc_r_gt_ipa_sra_h[];
extern const struct ggc_root_tab gt_ggc_r_gt_dbxout_h[];
extern const struct ggc_root_tab gt_ggc_r_gt_ipa_modref_h[];
extern const struct ggc_root_tab gt_ggc_r_gt_dwarf2asm_h[];
extern const struct ggc_root_tab gt_ggc_r_gt_dwarf2cfi_h[];
extern const struct ggc_root_tab gt_ggc_r_gt_dwarf2ctf_h[];
extern const struct ggc_root_tab gt_ggc_r_gt_dwarf2out_h[];
extern const struct ggc_root_tab gt_ggc_r_gt_ctfout_h[];
extern const struct ggc_root_tab gt_ggc_r_gt_btfout_h[];
extern const struct ggc_root_tab gt_ggc_r_gt_tree_vect_generic_h[];
extern const struct ggc_root_tab gt_ggc_r_gt_dojump_h[];
extern const struct ggc_root_tab gt_ggc_r_gt_emit_rtl_h[];
extern const struct ggc_root_tab gt_ggc_r_gt_explow_h[];
extern const struct ggc_root_tab gt_ggc_r_gt_function_h[];
extern const struct ggc_root_tab gt_ggc_r_gt_except_h[];
extern const struct ggc_root_tab gt_ggc_r_gt_ggc_tests_h[];
extern const struct ggc_root_tab gt_ggc_r_gt_gcse_h[];
extern const struct ggc_root_tab gt_ggc_r_gt_godump_h[];
extern const struct ggc_root_tab gt_ggc_r_gt_optabs_libfuncs_h[];
extern const struct ggc_root_tab gt_ggc_r_gt_cfgrtl_h[];
extern const struct ggc_root_tab gt_ggc_r_gt_stor_layout_h[];
extern const struct ggc_root_tab gt_ggc_r_gt_stringpool_h[];
extern const struct ggc_root_tab gt_ggc_r_gt_tree_h[];
extern const struct ggc_root_tab gt_ggc_r_gt_varasm_h[];
extern const struct ggc_root_tab gt_ggc_r_gt_tree_ssa_address_h[];
extern const struct ggc_root_tab gt_ggc_r_gt_tree_ssa_loop_ivopts_h[];
extern const struct ggc_root_tab gt_ggc_r_gt_gimple_expr_h[];
extern const struct ggc_root_tab gt_ggc_r_gt_tree_scalar_evolution_h[];
extern const struct ggc_root_tab gt_ggc_r_gt_tree_profile_h[];
extern const struct ggc_root_tab gt_ggc_r_gt_tree_nested_h[];
extern const struct ggc_root_tab gt_ggc_r_gt_omp_general_h[];
extern const struct ggc_root_tab gt_ggc_r_gt_omp_low_h[];
extern const struct ggc_root_tab gt_ggc_r_gt_targhooks_h[];
extern const struct ggc_root_tab gt_ggc_r_gt_riscv_h[];
extern const struct ggc_root_tab gt_ggc_r_gt_cgraphclones_h[];
extern const struct ggc_root_tab gt_ggc_r_gt_trans_mem_h[];
extern const struct ggc_root_tab gt_ggc_r_gt_vtable_verify_h[];
extern const struct ggc_root_tab gt_ggc_r_gt_asan_h[];
extern const struct ggc_root_tab gt_ggc_r_gt_ubsan_h[];
extern const struct ggc_root_tab gt_ggc_r_gt_ipa_devirt_h[];
extern const struct ggc_root_tab gt_ggc_r_gtype_desc_cc[];
extern const struct ggc_root_tab gt_ggc_r_gt_fortran_f95_lang_h[];
extern const struct ggc_root_tab gt_ggc_r_gt_fortran_trans_decl_h[];
extern const struct ggc_root_tab gt_ggc_r_gt_fortran_trans_intrinsic_h[];
extern const struct ggc_root_tab gt_ggc_r_gt_fortran_trans_io_h[];
extern const struct ggc_root_tab gt_ggc_r_gt_fortran_trans_stmt_h[];
extern const struct ggc_root_tab gt_ggc_r_gt_fortran_trans_types_h[];
extern const struct ggc_root_tab gt_ggc_r_gtype_fortran_h[];
EXPORTED_CONST struct ggc_root_tab * const gt_ggc_rtab[] = {
gt_ggc_r_gt_coverage_h,
gt_ggc_r_gt_symtab_thunks_h,
gt_ggc_r_gt_caller_save_h,
gt_ggc_r_gt_alias_h,
gt_ggc_r_gt_cselib_h,
gt_ggc_r_gt_cgraph_h,
gt_ggc_r_gt_ipa_prop_h,
gt_ggc_r_gt_ipa_sra_h,
gt_ggc_r_gt_dbxout_h,
gt_ggc_r_gt_ipa_modref_h,
gt_ggc_r_gt_dwarf2asm_h,
gt_ggc_r_gt_dwarf2cfi_h,
gt_ggc_r_gt_dwarf2ctf_h,
gt_ggc_r_gt_dwarf2out_h,
gt_ggc_r_gt_ctfout_h,
gt_ggc_r_gt_btfout_h,
gt_ggc_r_gt_tree_vect_generic_h,
gt_ggc_r_gt_dojump_h,
gt_ggc_r_gt_emit_rtl_h,
gt_ggc_r_gt_explow_h,
gt_ggc_r_gt_function_h,
gt_ggc_r_gt_except_h,
gt_ggc_r_gt_ggc_tests_h,
gt_ggc_r_gt_gcse_h,
gt_ggc_r_gt_godump_h,
gt_ggc_r_gt_optabs_libfuncs_h,
gt_ggc_r_gt_cfgrtl_h,
gt_ggc_r_gt_stor_layout_h,
gt_ggc_r_gt_stringpool_h,
gt_ggc_r_gt_tree_h,
gt_ggc_r_gt_varasm_h,
gt_ggc_r_gt_tree_ssa_address_h,
gt_ggc_r_gt_tree_ssa_loop_ivopts_h,
gt_ggc_r_gt_gimple_expr_h,
gt_ggc_r_gt_tree_scalar_evolution_h,
gt_ggc_r_gt_tree_profile_h,
gt_ggc_r_gt_tree_nested_h,
gt_ggc_r_gt_omp_general_h,
gt_ggc_r_gt_omp_low_h,
gt_ggc_r_gt_targhooks_h,
gt_ggc_r_gt_riscv_h,
gt_ggc_r_gt_cgraphclones_h,
gt_ggc_r_gt_trans_mem_h,
gt_ggc_r_gt_vtable_verify_h,
gt_ggc_r_gt_asan_h,
gt_ggc_r_gt_ubsan_h,
gt_ggc_r_gt_ipa_devirt_h,
gt_ggc_r_gtype_desc_cc,
gt_ggc_r_gt_fortran_f95_lang_h,
gt_ggc_r_gt_fortran_trans_decl_h,
gt_ggc_r_gt_fortran_trans_intrinsic_h,
gt_ggc_r_gt_fortran_trans_io_h,
gt_ggc_r_gt_fortran_trans_stmt_h,
gt_ggc_r_gt_fortran_trans_types_h,
gt_ggc_r_gtype_fortran_h,
NULL
};
extern const struct ggc_root_tab gt_ggc_rd_gt_alias_h[];
extern const struct ggc_root_tab gt_ggc_rd_gt_bitmap_h[];
extern const struct ggc_root_tab gt_ggc_rd_gt_emit_rtl_h[];
extern const struct ggc_root_tab gt_ggc_rd_gt_ggc_tests_h[];
extern const struct ggc_root_tab gt_ggc_rd_gt_lists_h[];
extern const struct ggc_root_tab gt_ggc_rd_gt_tree_iterator_h[];
extern const struct ggc_root_tab gt_ggc_rd_gt_tree_phinodes_h[];
EXPORTED_CONST struct ggc_root_tab * const gt_ggc_deletable_rtab[] = {
gt_ggc_rd_gt_alias_h,
gt_ggc_rd_gt_bitmap_h,
gt_ggc_rd_gt_emit_rtl_h,
gt_ggc_rd_gt_ggc_tests_h,
gt_ggc_rd_gt_lists_h,
gt_ggc_rd_gt_tree_iterator_h,
gt_ggc_rd_gt_tree_phinodes_h,
NULL
};
extern void gt_clear_caches_gt_ipa_prop_h ();
extern void gt_clear_caches_gt_emit_rtl_h ();
extern void gt_clear_caches_gt_function_h ();
extern void gt_clear_caches_gt_tree_h ();
extern void gt_clear_caches_gt_varasm_h ();
extern void gt_clear_caches_gt_trans_mem_h ();
extern void gt_clear_caches_gt_ubsan_h ();
void
gt_clear_caches ()
{
gt_clear_caches_gt_ipa_prop_h ();
gt_clear_caches_gt_emit_rtl_h ();
gt_clear_caches_gt_function_h ();
gt_clear_caches_gt_tree_h ();
gt_clear_caches_gt_varasm_h ();
gt_clear_caches_gt_trans_mem_h ();
gt_clear_caches_gt_ubsan_h ();
}
EXPORTED_CONST struct ggc_root_tab gt_pch_rs_gtype_fortran_h[] = {
{ &gfor_fndecl_math_powi, 1, sizeof (gfor_fndecl_math_powi), NULL, NULL },
LAST_GGC_ROOT_TAB
};
extern const struct ggc_root_tab gt_pch_rs_gt_alias_h[];
extern const struct ggc_root_tab gt_pch_rs_gt_dbxout_h[];
extern const struct ggc_root_tab gt_pch_rs_gt_dwarf2asm_h[];
extern const struct ggc_root_tab gt_pch_rs_gt_dwarf2cfi_h[];
extern const struct ggc_root_tab gt_pch_rs_gt_dwarf2out_h[];
extern const struct ggc_root_tab gt_pch_rs_gt_tree_vect_generic_h[];
extern const struct ggc_root_tab gt_pch_rs_gt_emit_rtl_h[];
extern const struct ggc_root_tab gt_pch_rs_gt_function_h[];
extern const struct ggc_root_tab gt_pch_rs_gt_except_h[];
extern const struct ggc_root_tab gt_pch_rs_gt_tree_h[];
extern const struct ggc_root_tab gt_pch_rs_gt_varasm_h[];
extern const struct ggc_root_tab gt_pch_rs_gt_gimple_expr_h[];
extern const struct ggc_root_tab gt_pch_rs_gt_ubsan_h[];
extern const struct ggc_root_tab gt_pch_rs_gtype_desc_cc[];
extern const struct ggc_root_tab gt_pch_rs_gt_fortran_trans_intrinsic_h[];
extern const struct ggc_root_tab gt_pch_rs_gt_fortran_trans_io_h[];
extern const struct ggc_root_tab gt_pch_rs_gtype_fortran_h[];
EXPORTED_CONST struct ggc_root_tab * const gt_pch_scalar_rtab[] = {
gt_pch_rs_gt_alias_h,
gt_pch_rs_gt_dbxout_h,
gt_pch_rs_gt_dwarf2asm_h,
gt_pch_rs_gt_dwarf2cfi_h,
gt_pch_rs_gt_dwarf2out_h,
gt_pch_rs_gt_tree_vect_generic_h,
gt_pch_rs_gt_emit_rtl_h,
gt_pch_rs_gt_function_h,
gt_pch_rs_gt_except_h,
gt_pch_rs_gt_tree_h,
gt_pch_rs_gt_varasm_h,
gt_pch_rs_gt_gimple_expr_h,
gt_pch_rs_gt_ubsan_h,
gt_pch_rs_gtype_desc_cc,
gt_pch_rs_gt_fortran_trans_intrinsic_h,
gt_pch_rs_gt_fortran_trans_io_h,
gt_pch_rs_gtype_fortran_h,
NULL
};