Home
last modified time | relevance | path

Searched refs:c_interop_kinds_table (Results 1 – 14 of 14) sorted by relevance

/netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/
H A Dtrans-types.c54 CInteropKind_t c_interop_kinds_table[ISOCBINDING_NUMBER]; variable
185 if (c_interop_kinds_table[i].f90_type == ts->type && in gfc_check_any_c_kind()
186 c_interop_kinds_table[i].value == ts->kind) in gfc_check_any_c_kind()
326 c_interop_kinds_table[i].name[0] = '\0'; in gfc_init_c_interop_kinds()
327 c_interop_kinds_table[i].value = -100; in gfc_init_c_interop_kinds()
328 c_interop_kinds_table[i].f90_type = BT_UNKNOWN; in gfc_init_c_interop_kinds()
332 strncpy (c_interop_kinds_table[a].name, b, strlen(b) + 1); \ in gfc_init_c_interop_kinds()
333 c_interop_kinds_table[a].f90_type = BT_INTEGER; \ in gfc_init_c_interop_kinds()
334 c_interop_kinds_table[a].value = c; in gfc_init_c_interop_kinds()
336 strncpy (c_interop_kinds_table[a].name, b, strlen(b) + 1); \ in gfc_init_c_interop_kinds()
[all …]
H A Ddump-parse-tree.c3266 if (c_interop_kinds_table[i].f90_type == ts->type in get_c_type_name()
3267 && c_interop_kinds_table[i].value == ts->kind) in get_c_type_name()
3269 *type_name = c_interop_kinds_table[i].name + 2; in get_c_type_name()
3297 if (c_interop_kinds_table[i].f90_type == BT_INTEGER in get_c_type_name()
3298 && c_interop_kinds_table[i].value == ts->kind) in get_c_type_name()
3300 *type_name = c_interop_kinds_table[i].name + 2; in get_c_type_name()
3321 if (c_interop_kinds_table[i].f90_type == BT_INTEGER in get_c_type_name()
3322 && c_interop_kinds_table[i].value == ts->kind) in get_c_type_name()
3324 *type_name = c_interop_kinds_table[i].name + 2; in get_c_type_name()
H A Dsymbol.c4762 ? local_name : c_interop_kinds_table[s].name; in generate_isocbinding_symbol()
4844 c_interop_kinds_table[s].value); in generate_isocbinding_symbol()
4859 tmp_sym->ts.f90_type = c_interop_kinds_table[s].f90_type; in generate_isocbinding_symbol()
4875 = (gfc_char_t) c_interop_kinds_table[s].value; in generate_isocbinding_symbol()
4985 index = get_c_kind ("c_ptr", c_interop_kinds_table); in generate_isocbinding_symbol()
4986 tmp_comp->ts.kind = c_interop_kinds_table[index].value; in generate_isocbinding_symbol()
H A Dmodule.c6467 if (strcmp (c_interop_kinds_table[ISOCBINDING_NULL_PTR].name, in import_iso_c_binding_module()
6470 else if (strcmp (c_interop_kinds_table[ISOCBINDING_LOC].name, in import_iso_c_binding_module()
6473 else if (strcmp (c_interop_kinds_table[ISOCBINDING_NULL_FUNPTR].name, in import_iso_c_binding_module()
6476 else if (strcmp (c_interop_kinds_table[ISOCBINDING_FUNLOC].name, in import_iso_c_binding_module()
6479 else if (strcmp (c_interop_kinds_table[ISOCBINDING_PTR].name, in import_iso_c_binding_module()
6489 else if (strcmp (c_interop_kinds_table[ISOCBINDING_FUNPTR].name, in import_iso_c_binding_module()
6519 if (strcmp (c_interop_kinds_table[i].name, u->use_name) == 0) in import_iso_c_binding_module()
H A Dgfortran.h754 extern CInteropKind_t c_interop_kinds_table[];
H A Dintrinsic.c989 return (gfc_isym_id) c_interop_kinds_table[intmod_sym_id].value; in gfc_isym_id_by_intmod()
/netbsd-src/external/gpl3/gcc/dist/gcc/fortran/
H A Dtrans-types.cc55 CInteropKind_t c_interop_kinds_table[ISOCBINDING_NUMBER]; variable
310 c_interop_kinds_table[i].name[0] = '\0'; in gfc_init_c_interop_kinds()
311 c_interop_kinds_table[i].value = -100; in gfc_init_c_interop_kinds()
312 c_interop_kinds_table[i].f90_type = BT_UNKNOWN; in gfc_init_c_interop_kinds()
316 strncpy (c_interop_kinds_table[a].name, b, strlen(b) + 1); \ in gfc_init_c_interop_kinds()
317 c_interop_kinds_table[a].f90_type = BT_INTEGER; \ in gfc_init_c_interop_kinds()
318 c_interop_kinds_table[a].value = c; in gfc_init_c_interop_kinds()
320 strncpy (c_interop_kinds_table[a].name, b, strlen(b) + 1); \ in gfc_init_c_interop_kinds()
321 c_interop_kinds_table[a].f90_type = BT_REAL; \ in gfc_init_c_interop_kinds()
322 c_interop_kinds_table[a].value = c; in gfc_init_c_interop_kinds()
[all …]
H A Ddump-parse-tree.cc3600 if (c_interop_kinds_table[i].f90_type == ts->type in get_c_type_name()
3601 && c_interop_kinds_table[i].value == ts->kind) in get_c_type_name()
3604 *type_name = c_interop_kinds_table[i].name + 2; in get_c_type_name()
3636 if (c_interop_kinds_table[i].f90_type == BT_INTEGER in get_c_type_name()
3637 && c_interop_kinds_table[i].value == ts->kind) in get_c_type_name()
3639 *type_name = c_interop_kinds_table[i].name + 2; in get_c_type_name()
3660 if (c_interop_kinds_table[i].f90_type == BT_INTEGER in get_c_type_name()
3661 && c_interop_kinds_table[i].value == ts->kind) in get_c_type_name()
3663 *type_name = c_interop_kinds_table[i].name + 2; in get_c_type_name()
H A Dsymbol.cc4806 ? local_name : c_interop_kinds_table[s].name; in generate_isocbinding_symbol()
4888 c_interop_kinds_table[s].value); in generate_isocbinding_symbol()
4903 tmp_sym->ts.f90_type = c_interop_kinds_table[s].f90_type; in generate_isocbinding_symbol()
4919 = (gfc_char_t) c_interop_kinds_table[s].value; in generate_isocbinding_symbol()
5029 index = get_c_kind ("c_ptr", c_interop_kinds_table); in generate_isocbinding_symbol()
5030 tmp_comp->ts.kind = c_interop_kinds_table[index].value; in generate_isocbinding_symbol()
H A Dmodule.cc6678 if (strcmp (c_interop_kinds_table[ISOCBINDING_NULL_PTR].name, in import_iso_c_binding_module()
6681 else if (strcmp (c_interop_kinds_table[ISOCBINDING_LOC].name, in import_iso_c_binding_module()
6684 else if (strcmp (c_interop_kinds_table[ISOCBINDING_NULL_FUNPTR].name, in import_iso_c_binding_module()
6687 else if (strcmp (c_interop_kinds_table[ISOCBINDING_FUNLOC].name, in import_iso_c_binding_module()
6690 else if (strcmp (c_interop_kinds_table[ISOCBINDING_PTR].name, in import_iso_c_binding_module()
6700 else if (strcmp (c_interop_kinds_table[ISOCBINDING_FUNPTR].name, in import_iso_c_binding_module()
6730 if (strcmp (c_interop_kinds_table[i].name, u->use_name) == 0) in import_iso_c_binding_module()
H A Dgfortran.h804 extern CInteropKind_t c_interop_kinds_table[];
H A DChangeLog-20201028 c_interop_kinds_table to find the correct C type.
H A DChangeLog-20073120 (c_interop_kinds_table): Use it. Declare an array of structs.
3161 * trans-types.c (c_interop_kinds_table): new array of structs.
H A Dintrinsic.cc1015 return (gfc_isym_id) c_interop_kinds_table[intmod_sym_id].value; in gfc_isym_id_by_intmod()