gdb/gdb/ada-lang.c

2924 ada_resolve_function (struct ada_symbol_info syms[],
2944           struct type *type = ada_check_typedef (SYMBOL_TYPE (syms[k].sym));
2946           if (ada_args_match (syms[k].sym, args, nargs)
2949               syms[m] = syms[k];
2964       user_select_syms (syms, m, 1);
3011 sort_choices (struct ada_symbol_info syms[], int nsyms)
3016       struct ada_symbol_info sym = syms[i];
3021           if (encoded_ordered_before (SYMBOL_LINKAGE_NAME (syms[j].sym),
3024           syms[j + 1] = syms[j];
3026       syms[j + 1] = sym;
3039 user_select_syms (struct ada_symbol_info *syms, int nsyms, int max_results)
3055   sort_choices (syms, nsyms);
3059       if (syms[i].sym == NULL)
3062       if (SYMBOL_CLASS (syms[i].sym) == LOC_BLOCK)
3065             find_function_start_sal (syms[i].sym, 1);
3067                              SYMBOL_PRINT_NAME (syms[i].sym),
3076             (SYMBOL_CLASS (syms[i].sym) == LOC_CONST
3077              && SYMBOL_TYPE (syms[i].sym) != NULL
3078              && TYPE_CODE (SYMBOL_TYPE (syms[i].sym)) == TYPE_CODE_ENUM);
3079           struct symtab *symtab = symtab_for_sym (syms[i].sym);
3081           if (SYMBOL_LINE (syms[i].sym) != 0 && symtab != NULL)
3084                                SYMBOL_PRINT_NAME (syms[i].sym),
3085                                symtab->filename, SYMBOL_LINE (syms[i].sym));
3087                    && TYPE_NAME (SYMBOL_TYPE (syms[i].sym)) != NULL)
3090               ada_print_type (SYMBOL_TYPE (syms[i].sym), NULL,
3093                                  SYMBOL_PRINT_NAME (syms[i].sym));
3100                                SYMBOL_PRINT_NAME (syms[i].sym),
3107                                SYMBOL_PRINT_NAME (syms[i].sym));
3115     syms[i] = syms[chosen[i]];
3673 is_nonfunction (struct ada_symbol_info syms[], int n)
3678     if (TYPE_CODE (SYMBOL_TYPE (syms[i].sym)) != TYPE_CODE_FUNC
3679         && (TYPE_CODE (SYMBOL_TYPE (syms[i].sym)) != TYPE_CODE_ENUM
3680             || SYMBOL_CLASS (syms[i].sym) != LOC_CONST))
4084 remove_extra_symbols (struct ada_symbol_info *syms, int nsyms)
4091       if (SYMBOL_LINKAGE_NAME (syms[i].sym) != NULL
4092           && SYMBOL_CLASS (syms[i].sym) == LOC_STATIC
4093           && is_nondebugging_type (SYMBOL_TYPE (syms[i].sym)))
4098                   && SYMBOL_LINKAGE_NAME (syms[j].sym) != NULL
4099                   && strcmp (SYMBOL_LINKAGE_NAME (syms[i].sym),
4100                              SYMBOL_LINKAGE_NAME (syms[j].sym)) == 0
4101                   && SYMBOL_CLASS (syms[i].sym) == SYMBOL_CLASS (syms[j].sym)
4102                   && SYMBOL_VALUE_ADDRESS (syms[i].sym)
4103                   == SYMBOL_VALUE_ADDRESS (syms[j].sym))
4107                     syms[k - 1] = syms[k];
4246 remove_out_of_scope_renamings (struct ada_symbol_info *syms,
4274       if (ada_is_object_renaming (syms[i].sym)
4275           && !renaming_is_visible (syms[i].sym, current_function_name))
4279             syms[j - 1] = syms[j];
8066   struct ada_symbol_info *syms;
8070                                   &syms);
8080   return value_of_variable (syms[0].sym, syms[0].block);