| /netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/ |
| H A D | trans-decl.c | 352 sym_identifier (gfc_symbol *sym) in sym_identifier() argument
354 if (sym->attr.is_main_program && strcmp (sym->name, "main") == 0) in sym_identifier()
357 return sym->name; in sym_identifier()
363 gfc_sym_identifier (gfc_symbol * sym) in gfc_sym_identifier() argument
365 return get_identifier (sym_identifier (sym)); in gfc_sym_identifier()
371 mangled_identifier (gfc_symbol *sym) in mangled_identifier() argument
373 gfc_symbol *proc = sym->ns->proc_name; in mangled_identifier()
378 if (sym->attr.is_bind_c == 1 && sym->binding_label) in mangled_identifier()
379 return sym->binding_label; in mangled_identifier()
381 if (!sym->fn_result_spec in mangled_identifier()
[all …]
|
| H A D | resolve.c | 100 is_sym_host_assoc (gfc_symbol *sym, gfc_namespace *ns) in is_sym_host_assoc() argument
104 if (sym->ns == ns) in is_sym_host_assoc()
152 while (gen && strcmp (gen->sym->name, ifc->name) != 0) in check_proc_interface()
185 static void resolve_symbol (gfc_symbol *sym);
191 resolve_procedure_interface (gfc_symbol *sym) in resolve_procedure_interface() argument
193 gfc_symbol *ifc = sym->ts.interface; in resolve_procedure_interface()
198 if (ifc == sym) in resolve_procedure_interface()
201 sym->name, &sym->declared_at); in resolve_procedure_interface()
204 if (!check_proc_interface (ifc, &sym->declared_at)) in resolve_procedure_interface()
216 sym->ts = ifc->result->ts; in resolve_procedure_interface()
[all …]
|
| H A D | primary.c | 43 gfc_symbol *sym; in match_kind_param() local
56 if (gfc_find_symbol (name, NULL, 1, &sym)) in match_kind_param()
59 if (sym == NULL) in match_kind_param()
62 *is_iso_c = sym->attr.is_iso_c; in match_kind_param()
64 if (sym->attr.flavor != FL_PARAMETER) in match_kind_param()
67 if (sym->value == NULL) in match_kind_param()
70 if (gfc_extract_int (sym->value, kind)) in match_kind_param()
73 gfc_set_sym_referenced (sym); in match_kind_param()
1051 gfc_symbol *sym; in match_string_constant() local
1089 if (gfc_find_symbol (name, NULL, 1, &sym) in match_string_constant()
[all …]
|
| H A D | decl.c | 79 gfc_symbol *sym; member
279 gfc_symbol *sym; in var_element() local
298 sym = new_var->expr->symtree->n.sym; in var_element()
301 if (!gfc_check_symbol_typed (sym, gfc_current_ns, false, gfc_current_locus)) in var_element()
304 if (!sym->attr.function && gfc_current_ns->parent in var_element()
305 && gfc_current_ns->parent == sym->ns) in var_element()
308 "statement at %C", sym->name); in var_element()
313 && sym->attr.in_common in var_element()
316 sym->name)) in var_element()
319 if (!gfc_add_data (&sym->attr, sym->name, &new_var->expr->where)) in var_element()
[all …]
|
| H A D | interface.c | 238 gfc_symbol *sym; in gfc_match_interface() local
263 if (gfc_get_symbol (name, NULL, &sym)) in gfc_match_interface()
266 if (!sym->attr.generic in gfc_match_interface()
267 && !gfc_add_generic (&sym->attr, sym->name, NULL)) in gfc_match_interface()
270 if (sym->attr.dummy) in gfc_match_interface()
273 "generic interface", sym->name); in gfc_match_interface()
277 current_interface.sym = gfc_new_block = sym; in gfc_match_interface()
427 || strcmp (current_interface.sym->name, name) != 0) in gfc_match_end_interface()
430 current_interface.sym->name); in gfc_match_end_interface()
853 if (strcmp (f->sym->name, name) == 0) in find_keyword_arg()
[all …]
|
| /netbsd-src/external/mpl/dhcp/bind/dist/lib/isc/unix/ |
| H A D | pk11_api.c | 40 CK_C_Initialize sym; in pkcs_C_Initialize() local
54 sym = (CK_C_Initialize)dlsym(hPK11, "C_Initialize"); in pkcs_C_Initialize()
55 if (sym == NULL) { in pkcs_C_Initialize()
58 return ((*sym)(pReserved)); in pkcs_C_Initialize()
68 CK_C_Finalize sym; in pkcs_C_Finalize() local
74 sym = (CK_C_Finalize)dlsym(hPK11, "C_Finalize"); in pkcs_C_Finalize()
75 if (sym == NULL) { in pkcs_C_Finalize()
78 rv = (*sym)(pReserved); in pkcs_C_Finalize()
89 static CK_C_GetSlotList sym = NULL; in pkcs_C_GetSlotList() local
95 if ((sym == NULL) || (hPK11 != pPK11)) { in pkcs_C_GetSlotList()
[all …]
|
| /netbsd-src/external/gpl3/gcc/dist/gcc/fortran/ |
| H A D | trans-decl.cc | 349 sym_identifier (gfc_symbol *sym) in sym_identifier() argument
351 if (sym->attr.is_main_program && strcmp (sym->name, "main") == 0) in sym_identifier()
354 return sym->name; in sym_identifier()
360 gfc_sym_identifier (gfc_symbol * sym) in gfc_sym_identifier() argument
362 return get_identifier (sym_identifier (sym)); in gfc_sym_identifier()
368 mangled_identifier (gfc_symbol *sym) in mangled_identifier() argument
370 gfc_symbol *proc = sym->ns->proc_name; in mangled_identifier()
375 if (sym->attr.is_bind_c == 1 && sym->binding_label) in mangled_identifier()
376 return sym->binding_label; in mangled_identifier()
378 if (!sym->fn_result_spec in mangled_identifier()
[all …]
|
| H A D | resolve.cc | 100 is_sym_host_assoc (gfc_symbol *sym, gfc_namespace *ns) in is_sym_host_assoc() argument
104 if (sym->ns == ns) in is_sym_host_assoc()
152 while (gen && strcmp (gen->sym->name, ifc->name) != 0) in check_proc_interface()
185 static void resolve_symbol (gfc_symbol *sym);
191 resolve_procedure_interface (gfc_symbol *sym) in resolve_procedure_interface() argument
193 gfc_symbol *ifc = sym->ts.interface; in resolve_procedure_interface()
198 if (ifc == sym) in resolve_procedure_interface()
201 sym->name, &sym->declared_at); in resolve_procedure_interface()
204 if (!check_proc_interface (ifc, &sym->declared_at)) in resolve_procedure_interface()
216 sym->ts = ifc->result->ts; in resolve_procedure_interface()
[all …]
|
| H A D | primary.cc | 43 gfc_symbol *sym; in match_kind_param() local
56 if (gfc_find_symbol (name, NULL, 1, &sym)) in match_kind_param()
59 if (sym == NULL) in match_kind_param()
62 *is_iso_c = sym->attr.is_iso_c; in match_kind_param()
64 if (sym->attr.flavor != FL_PARAMETER) in match_kind_param()
67 if (sym->value == NULL) in match_kind_param()
70 if (gfc_extract_int (sym->value, kind)) in match_kind_param()
73 gfc_set_sym_referenced (sym); in match_kind_param()
1030 gfc_symbol *sym; in match_string_constant() local
1068 if (gfc_find_symbol (name, NULL, 1, &sym) in match_string_constant()
[all …]
|
| H A D | decl.cc | 79 gfc_symbol *sym; member
279 gfc_symbol *sym; in var_element() local
298 sym = new_var->expr->symtree->n.sym; in var_element()
301 if (!gfc_check_symbol_typed (sym, gfc_current_ns, false, gfc_current_locus)) in var_element()
304 if (!sym->attr.function && gfc_current_ns->parent in var_element()
305 && gfc_current_ns->parent == sym->ns) in var_element()
308 "statement at %C", sym->name); in var_element()
313 && sym->attr.in_common in var_element()
316 sym->name)) in var_element()
319 if (!gfc_add_data (&sym->attr, sym->name, &new_var->expr->where)) in var_element()
[all …]
|
| H A D | interface.cc | 238 gfc_symbol *sym; in gfc_match_interface() local
263 if (gfc_get_symbol (name, NULL, &sym)) in gfc_match_interface()
266 if (!sym->attr.generic in gfc_match_interface()
267 && !gfc_add_generic (&sym->attr, sym->name, NULL)) in gfc_match_interface()
270 if (sym->attr.dummy) in gfc_match_interface()
273 "generic interface", sym->name); in gfc_match_interface()
277 current_interface.sym = gfc_new_block = sym; in gfc_match_interface()
427 || strcmp (current_interface.sym->name, name) != 0) in gfc_match_end_interface()
430 current_interface.sym->name); in gfc_match_end_interface()
864 if (strcmp (f->sym->name, name) == 0) in find_keyword_arg()
[all …]
|
| /netbsd-src/usr.bin/error/ |
| H A D | error.h | 230 #define DECL_STR(sym, num, str) static char sym##_##num[] = str argument
232 #define DECL_S1(sym, s, ...) __VA_ARGS__ DECL_STR(sym, 0, s) argument
233 #define DECL_S2(sym, s, ...) DECL_STR(sym, 1, s); DECL_S1(sym, __VA_ARGS__) argument
234 #define DECL_S3(sym, s, ...) DECL_STR(sym, 2, s); DECL_S2(sym, __VA_ARGS__) argument
235 #define DECL_S4(sym, s, ...) DECL_STR(sym, 3, s); DECL_S3(sym, __VA_ARGS__) argument
236 #define DECL_S5(sym, s, ...) DECL_STR(sym, 4, s); DECL_S4(sym, __VA_ARGS__) argument
237 #define DECL_S6(sym, s, ...) DECL_STR(sym, 5, s); DECL_S5(sym, __VA_ARGS__) argument
239 #define USE_S1(sym) sym##_0 argument
240 #define USE_S2(sym) sym##_1, USE_S1(sym) argument
241 #define USE_S3(sym) sym##_2, USE_S2(sym) argument
[all …]
|
| /netbsd-src/external/gpl3/binutils.old/dist/gprof/ |
| H A D | sym_ids.c | 37 Sym sym; member
118 parse_spec (char *spec, Sym *sym) in parse_spec() argument
122 sym_init (sym); in parse_spec()
131 sym->file = source_file_lookup_name (spec); in parse_spec()
133 if (!sym->file) in parse_spec()
134 sym->file = &non_existent_file; in parse_spec()
142 sym->line_num = atoi (spec); in parse_spec()
144 sym->name = spec; in parse_spec()
152 sym->file = source_file_lookup_name (spec); in parse_spec()
154 if (!sym->file) in parse_spec()
[all …]
|
| H A D | basic_blocks.c | 124 Sym *sym; in bb_read_rec() local
166 sym = sym_lookup (&symtab, addr); in bb_read_rec()
168 if (sym) in bb_read_rec()
174 (unsigned long) addr, (unsigned long) sym->addr, in bb_read_rec()
175 sym->name, sym->line_num, (unsigned long) ncalls)); in bb_read_rec()
179 if (! sym->bb_addr[i] || sym->bb_addr[i] == addr) in bb_read_rec()
181 sym->bb_addr[i] = addr; in bb_read_rec()
182 sym->bb_calls[i] += ncalls; in bb_read_rec()
211 Sym *sym; in bb_write_blocks() local
215 for (sym = symtab.base; sym < symtab.limit; ++sym) in bb_write_blocks()
[all …]
|
| /netbsd-src/external/gpl3/binutils/dist/gprof/ |
| H A D | sym_ids.c | 37 Sym sym; member
118 parse_spec (char *spec, Sym *sym) in parse_spec() argument
122 sym_init (sym); in parse_spec()
131 sym->file = source_file_lookup_name (spec); in parse_spec()
133 if (!sym->file) in parse_spec()
134 sym->file = &non_existent_file; in parse_spec()
142 sym->line_num = atoi (spec); in parse_spec()
144 sym->name = spec; in parse_spec()
152 sym->file = source_file_lookup_name (spec); in parse_spec()
154 if (!sym->file) in parse_spec()
[all …]
|
| H A D | basic_blocks.c | 124 Sym *sym; in bb_read_rec() local
166 sym = sym_lookup (&symtab, addr); in bb_read_rec()
168 if (sym) in bb_read_rec()
174 (unsigned long) addr, (unsigned long) sym->addr, in bb_read_rec()
175 sym->name, sym->line_num, (unsigned long) ncalls)); in bb_read_rec()
179 if (! sym->bb_addr[i] || sym->bb_addr[i] == addr) in bb_read_rec()
181 sym->bb_addr[i] = addr; in bb_read_rec()
182 sym->bb_calls[i] += ncalls; in bb_read_rec()
211 Sym *sym; in bb_write_blocks() local
215 for (sym = symtab.base; sym < symtab.limit; ++sym) in bb_write_blocks()
[all …]
|
| /netbsd-src/sys/sys/ |
| H A D | cdefs_aout.h | 21 #define __indr_reference(sym,alias) /* nada, since we do weak refs */ argument
25 #define __strong_alias(alias,sym) \ argument
27 _C_LABEL_STRING(#alias) " = " _C_LABEL_STRING(#sym));
28 #define __weak_alias(alias,sym) \ argument
30 _C_LABEL_STRING(#alias) " = " _C_LABEL_STRING(#sym));
33 #define __weak_extern(sym) \ argument
34 __asm(".weak " _C_LABEL_STRING(#sym));
37 #define __weak_reference(sym) __attribute__((__weakref__)) argument
39 #define __weak_reference(sym) ; __asm(".weak " _C_LABEL_STRING(#sym)) argument
42 #define __warn_references(sym,msg) \ argument
[all …]
|
| H A D | cdefs_elf.h | 52 #define __indr_reference(sym,alias) /* nada, since we do weak refs */ argument
55 #define __strong_alias(alias,sym) \ argument
57 _C_LABEL_STRING(#alias) " = " _C_LABEL_STRING(#sym));
59 #define __weak_alias(alias,sym) \ argument
61 _C_LABEL_STRING(#alias) " = " _C_LABEL_STRING(#sym));
64 #define __weak_extern(sym) \ argument
65 __asm(".weak " _C_LABEL_STRING(#sym));
74 #define __weak_reference(sym) __attribute__((__weakref__(#sym))) argument
76 #define __weak_reference(sym) ; __asm(".weak " _C_LABEL_STRING(#sym)) argument
85 #define __warn_references(sym,msg) \ argument
[all …]
|
| /netbsd-src/external/gpl3/binutils/dist/gas/config/ |
| H A D | obj-aout.c | 28 obj_aout_frob_symbol (symbolS *sym, int *punt ATTRIBUTE_UNUSED) in obj_aout_frob_symbol() argument
34 flags = symbol_get_bfdsym (sym)->flags; in obj_aout_frob_symbol()
35 type = aout_symbol (symbol_get_bfdsym (sym))->type; in obj_aout_frob_symbol()
36 sec = S_GET_SEGMENT (sym); in obj_aout_frob_symbol()
45 S_SET_SEGMENT (sym, sec); in obj_aout_frob_symbol()
68 symbol_get_bfdsym (sym)->flags |= BSF_DEBUGGING; in obj_aout_frob_symbol()
80 if (S_IS_COMMON (sym)) in obj_aout_frob_symbol()
82 S_GET_NAME (sym)); in obj_aout_frob_symbol()
84 else if (! S_IS_DEFINED (sym)) in obj_aout_frob_symbol()
86 S_GET_NAME (sym)); in obj_aout_frob_symbol()
[all …]
|
| /netbsd-src/external/gpl3/binutils.old/dist/gas/config/ |
| H A D | obj-aout.c | 28 obj_aout_frob_symbol (symbolS *sym, int *punt ATTRIBUTE_UNUSED) in obj_aout_frob_symbol() argument
34 flags = symbol_get_bfdsym (sym)->flags; in obj_aout_frob_symbol()
35 type = aout_symbol (symbol_get_bfdsym (sym))->type; in obj_aout_frob_symbol()
36 sec = S_GET_SEGMENT (sym); in obj_aout_frob_symbol()
45 S_SET_SEGMENT (sym, sec); in obj_aout_frob_symbol()
68 symbol_get_bfdsym (sym)->flags |= BSF_DEBUGGING; in obj_aout_frob_symbol()
80 if (S_IS_COMMON (sym)) in obj_aout_frob_symbol()
82 S_GET_NAME (sym)); in obj_aout_frob_symbol()
84 else if (! S_IS_DEFINED (sym)) in obj_aout_frob_symbol()
86 S_GET_NAME (sym)); in obj_aout_frob_symbol()
[all …]
|
| /netbsd-src/usr.bin/xlint/lint1/ |
| H A D | decl.c | 408 set_first_typedef(type_t *tp, sym_t *sym) in set_first_typedef()
413 tp->u.sou->sou_first_typedef = sym; in set_first_typedef()
415 tp->u.enumer->en_first_typedef = sym; in set_first_typedef()
874 check_type(sym_t *sym) in check_type()
877 type_t **tpp = &sym->s_type; in check_type()
887 !(to == NO_TSPEC && sym->s_osdef)) { in check_type()
931 if (sym->s_scl != ABSTRACT) { in check_type()
932 lint_assert(sym->s_name != unnamed); in check_type()
934 error(61, sym->s_name); in check_type()
939 } else if (sym in check_type()
406 set_first_typedef(type_t * tp,sym_t * sym) set_first_typedef() argument
871 check_type(sym_t * sym) check_type() argument
1320 for (sym_t *sym = dcs->d_first_dlsym; check_prototype_parameters() local
1424 check_function_definition(sym_t * sym,bool msg) check_function_definition() argument
1438 declarator_name(sym_t * sym) declarator_name() argument
1533 old_style_function_parameter_name(sym_t * sym) old_style_function_parameter_name() argument
1753 enumeration_constant(sym_t * sym,int val,bool impl) enumeration_constant() argument
1804 check_extern_declaration(const sym_t * sym) check_extern_declaration() argument
1831 check_init(sym_t * sym) check_init() argument
2057 copy_usage_info(sym_t * sym,sym_t * rdsym) copy_usage_info() argument
2323 declare_parameter(sym_t * sym,bool has_initializer) declare_parameter() argument
2764 sym_t *sym = block_zero_alloc(sizeof(*sym), "sym"); abstract_name_level() local
2813 declare_abstract_type(sym_t * sym) declare_abstract_type() argument
2843 mark_as_set(sym_t * sym) mark_as_set() argument
2854 mark_as_used(sym_t * sym,bool fcall,bool szof) mark_as_used() argument
2881 for (sym_t *sym = dl->d_first_dlsym; check_usage() local
2903 check_variable_usage(bool novar,const sym_t * sym) check_variable_usage() argument
2989 check_tag_usage(const sym_t * sym) check_tag_usage() argument
3018 check_usage_sym(bool novar,const sym_t * sym) check_usage_sym() argument
3035 check_global_variable_size(const sym_t * sym) check_global_variable_size() argument
3067 check_unused_static_global_variable(const sym_t * sym) check_unused_static_global_variable() argument
3086 check_static_global_variable(const sym_t * sym) check_static_global_variable() argument
3101 check_global_variable(const sym_t * sym) check_global_variable() argument
3126 for (const sym_t *sym = dcs->d_first_dlsym; end_translation_unit() local
[all...] |
| H A D | lex.c | 234 symtab_add(sym_t *sym) in symtab_add()
236 unsigned int h = hash(sym->s_name); in symtab_add()
237 if ((sym->s_symtab_next = symtab[h]) != NULL) in symtab_add()
238 symtab[h]->s_symtab_ref = &sym->s_symtab_next; in symtab_add()
239 sym->s_symtab_ref = &symtab[h]; in symtab_add()
240 symtab[h] = sym; in symtab_add()
248 for (sym_t *sym = symtab[h]; sym != NULL; sym = sym in symtab_search()
233 symtab_add(sym_t * sym) symtab_add() argument
247 for (sym_t *sym = symtab[h]; sym != NULL; sym = sym->s_symtab_next) { symtab_search() local
260 symtab_remove(sym_t * sym) symtab_remove() argument
273 for (sym_t *sym = symtab[i]; sym != NULL; ) { symtab_remove_locals() local
299 syms_add(struct syms * syms,const sym_t * sym) syms_add() argument
321 for (sym_t *sym = symtab[i]; sym != NULL;) { debug_symtab() local
366 sym_t *sym = block_zero_alloc(sizeof(*sym), "sym"); register_keyword() local
446 lex_keyword(sym_t * sym) lex_keyword() argument
474 sym_t *sym = symtab_search(text); lex_name() local
1331 sym_t *sym = sb->sb_sym; getsym() local
1400 sym_t *sym = block_zero_alloc(sizeof(*sym), "sym"); mktempsym() local
1426 symtab_remove_forever(sym_t * sym) symtab_remove_forever() argument
1450 for (sym_t *sym = syms; sym != NULL; sym = sym->s_level_next) { symtab_remove_level() local
1463 inssym(int level,sym_t * sym) inssym() argument
1490 pushdown(const sym_t * sym) pushdown() argument
[all...] |
| /netbsd-src/usr.sbin/tprof/ |
| H A D | ksyms.c | 46 static struct sym **syms = NULL;
52 const struct sym *s1 = *(const struct sym * const *)p1; in compare_value()
53 const struct sym *s2 = *(const struct sym * const *)p2; in compare_value()
72 struct sym **
115 struct sym *sym; in ksymload() local
124 sym = emalloc(sizeof(*sym)); in ksymload()
125 sym->name = estrdup(elf_strptr(e, sh->sh_link, st->st_name)); in ksymload()
126 sym->value = (uint64_t)st->st_value; in ksymload()
127 sym->size = st->st_size; in ksymload()
130 syms[nsyms - 1] = sym; in ksymload()
[all …]
|
| /netbsd-src/external/gpl3/binutils/dist/gold/ |
| H A D | symtab.cc | 118 const elfcpp::Sym<size, big_endian>& sym, in init_base_object() argument
121 this->init_fields(name, version, sym.get_st_type(), sym.get_st_bind(), in init_base_object()
122 sym.get_st_visibility(), sym.get_st_nonvis()); in init_base_object()
220 const elfcpp::Sym<size, big_endian>& sym, in init_object() argument
223 this->init_base_object(name, version, object, sym, st_shndx, is_ordinary); in init_object()
224 this->value_ = sym.get_st_value(); in init_object()
225 this->symsize_ = sym.get_st_size(); in init_object()
610 Symbol* sym = this->lookup(name); in gc_mark_undef_symbols() local
611 gold_assert(sym != NULL); in gc_mark_undef_symbols()
612 if (sym->source() == Symbol::FROM_OBJECT in gc_mark_undef_symbols()
[all …]
|
| /netbsd-src/external/gpl3/binutils.old/dist/gold/ |
| H A D | symtab.cc | 118 const elfcpp::Sym<size, big_endian>& sym, in init_base_object() argument
121 this->init_fields(name, version, sym.get_st_type(), sym.get_st_bind(), in init_base_object()
122 sym.get_st_visibility(), sym.get_st_nonvis()); in init_base_object()
220 const elfcpp::Sym<size, big_endian>& sym, in init_object() argument
223 this->init_base_object(name, version, object, sym, st_shndx, is_ordinary); in init_object()
224 this->value_ = sym.get_st_value(); in init_object()
225 this->symsize_ = sym.get_st_size(); in init_object()
610 Symbol* sym = this->lookup(name); in gc_mark_undef_symbols() local
611 gold_assert(sym != NULL); in gc_mark_undef_symbols()
612 if (sym->source() == Symbol::FROM_OBJECT in gc_mark_undef_symbols()
[all …]
|