Home
last modified time | relevance | path

Searched refs:binding_label (Results 1 – 20 of 20) sorted by relevance

/netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/
H A Ddecl.c1722 if (!sym->binding_label) in build_sym()
1726 if (!set_binding_label (&sym->binding_label, sym->name, in build_sym()
5978 && tmp_sym->binding_label) in verify_bind_c_sym()
5983 &(tmp_sym->declared_at), tmp_sym->binding_label); in verify_bind_c_sym()
6004 if (!set_binding_label (&tmp_sym->binding_label, tmp_sym->name, num_idents)) in set_verify_bind_c_sym()
6020 if (!set_binding_label (&com_block->binding_label, com_block->name, in set_verify_bind_c_com_block()
7040 if (!set_binding_label (&sym->binding_label, sym->name, num)) in match_procedure_decl()
7457 && sym->binding_label && sym->old_symbol->binding_label in gfc_match_function_decl()
7458 && strcmp (sym->binding_label, sym->old_symbol->binding_label) != 0) in gfc_match_function_decl()
7461 s1 = sym->binding_label; in gfc_match_function_decl()
[all …]
H A Dparse.c5991 if (sym->binding_label) in gfc_global_used()
5993 "as a %s at %L", sym->binding_label, where, name, in gfc_global_used()
6001 if (sym->binding_label) in gfc_global_used()
6003 "at %L", sym->binding_label, where, &sym->where); in gfc_global_used()
6182 if (!gfc_new_block->binding_label || gfc_notification_std (GFC_STD_F2008)) in add_global_procedure()
6192 gfc_new_block->binding_label = NULL; in add_global_procedure()
6205 if (gfc_new_block->binding_label in add_global_procedure()
6207 || strcmp (gfc_new_block->name, gfc_new_block->binding_label) != 0)) in add_global_procedure()
6209 s = gfc_get_gsymbol (gfc_new_block->binding_label, true); in add_global_procedure()
6217 gfc_new_block->binding_label = NULL; in add_global_procedure()
[all …]
H A Ddump-parse-tree.c1068 if (sym->binding_label) in show_symbol()
1069 fprintf (dumpfile,"|| binding_label: '%s' ", sym->binding_label); in show_symbol()
3433 if (sym->binding_label) in write_variable()
3434 sym_name = sym->binding_label; in write_variable()
3458 if (sym->binding_label) in write_proc()
3459 sym_name = sym->binding_label; in write_proc()
3570 if (gsym->binding_label) in show_global_symbol()
3571 fprintf (out, ", binding_label=%s", gsym->binding_label); in show_global_symbol()
H A Dmodule.c161 char *true_name, *module, *binding_label; member
247 XDELETEVEC (p->u.rsym.binding_label); in free_pi_tree()
4793 p->binding_label = IDENTIFIER_POINTER (get_identifier (label)); in load_commons()
5041 if (p->u.rsym.binding_label) in load_needed()
5042 sym->binding_label = IDENTIFIER_POINTER (get_identifier in load_needed()
5043 (p->u.rsym.binding_label)); in load_needed()
5229 info->u.rsym.binding_label = bind_label; in read_module()
5413 if (info->u.rsym.binding_label) in read_module()
5415 tree id = get_identifier (info->u.rsym.binding_label); in read_module()
5416 sym->binding_label = IDENTIFIER_POINTER (id); in read_module()
[all …]
H A Dtrans-common.c255 if (com->is_bind_c == 1 && com->binding_label) in gfc_sym_mangled_common_id()
256 return get_identifier (com->binding_label); in gfc_sym_mangled_common_id()
429 if (com->is_bind_c == 1 && com->binding_label) in build_common_decl()
H A Dresolve.c1011 if (!common_root->n.common->binding_label in resolve_common_blocks()
1019 && ((common_root->n.common->binding_label in resolve_common_blocks()
1020 && (!gsym->binding_label in resolve_common_blocks()
1021 || strcmp (common_root->n.common->binding_label, in resolve_common_blocks()
1022 gsym->binding_label) != 0)) in resolve_common_blocks()
1023 || (!common_root->n.common->binding_label in resolve_common_blocks()
1024 && gsym->binding_label))) in resolve_common_blocks()
1031 common_root->n.common->binding_label in resolve_common_blocks()
1032 ? common_root->n.common->binding_label : "(blank)", in resolve_common_blocks()
1033 gsym->binding_label ? gsym->binding_label : "(blank)"); in resolve_common_blocks()
[all …]
H A Dgfortran.h1652 const char* binding_label; member
1683 const char* binding_label; member
1938 const char *binding_label; member
H A Dtrans-decl.c378 if (sym->attr.is_bind_c == 1 && sym->binding_label) in mangled_identifier()
379 return sym->binding_label; in mangled_identifier()
442 sym->binding_label) in gfc_sym_mangled_function_id()
444 return get_identifier (sym->binding_label); in gfc_sym_mangled_function_id()
655 if(sym->attr.is_bind_c == 1 && sym->binding_label) in gfc_finish_var_decl()
2096 if (sym->binding_label) in gfc_get_extern_function_decl()
2098 gsym = gfc_find_gsymbol (gfc_gsym_root, sym->binding_label); in gfc_get_extern_function_decl()
2389 && (sym->attr.access != ACCESS_PRIVATE || sym->binding_label in build_function_decl()
/netbsd-src/external/gpl3/gcc/dist/gcc/fortran/
H A Ddecl.cc1801 if (!sym->binding_label) in build_sym()
1805 if (!set_binding_label (&sym->binding_label, sym->name, in build_sym()
6067 && tmp_sym->binding_label) in verify_bind_c_sym()
6072 &(tmp_sym->declared_at), tmp_sym->binding_label); in verify_bind_c_sym()
6093 if (!set_binding_label (&tmp_sym->binding_label, tmp_sym->name, num_idents)) in set_verify_bind_c_sym()
6109 if (!set_binding_label (&com_block->binding_label, com_block->name, in set_verify_bind_c_com_block()
7129 if (!set_binding_label (&sym->binding_label, sym->name, num)) in match_procedure_decl()
7546 && sym->binding_label && sym->old_symbol->binding_label in gfc_match_function_decl()
7547 && strcmp (sym->binding_label, sym->old_symbol->binding_label) != 0) in gfc_match_function_decl()
7550 s1 = sym->binding_label; in gfc_match_function_decl()
[all …]
H A DChangeLog-20122317 * decl.c (set_binding_label): Make binding_label argument const.
2319 * gfortran.h (gfc_symbol): Constify binding_label.
2324 * resolve.c (set_name_and_label): Constify binding_label argument.
2325 (gfc_iso_c_sub_interface): Constify binding_label variable.
2326 * symbol.c (get_iso_c_sym): Constify binding_label argument.
2333 (build_sym): Check sym->binding_label pointer rather than array,
2336 double ptr, and sym->binding_label.
2337 (verify_bind_c_sym): Handle sym->binding_label being a pointer.
2338 (set_verify_bind_c_sym): Check sym->binding_label pointer rather
2342 (gfc_match_bind_c): Change binding_label to pointer, update
[all …]
H A Dparse.cc6333 if (sym->binding_label) in gfc_global_used()
6335 "as a %s at %L", sym->binding_label, where, name, in gfc_global_used()
6343 if (sym->binding_label) in gfc_global_used()
6345 "at %L", sym->binding_label, where, &sym->where); in gfc_global_used()
6517 if (!gfc_new_block->binding_label || gfc_notification_std (GFC_STD_F2008)) in add_global_procedure()
6527 gfc_new_block->binding_label = NULL; in add_global_procedure()
6540 if (gfc_new_block->binding_label in add_global_procedure()
6542 || strcmp (gfc_new_block->name, gfc_new_block->binding_label) != 0)) in add_global_procedure()
6544 s = gfc_get_gsymbol (gfc_new_block->binding_label, true); in add_global_procedure()
6552 gfc_new_block->binding_label = NULL; in add_global_procedure()
[all …]
H A Dmodule.cc161 char *true_name, *module, *binding_label; member
252 XDELETEVEC (p->u.rsym.binding_label); in free_pi_tree()
4945 p->binding_label = IDENTIFIER_POINTER (get_identifier (label)); in load_commons()
5193 if (p->u.rsym.binding_label) in load_needed()
5194 sym->binding_label = IDENTIFIER_POINTER (get_identifier in load_needed()
5195 (p->u.rsym.binding_label)); in load_needed()
5381 info->u.rsym.binding_label = bind_label; in read_module()
5565 if (info->u.rsym.binding_label) in read_module()
5567 tree id = get_identifier (info->u.rsym.binding_label); in read_module()
5568 sym->binding_label = IDENTIFIER_POINTER (id); in read_module()
[all …]
H A Ddump-parse-tree.cc1095 if (sym->binding_label) in show_symbol()
1096 fprintf (dumpfile,"|| binding_label: '%s' ", sym->binding_label); in show_symbol()
3772 if (sym->binding_label) in write_variable()
3773 sym_name = sym->binding_label; in write_variable()
3797 if (sym->binding_label) in write_proc()
3798 sym_name = sym->binding_label; in write_proc()
3909 if (gsym->binding_label) in show_global_symbol()
3910 fprintf (out, ", binding_label=%s", gsym->binding_label); in show_global_symbol()
H A Dtrans-common.cc255 if (com->is_bind_c == 1 && com->binding_label) in gfc_sym_mangled_common_id()
256 return get_identifier (com->binding_label); in gfc_sym_mangled_common_id()
438 if (com->is_bind_c == 1 && com->binding_label) in build_common_decl()
H A Dresolve.cc1035 if (!common_root->n.common->binding_label in resolve_common_blocks()
1043 && ((common_root->n.common->binding_label in resolve_common_blocks()
1044 && (!gsym->binding_label in resolve_common_blocks()
1045 || strcmp (common_root->n.common->binding_label, in resolve_common_blocks()
1046 gsym->binding_label) != 0)) in resolve_common_blocks()
1047 || (!common_root->n.common->binding_label in resolve_common_blocks()
1048 && gsym->binding_label))) in resolve_common_blocks()
1055 common_root->n.common->binding_label in resolve_common_blocks()
1056 ? common_root->n.common->binding_label : "(blank)", in resolve_common_blocks()
1057 gsym->binding_label ? gsym->binding_label : "(blank)"); in resolve_common_blocks()
[all …]
H A Dgfortran.h1906 const char* binding_label; member
1938 const char* binding_label; member
2203 const char *binding_label; member
H A Dtrans-decl.cc375 if (sym->attr.is_bind_c == 1 && sym->binding_label) in mangled_identifier()
376 return sym->binding_label; in mangled_identifier()
439 sym->binding_label) in gfc_sym_mangled_function_id()
441 return get_identifier (sym->binding_label); in gfc_sym_mangled_function_id()
660 if(sym->attr.is_bind_c == 1 && sym->binding_label) in gfc_finish_var_decl()
2136 if (sym->binding_label) in gfc_get_extern_function_decl()
2138 gsym = gfc_find_gsymbol (gfc_gsym_root, sym->binding_label); in gfc_get_extern_function_decl()
2413 && (sym->attr.access != ACCESS_PRIVATE || sym->binding_label in build_function_decl()
H A DChangeLog-2007576 * module.c (load_needed): Ensure binding_label is not lost.
3124 (gfc_symbol): Add from_intmod, intmod_sym_id, binding_label, and
3126 (gfc_common_head): Add binding_label and is_bind_c members.
3127 (gfc_gsymbol): Add sym_name, mod_name, and binding_label members.
3141 (pointer_info): Add binding_label member.
3151 (read_module): Read binding_label and use it.
3155 (write_symbol): Deal with binding_label.
H A Dfrontend-passes.cc5825 if (sym->binding_label) in check_against_globals()
5826 sym_name = sym->binding_label; in check_against_globals()
H A DChangeLog-20182396 be sym->binding_label) instead of sym->name.