Home
last modified time | relevance | path

Searched refs:vtab (Results 1 – 25 of 36) sorted by relevance

12

/netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/
H A Dclass.c236 gfc_symbol *vtab = gfc_find_derived_vtab (derived->components->ts.u.derived); in gfc_add_component_ref() local
237 gcc_assert (vtab); in gfc_add_component_ref()
238 derived->components->next->ts.u.derived = vtab->ts.u.derived; in gfc_add_component_ref()
448 gfc_symbol *vtab = NULL; in gfc_class_initializer() local
451 vtab = gfc_find_vtab (&init_expr->ts); in gfc_class_initializer()
453 vtab = gfc_find_vtab (ts); in gfc_class_initializer()
462 if (strcmp (comp->name, "_vptr") == 0 && vtab) in gfc_class_initializer()
463 ctor->expr = gfc_lval_expr_from_sym (vtab); in gfc_class_initializer()
640 gfc_symbol *vtab; in gfc_build_class_symbol() local
755 vtab = gfc_find_derived_vtab (ts->u.derived); in gfc_build_class_symbol()
[all …]
H A Dtrans-expr.c458 gfc_symbol *vtab; in gfc_reset_vptr() local
481 vtab = gfc_find_derived_vtab (e->ts.u.derived); in gfc_reset_vptr()
482 vtable = vtab->backend_decl; in gfc_reset_vptr()
484 vtable = gfc_get_symbol_decl (vtab); in gfc_reset_vptr()
622 gfc_symbol *vtab; in gfc_conv_derived_to_class() local
647 vtab = gfc_find_derived_vtab (e->ts.u.derived); in gfc_conv_derived_to_class()
648 gcc_assert (vtab); in gfc_conv_derived_to_class()
649 tmp = gfc_build_addr_expr (NULL_TREE, gfc_get_symbol_decl (vtab)); in gfc_conv_derived_to_class()
899 gfc_symbol *vtab; in gfc_conv_intrinsic_to_class() local
914 vtab = gfc_find_vtab (&e->ts); in gfc_conv_intrinsic_to_class()
[all …]
H A Dtrans-array.c1230 gfc_symbol *vtab; in get_class_info_from_ss() local
1305 vtab = gfc_find_vtab (&rhs_ss->info->expr->ts); in get_class_info_from_ss()
1306 vptr = vtab->backend_decl; in get_class_info_from_ss()
1308 vptr = gfc_get_symbol_decl (vtab); in get_class_info_from_ss()
8833 gfc_symbol *vtab; in structure_alloc_comps() local
9239 vtab = gfc_find_vtab (&c->ts); in structure_alloc_comps()
9240 if (vtab->backend_decl == NULL) in structure_alloc_comps()
9241 gfc_get_symbol_decl (vtab); in structure_alloc_comps()
9242 tmp = gfc_build_addr_expr (NULL_TREE, vtab->backend_decl); in structure_alloc_comps()
9292 tree vtab; in structure_alloc_comps() local
[all …]
H A Diresolve.c975 gfc_symbol *vtab; in gfc_resolve_extends_type_of() local
989 vtab = gfc_find_derived_vtab (a->ts.u.derived); in gfc_resolve_extends_type_of()
996 st = gfc_find_symtree (vtab->ns->sym_root, vtab->name); in gfc_resolve_extends_type_of()
998 a->ts = vtab->ts; in gfc_resolve_extends_type_of()
1009 vtab = gfc_find_derived_vtab (mo->ts.u.derived); in gfc_resolve_extends_type_of()
1016 st = gfc_find_symtree (vtab->ns->sym_root, vtab->name); in gfc_resolve_extends_type_of()
1018 mo->ts = vtab->ts; in gfc_resolve_extends_type_of()
H A Dtrans-intrinsic.c8669 gfc_symbol *vtab; in gfc_conv_intrinsic_transfer() local
8671 vtab = gfc_find_derived_vtab (source_expr->ts.u.derived); in gfc_conv_intrinsic_transfer()
8672 gcc_assert (vtab); in gfc_conv_intrinsic_transfer()
8673 tmp = gfc_build_addr_expr (NULL_TREE, gfc_get_symbol_decl (vtab)); in gfc_conv_intrinsic_transfer()
11884 gfc_symbol *vtab; in conv_intrinsic_move_alloc() local
11895 vtab = NULL; in conv_intrinsic_move_alloc()
11898 vtab = gfc_find_derived_vtab (from_expr->ts.u.derived); in conv_intrinsic_move_alloc()
11899 gcc_assert (vtab); in conv_intrinsic_move_alloc()
11912 if (vtab == NULL) in conv_intrinsic_move_alloc()
11919 tmp = gfc_build_addr_expr (NULL_TREE, gfc_get_symbol_decl (vtab)); in conv_intrinsic_move_alloc()
[all …]
H A Dresolve.c9128 if (c->ts.u.derived->attr.vtab) in resolve_assoc_var()
9485 gfc_symbol *vtab; in resolve_select_type() local
9496 vtab = gfc_find_derived_vtab (c->ts.u.derived); in resolve_select_type()
9497 gcc_assert (vtab); in resolve_select_type()
9503 vtab = gfc_find_vtab (&c->ts); in resolve_select_type()
9504 gcc_assert (vtab && CLASS_DATA (vtab)->initializer); in resolve_select_type()
9505 e = CLASS_DATA (vtab)->initializer; in resolve_select_type()
9516 e = gfc_lval_expr_from_sym (vtab); in resolve_select_type()
9602 gfc_symbol *vtab; in resolve_select_type() local
9672 vtab = gfc_find_derived_vtab (body->ext.block.case_list->ts.u.derived); in resolve_select_type()
[all …]
H A Dtrans-io.c1754 gfc_symbol *vtab = gfc_find_derived_vtab (derived); in transfer_namelist_element() local
1755 vtable = vtab->backend_decl; in transfer_namelist_element()
1757 vtable = gfc_get_symbol_decl (vtab); in transfer_namelist_element()
H A Dtrans-stmt.c6460 gfc_symbol *vtab; in gfc_trans_allocate() local
6462 vtab = gfc_find_vtab (&code->expr3->ts); in gfc_trans_allocate()
6463 gcc_assert (vtab); in gfc_trans_allocate()
6464 expr3_vptr = gfc_get_symbol_decl (vtab); in gfc_trans_allocate()
6892 gfc_symbol *vtab; in gfc_trans_allocate() local
6910 vtab = gfc_find_vtab (ts); in gfc_trans_allocate()
6911 gcc_assert (vtab); in gfc_trans_allocate()
6913 gfc_get_symbol_decl (vtab)); in gfc_trans_allocate()
H A Dmodule.c2312 if (attr->vtab) in mio_symbol_attribute()
2532 attr->vtab = 1; in mio_symbol_attribute()
5106 && !p->u.rsym.sym->attr.vtab) in read_cleanup()
5155 if (st_sym->attr.vtab || st_sym->attr.vtype) in check_for_ambiguous()
5556 if (sym->attr.vtab || sym->attr.vtype) in gfc_check_symbol_access()
H A Dtrans-decl.c1934 if (sym->attr.vtab || def_init) in gfc_get_symbol_decl()
5018 gfc_symbol *vtab; in gfc_trans_deferred_vars() local
5033 vtab = gfc_find_derived_vtab (sym->ts.u.derived); in gfc_trans_deferred_vars()
5035 gfc_get_symbol_decl (vtab)); in gfc_trans_deferred_vars()
5301 if (sym->backend_decl && !sym->attr.vtab && !sym->attr.target) in gfc_create_module_variable()
/netbsd-src/external/gpl3/gcc/dist/gcc/fortran/
H A Dclass.cc238 gfc_symbol *vtab = gfc_find_derived_vtab (derived->components->ts.u.derived); in gfc_add_component_ref() local
239 gcc_assert (vtab); in gfc_add_component_ref()
240 derived->components->next->ts.u.derived = vtab->ts.u.derived; in gfc_add_component_ref()
450 gfc_symbol *vtab = NULL; in gfc_class_initializer() local
453 vtab = gfc_find_vtab (&init_expr->ts); in gfc_class_initializer()
455 vtab = gfc_find_vtab (ts); in gfc_class_initializer()
464 if (strcmp (comp->name, "_vptr") == 0 && vtab) in gfc_class_initializer()
465 ctor->expr = gfc_lval_expr_from_sym (vtab); in gfc_class_initializer()
643 gfc_symbol *vtab; in gfc_build_class_symbol() local
770 vtab = gfc_find_derived_vtab (ts->u.derived); in gfc_build_class_symbol()
[all …]
H A Dtrans-expr.cc537 gfc_symbol *vtab; in gfc_reset_vptr() local
560 vtab = gfc_find_derived_vtab (e->ts.u.derived); in gfc_reset_vptr()
561 vtable = vtab->backend_decl; in gfc_reset_vptr()
563 vtable = gfc_get_symbol_decl (vtab); in gfc_reset_vptr()
705 gfc_symbol *vtab; in gfc_conv_derived_to_class() local
730 vtab = gfc_find_derived_vtab (e->ts.u.derived); in gfc_conv_derived_to_class()
731 gcc_assert (vtab); in gfc_conv_derived_to_class()
732 tmp = gfc_build_addr_expr (NULL_TREE, gfc_get_symbol_decl (vtab)); in gfc_conv_derived_to_class()
993 gfc_symbol *vtab; in gfc_conv_intrinsic_to_class() local
1008 vtab = gfc_find_vtab (&e->ts); in gfc_conv_intrinsic_to_class()
[all …]
H A Diresolve.cc996 gfc_symbol *vtab; in gfc_resolve_extends_type_of() local
1010 vtab = gfc_find_derived_vtab (a->ts.u.derived); in gfc_resolve_extends_type_of()
1017 st = gfc_find_symtree (vtab->ns->sym_root, vtab->name); in gfc_resolve_extends_type_of()
1019 a->ts = vtab->ts; in gfc_resolve_extends_type_of()
1030 vtab = gfc_find_derived_vtab (mo->ts.u.derived); in gfc_resolve_extends_type_of()
1037 st = gfc_find_symtree (vtab->ns->sym_root, vtab->name); in gfc_resolve_extends_type_of()
1039 mo->ts = vtab->ts; in gfc_resolve_extends_type_of()
H A Dtrans-array.cc1298 gfc_symbol *vtab; in get_class_info_from_ss() local
1373 vtab = gfc_find_vtab (&rhs_ss->info->expr->ts); in get_class_info_from_ss()
1374 vptr = vtab->backend_decl; in get_class_info_from_ss()
1376 vptr = gfc_get_symbol_decl (vtab); in get_class_info_from_ss()
9002 gfc_symbol *vtab; in structure_alloc_comps() local
9431 vtab = gfc_find_vtab (&c->ts); in structure_alloc_comps()
9432 if (vtab->backend_decl == NULL) in structure_alloc_comps()
9433 gfc_get_symbol_decl (vtab); in structure_alloc_comps()
9434 tmp = gfc_build_addr_expr (NULL_TREE, vtab->backend_decl); in structure_alloc_comps()
9484 tree vtab; in structure_alloc_comps() local
[all …]
H A Dtrans-intrinsic.cc8753 gfc_symbol *vtab; in gfc_conv_intrinsic_transfer() local
8755 vtab = gfc_find_derived_vtab (source_expr->ts.u.derived); in gfc_conv_intrinsic_transfer()
8756 gcc_assert (vtab); in gfc_conv_intrinsic_transfer()
8757 tmp = gfc_build_addr_expr (NULL_TREE, gfc_get_symbol_decl (vtab)); in gfc_conv_intrinsic_transfer()
12416 gfc_symbol *vtab; in conv_intrinsic_move_alloc() local
12427 vtab = NULL; in conv_intrinsic_move_alloc()
12430 vtab = gfc_find_derived_vtab (from_expr->ts.u.derived); in conv_intrinsic_move_alloc()
12431 gcc_assert (vtab); in conv_intrinsic_move_alloc()
12444 if (vtab == NULL) in conv_intrinsic_move_alloc()
12451 tmp = gfc_build_addr_expr (NULL_TREE, gfc_get_symbol_decl (vtab)); in conv_intrinsic_move_alloc()
[all …]
H A Dresolve.cc9266 if (c->ts.u.derived->attr.vtab) in resolve_assoc_var()
9623 gfc_symbol *vtab; in resolve_select_type() local
9634 vtab = gfc_find_derived_vtab (c->ts.u.derived); in resolve_select_type()
9635 gcc_assert (vtab); in resolve_select_type()
9641 vtab = gfc_find_vtab (&c->ts); in resolve_select_type()
9642 gcc_assert (vtab && CLASS_DATA (vtab)->initializer); in resolve_select_type()
9643 e = CLASS_DATA (vtab)->initializer; in resolve_select_type()
9654 e = gfc_lval_expr_from_sym (vtab); in resolve_select_type()
9740 gfc_symbol *vtab; in resolve_select_type() local
9810 vtab = gfc_find_derived_vtab (body->ext.block.case_list->ts.u.derived); in resolve_select_type()
[all …]
H A DChangeLog-2010502 uniques names for the vtab symbols. Rename components.
506 * module.c (read_module): Renamed vtab and vtype symbols.
510 vtab components.
529 * decl.c (build_struct): Build vtab immediately if derived type
540 * trans-expr.c (gfc_trans_class_assign): Find 'vtab' symbol in correct
547 * class.c (gfc_find_derived_vtab): Improved search for existing vtab.
549 * expr.c (gfc_check_pointer_assign): Make sure the vtab is generated
1290 * interface.c (compare_parameter): Create vtab for actual argument,
1835 (resolve_typebound_procedures): Make sure the vtab has been generated.
2444 vtab and vtype symbols.
[all …]
H A Dtrans-stmt.cc6496 gfc_symbol *vtab; in gfc_trans_allocate() local
6498 vtab = gfc_find_vtab (&code->expr3->ts); in gfc_trans_allocate()
6499 gcc_assert (vtab); in gfc_trans_allocate()
6500 expr3_vptr = gfc_get_symbol_decl (vtab); in gfc_trans_allocate()
6925 gfc_symbol *vtab; in gfc_trans_allocate() local
6943 vtab = gfc_find_vtab (ts); in gfc_trans_allocate()
6944 gcc_assert (vtab); in gfc_trans_allocate()
6946 gfc_get_symbol_decl (vtab)); in gfc_trans_allocate()
H A Dtrans-io.cc1780 gfc_symbol *vtab = gfc_find_derived_vtab (derived); in transfer_namelist_element() local
1781 vtable = vtab->backend_decl; in transfer_namelist_element()
1783 vtable = gfc_get_symbol_decl (vtab); in transfer_namelist_element()
H A Dmodule.cc2375 if (attr->vtab) in mio_symbol_attribute()
2632 attr->vtab = 1; in mio_symbol_attribute()
5258 && !p->u.rsym.sym->attr.vtab) in read_cleanup()
5307 if (st_sym->attr.vtab || st_sym->attr.vtype) in check_for_ambiguous()
5766 if (sym->attr.vtab || sym->attr.vtype) in gfc_check_symbol_access()
H A DChangeLog-20152136 character in the size component of the vtab.
2139 function name for getting a class' vtab's field.
2153 getting a class' vtab's field.
2159 getting a class' vtab's field.
2167 function name for getting a class' vtab's field.
2177 for getting a class' vtab's field.
H A DChangeLog-2011382 * trans-decl.c (gfc_get_symbol_decl): Mark __def_init and vtab as
458 * class.c (gfc_find_derived_vtab): Make the vtab symbols FL_PARAMETER.
2281 * class.c (gfc_find_derived_vtab): Make vtab and default initialization
2323 make sure the vtab is present.
4011 * class.c (gfc_build_class_symbol): Mark __vtab as attr.vtab.
4044 'vtab' is initialized).
H A Dtrans-decl.cc1973 if (sym->attr.vtab || def_init) in gfc_get_symbol_decl()
4953 gfc_symbol *vtab; in gfc_trans_deferred_vars() local
4968 vtab = gfc_find_derived_vtab (sym->ts.u.derived); in gfc_trans_deferred_vars()
4970 gfc_get_symbol_decl (vtab)); in gfc_trans_deferred_vars()
5229 if (sym->backend_decl && !sym->attr.vtab && !sym->attr.target) in gfc_create_module_variable()
H A DChangeLog-2009177 * gfortran.h (symbol_attribute): Add field 'vtab'.
187 * symbol.c (gfc_add_save): Handle vtab symbols.
191 (gfc_find_derived_vtab): New function to set up a vtab symbol for a
193 * trans-decl.c (gfc_create_module_variable): Handle vtab symbols.
199 vtab symbols.
/netbsd-src/sys/arch/x68k/dev/
H A Dopmbell.c93 static struct opm_voice vtab[NBELL]; variable
156 memcpy(&vtab[unit], &bell_voice, sizeof(bell_voice)); in bellattach()
157 opm_set_voice(sc->ch, &vtab[unit]); in bellattach()
227 memcpy(addr, &vtab[unit], sizeof(struct opm_voice)); in bellioctl()
237 memcpy(&vtab[unit], addr, sizeof(struct opm_voice)); in bellioctl()
238 opm_set_voice(sc->ch, &vtab[unit]); in bellioctl()

12