/* 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 . */ /* 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 * const x = (hash_table *)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 * const x = (hash_table *)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 * x ATTRIBUTE_UNUSED = (struct hash_table *)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]), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_caf_random_init, 1, sizeof (gfor_fndecl_caf_random_init), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_random_init, 1, sizeof (gfor_fndecl_random_init), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_ieee_procedure_exit, 1, sizeof (gfor_fndecl_ieee_procedure_exit), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_ieee_procedure_entry, 1, sizeof (gfor_fndecl_ieee_procedure_entry), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_sr_kind, 1, sizeof (gfor_fndecl_sr_kind), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_si_kind, 1, sizeof (gfor_fndecl_si_kind), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_sc_kind, 1, sizeof (gfor_fndecl_sc_kind), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_is_contiguous0, 1, sizeof (gfor_fndecl_is_contiguous0), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_kill_sub, 1, sizeof (gfor_fndecl_kill_sub), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_kill, 1, sizeof (gfor_fndecl_kill), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_iargc, 1, sizeof (gfor_fndecl_iargc), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_convert_char4_to_char1, 1, sizeof (gfor_fndecl_convert_char4_to_char1), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_convert_char1_to_char4, 1, sizeof (gfor_fndecl_convert_char1_to_char4), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_select_string_char4, 1, sizeof (gfor_fndecl_select_string_char4), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_adjustr_char4, 1, sizeof (gfor_fndecl_adjustr_char4), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_adjustl_char4, 1, sizeof (gfor_fndecl_adjustl_char4), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_string_minmax_char4, 1, sizeof (gfor_fndecl_string_minmax_char4), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_string_trim_char4, 1, sizeof (gfor_fndecl_string_trim_char4), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_string_verify_char4, 1, sizeof (gfor_fndecl_string_verify_char4), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_string_scan_char4, 1, sizeof (gfor_fndecl_string_scan_char4), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_string_index_char4, 1, sizeof (gfor_fndecl_string_index_char4), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_string_len_trim_char4, 1, sizeof (gfor_fndecl_string_len_trim_char4), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_concat_string_char4, 1, sizeof (gfor_fndecl_concat_string_char4), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_compare_string_char4, 1, sizeof (gfor_fndecl_compare_string_char4), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_select_string, 1, sizeof (gfor_fndecl_select_string), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_adjustr, 1, sizeof (gfor_fndecl_adjustr), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_adjustl, 1, sizeof (gfor_fndecl_adjustl), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_string_minmax, 1, sizeof (gfor_fndecl_string_minmax), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_string_trim, 1, sizeof (gfor_fndecl_string_trim), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_string_verify, 1, sizeof (gfor_fndecl_string_verify), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_string_scan, 1, sizeof (gfor_fndecl_string_scan), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_string_index, 1, sizeof (gfor_fndecl_string_index), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_string_len_trim, 1, sizeof (gfor_fndecl_string_len_trim), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_concat_string, 1, sizeof (gfor_fndecl_concat_string), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_compare_string, 1, sizeof (gfor_fndecl_compare_string), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_zgemm, 1, sizeof (gfor_fndecl_zgemm), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_cgemm, 1, sizeof (gfor_fndecl_cgemm), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_dgemm, 1, sizeof (gfor_fndecl_dgemm), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_sgemm, 1, sizeof (gfor_fndecl_sgemm), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_math_ishftc16, 1, sizeof (gfor_fndecl_math_ishftc16), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_math_ishftc8, 1, sizeof (gfor_fndecl_math_ishftc8), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_math_ishftc4, 1, sizeof (gfor_fndecl_math_ishftc4), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_math_powi[0][0].integer, 1 * (4) * (3), sizeof (gfor_fndecl_math_powi[0][0]), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_math_powi[0][0].real, 1 * (4) * (3), sizeof (gfor_fndecl_math_powi[0][0]), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_math_powi[0][0].cmplx, 1 * (4) * (3), sizeof (gfor_fndecl_math_powi[0][0]), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_caf_is_present, 1, sizeof (gfor_fndecl_caf_is_present), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_co_sum, 1, sizeof (gfor_fndecl_co_sum), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_co_reduce, 1, sizeof (gfor_fndecl_co_reduce), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_co_min, 1, sizeof (gfor_fndecl_co_min), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_co_max, 1, sizeof (gfor_fndecl_co_max), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_co_broadcast, 1, sizeof (gfor_fndecl_co_broadcast), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_caf_team_number, 1, sizeof (gfor_fndecl_caf_team_number), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_caf_sync_team, 1, sizeof (gfor_fndecl_caf_sync_team), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_caf_get_team, 1, sizeof (gfor_fndecl_caf_get_team), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_caf_end_team, 1, sizeof (gfor_fndecl_caf_end_team), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_caf_change_team, 1, sizeof (gfor_fndecl_caf_change_team), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_caf_form_team, 1, sizeof (gfor_fndecl_caf_form_team), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_caf_stopped_images, 1, sizeof (gfor_fndecl_caf_stopped_images), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_caf_image_status, 1, sizeof (gfor_fndecl_caf_image_status), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_caf_failed_images, 1, sizeof (gfor_fndecl_caf_failed_images), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_caf_fail_image, 1, sizeof (gfor_fndecl_caf_fail_image), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_caf_event_query, 1, sizeof (gfor_fndecl_caf_event_query), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_caf_event_wait, 1, sizeof (gfor_fndecl_caf_event_wait), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_caf_event_post, 1, sizeof (gfor_fndecl_caf_event_post), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_caf_unlock, 1, sizeof (gfor_fndecl_caf_unlock), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_caf_lock, 1, sizeof (gfor_fndecl_caf_lock), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_caf_atomic_op, 1, sizeof (gfor_fndecl_caf_atomic_op), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_caf_atomic_cas, 1, sizeof (gfor_fndecl_caf_atomic_cas), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_caf_atomic_ref, 1, sizeof (gfor_fndecl_caf_atomic_ref), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_caf_atomic_def, 1, sizeof (gfor_fndecl_caf_atomic_def), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_caf_error_stop_str, 1, sizeof (gfor_fndecl_caf_error_stop_str), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_caf_error_stop, 1, sizeof (gfor_fndecl_caf_error_stop), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_caf_stop_str, 1, sizeof (gfor_fndecl_caf_stop_str), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_caf_stop_numeric, 1, sizeof (gfor_fndecl_caf_stop_numeric), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_caf_sync_images, 1, sizeof (gfor_fndecl_caf_sync_images), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_caf_sync_memory, 1, sizeof (gfor_fndecl_caf_sync_memory), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_caf_sync_all, 1, sizeof (gfor_fndecl_caf_sync_all), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_caf_sendget_by_ref, 1, sizeof (gfor_fndecl_caf_sendget_by_ref), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_caf_send_by_ref, 1, sizeof (gfor_fndecl_caf_send_by_ref), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_caf_get_by_ref, 1, sizeof (gfor_fndecl_caf_get_by_ref), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_caf_sendget, 1, sizeof (gfor_fndecl_caf_sendget), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_caf_send, 1, sizeof (gfor_fndecl_caf_send), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_caf_get, 1, sizeof (gfor_fndecl_caf_get), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_caf_deregister, 1, sizeof (gfor_fndecl_caf_deregister), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_caf_register, 1, sizeof (gfor_fndecl_caf_register), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_caf_num_images, 1, sizeof (gfor_fndecl_caf_num_images), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_caf_this_image, 1, sizeof (gfor_fndecl_caf_this_image), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_caf_finalize, 1, sizeof (gfor_fndecl_caf_finalize), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_caf_init, 1, sizeof (gfor_fndecl_caf_init), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_system_clock8, 1, sizeof (gfor_fndecl_system_clock8), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_system_clock4, 1, sizeof (gfor_fndecl_system_clock4), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_associated, 1, sizeof (gfor_fndecl_associated), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_in_unpack, 1, sizeof (gfor_fndecl_in_unpack), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_in_pack, 1, sizeof (gfor_fndecl_in_pack), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_fdate, 1, sizeof (gfor_fndecl_fdate), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_ctime, 1, sizeof (gfor_fndecl_ctime), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_ttynam, 1, sizeof (gfor_fndecl_ttynam), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_set_options, 1, sizeof (gfor_fndecl_set_options), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_set_fpe, 1, sizeof (gfor_fndecl_set_fpe), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_generate_error, 1, sizeof (gfor_fndecl_generate_error), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_os_error_at, 1, sizeof (gfor_fndecl_os_error_at), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_runtime_warning_at, 1, sizeof (gfor_fndecl_runtime_warning_at), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_runtime_error_at, 1, sizeof (gfor_fndecl_runtime_error_at), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_runtime_error, 1, sizeof (gfor_fndecl_runtime_error), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_error_stop_string, 1, sizeof (gfor_fndecl_error_stop_string), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_error_stop_numeric, 1, sizeof (gfor_fndecl_error_stop_numeric), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_stop_string, 1, sizeof (gfor_fndecl_stop_string), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_stop_numeric, 1, sizeof (gfor_fndecl_stop_numeric), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_pause_string, 1, sizeof (gfor_fndecl_pause_string), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfor_fndecl_pause_numeric, 1, sizeof (gfor_fndecl_pause_numeric), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfc_static_ctors, 1, sizeof (gfc_static_ctors), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfc_charlen_type_node, 1, sizeof (gfc_charlen_type_node), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &logical_false_node, 1, sizeof (logical_false_node), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &logical_true_node, 1, sizeof (logical_true_node), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &logical_type_node, 1, sizeof (logical_type_node), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfc_complex_float128_type_node, 1, sizeof (gfc_complex_float128_type_node), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfc_float128_type_node, 1, sizeof (gfc_float128_type_node), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &pchar_type_node, 1, sizeof (pchar_type_node), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &prvoid_type_node, 1, sizeof (prvoid_type_node), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &pvoid_type_node, 1, sizeof (pvoid_type_node), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &ppvoid_type_node, 1, sizeof (ppvoid_type_node), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfc_character1_type_node, 1, sizeof (gfc_character1_type_node), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfc_array_range_type, 1, sizeof (gfc_array_range_type), >_ggc_mx_tree_node, >_pch_nx_tree_node }, { &gfc_array_index_type, 1, sizeof (gfc_array_index_type), >_ggc_mx_tree_node, >_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 };