| /src/external/gpl3/gcc.old/dist/gcc/fortran/ |
| decl.cc | 1804 if (!sym->binding_label)
1808 if (!set_binding_label (&sym->binding_label, sym->name,
6070 && tmp_sym->binding_label)
6075 &(tmp_sym->declared_at), tmp_sym->binding_label);
6096 if (!set_binding_label (&tmp_sym->binding_label, tmp_sym->name, num_idents))
6112 if (!set_binding_label (&com_block->binding_label, com_block->name,
7132 if (!set_binding_label (&sym->binding_label, sym->name, num))
7549 && sym->binding_label && sym->old_symbol->binding_label
7550 && strcmp (sym->binding_label, sym->old_symbol->binding_label) != 0
8174 char *binding_label = NULL; local
[all...] |
| parse.cc | 6333 if (sym->binding_label)
6335 "as a %s at %L", sym->binding_label, where, name,
6343 if (sym->binding_label)
6345 "at %L", sym->binding_label, where, &sym->where);
6517 if (!gfc_new_block->binding_label || gfc_notification_std (GFC_STD_F2008))
6527 gfc_new_block->binding_label = NULL;
6540 if (gfc_new_block->binding_label
6542 || strcmp (gfc_new_block->name, gfc_new_block->binding_label) != 0))
6544 s = gfc_get_gsymbol (gfc_new_block->binding_label, true);
6552 gfc_new_block->binding_label = NULL
[all...] |
| module.cc | 161 char *true_name, *module, *binding_label; member in struct:pointer_info::__anon16109::__anon16110
252 XDELETEVEC (p->u.rsym.binding_label);
4945 p->binding_label = IDENTIFIER_POINTER (get_identifier (label));
5193 if (p->u.rsym.binding_label)
5194 sym->binding_label = IDENTIFIER_POINTER (get_identifier
5195 (p->u.rsym.binding_label));
5381 info->u.rsym.binding_label = bind_label;
5565 if (info->u.rsym.binding_label)
5567 tree id = get_identifier (info->u.rsym.binding_label);
5568 sym->binding_label = IDENTIFIER_POINTER (id)
[all...] |
| trans-common.cc | 255 if (com->is_bind_c == 1 && com->binding_label)
256 return get_identifier (com->binding_label);
438 if (com->is_bind_c == 1 && com->binding_label)
|
| dump-parse-tree.cc | 1095 if (sym->binding_label)
1096 fprintf (dumpfile,"|| binding_label: '%s' ", sym->binding_label);
3772 if (sym->binding_label)
3773 sym_name = sym->binding_label;
3797 if (sym->binding_label)
3798 sym_name = sym->binding_label;
3909 if (gsym->binding_label)
3910 fprintf (out, ", binding_label=%s", gsym->binding_label);
[all...] |
| resolve.cc | 1035 if (!common_root->n.common->binding_label
1043 && ((common_root->n.common->binding_label
1044 && (!gsym->binding_label
1045 || strcmp (common_root->n.common->binding_label,
1046 gsym->binding_label) != 0))
1047 || (!common_root->n.common->binding_label
1048 && gsym->binding_label)))
1055 common_root->n.common->binding_label
1056 ? common_root->n.common->binding_label : "(blank)",
1057 gsym->binding_label ? gsym->binding_label : "(blank)")
[all...] |
| gfortran.h | 1910 const char* binding_label; member in struct:gfc_symbol
1942 const char* binding_label; member in struct:gfc_common_head
2207 const char *binding_label; member in struct:gfc_gsymbol
|
| trans-decl.cc | 375 if (sym->attr.is_bind_c == 1 && sym->binding_label)
376 return sym->binding_label;
439 sym->binding_label)
441 return get_identifier (sym->binding_label);
660 if(sym->attr.is_bind_c == 1 && sym->binding_label)
2136 if (sym->binding_label)
2138 gsym = gfc_find_gsymbol (gfc_gsym_root, sym->binding_label);
2413 && (sym->attr.access != ACCESS_PRIVATE || sym->binding_label
|
| frontend-passes.cc | 5825 if (sym->binding_label)
5826 sym_name = sym->binding_label;
|
| /src/external/gpl3/gcc/dist/gcc/fortran/ |
| decl.cc | 1861 if (!sym->binding_label)
1865 if (!set_binding_label (&sym->binding_label, sym->name,
6190 && tmp_sym->binding_label)
6195 &(tmp_sym->declared_at), tmp_sym->binding_label);
6216 if (!set_binding_label (&tmp_sym->binding_label, tmp_sym->name, num_idents))
6232 if (!set_binding_label (&com_block->binding_label, com_block->name,
7355 if (!set_binding_label (&sym->binding_label, sym->name, num))
7774 && sym->binding_label && sym->old_symbol->binding_label
7775 && strcmp (sym->binding_label, sym->old_symbol->binding_label) != 0
8399 char *binding_label = NULL; local
[all...] |
| module.cc | 161 char *true_name, *module, *binding_label; member in struct:pointer_info::__anon13677::__anon13678
252 XDELETEVEC (p->u.rsym.binding_label);
4964 p->binding_label = IDENTIFIER_POINTER (get_identifier (label));
5212 if (p->u.rsym.binding_label)
5213 sym->binding_label = IDENTIFIER_POINTER (get_identifier
5214 (p->u.rsym.binding_label));
5400 info->u.rsym.binding_label = bind_label;
5584 if (info->u.rsym.binding_label)
5586 tree id = get_identifier (info->u.rsym.binding_label);
5587 sym->binding_label = IDENTIFIER_POINTER (id)
[all...] |
| trans-common.cc | 255 if (com->is_bind_c == 1 && com->binding_label)
256 return get_identifier (com->binding_label);
438 if (com->is_bind_c == 1 && com->binding_label)
|
| parse.cc | 6790 if (sym->binding_label)
6792 "as a %s at %L", sym->binding_label, where, name,
6800 if (sym->binding_label)
6802 "at %L", sym->binding_label, where, &sym->where);
6974 if (!gfc_new_block->binding_label || gfc_notification_std (GFC_STD_F2008))
6984 gfc_new_block->binding_label = NULL;
6997 if (gfc_new_block->binding_label
6999 || strcmp (gfc_new_block->name, gfc_new_block->binding_label) != 0))
7001 s = gfc_get_gsymbol (gfc_new_block->binding_label, true);
7009 gfc_new_block->binding_label = NULL
[all...] |
| dump-parse-tree.cc | 1113 if (sym->binding_label)
1114 fprintf (dumpfile,"|| binding_label: '%s' ", sym->binding_label);
3950 if (sym->binding_label)
3951 sym_name = sym->binding_label;
3975 if (sym->binding_label)
3976 sym_name = sym->binding_label;
4087 if (gsym->binding_label)
4088 fprintf (out, ", binding_label=%s", gsym->binding_label);
[all...] |
| resolve.cc | 1084 if (!common_root->n.common->binding_label
1092 && ((common_root->n.common->binding_label
1093 && (!gsym->binding_label
1094 || strcmp (common_root->n.common->binding_label,
1095 gsym->binding_label) != 0))
1096 || (!common_root->n.common->binding_label
1097 && gsym->binding_label)))
1104 common_root->n.common->binding_label
1105 ? common_root->n.common->binding_label : "(blank)",
1106 gsym->binding_label ? gsym->binding_label : "(blank)")
[all...] |
| gfortran.h | 1990 const char* binding_label; member in struct:gfc_symbol
2022 const char* binding_label; member in struct:gfc_common_head
2298 const char *binding_label; member in struct:gfc_gsymbol
|
| trans-decl.cc | 377 if (sym->attr.is_bind_c == 1 && sym->binding_label)
378 return sym->binding_label;
441 sym->binding_label)
443 return get_identifier (sym->binding_label);
675 if(sym->attr.is_bind_c == 1 && sym->binding_label)
2218 if (sym->binding_label)
2220 gsym = gfc_find_gsymbol (gfc_gsym_root, sym->binding_label);
2495 && (sym->attr.access != ACCESS_PRIVATE || sym->binding_label
|
| frontend-passes.cc | 5811 if (gsym->bind_c && def_sym && def_sym->binding_label == NULL)
5908 if (sym->binding_label)
5909 sym_name = sym->binding_label;
|
