gdb/gdb/ada-lang.c

1225   struct symbol **syms;
1240 			      VAR_DOMAIN, &syms, &blocks);
1242     if (syms[i] != NULL && SYMBOL_CLASS (syms[i]) == LOC_TYPEDEF
1243 	&& DEPRECATED_STREQ (name, ada_type_name (SYMBOL_TYPE (syms[i]))))
1250   shadow_type = SYMBOL_TYPE (syms[i]);
2476 ada_resolve_function (struct symbol *syms[], struct block *blocks[],
2496 	  struct type *type = check_typedef (SYMBOL_TYPE (syms[k]));
2498 	  if (ada_args_match (syms[k], args, nargs)
2499 	      && return_match (SYMBOL_TYPE (syms[k]), return_type))
2501 	      syms[m] = syms[k];
2518       user_select_syms (syms, blocks, m, 1);
2564 sort_choices (struct symbol *syms[], struct block *blocks[], int nsyms)
2569       struct symbol *sym = syms[i];
2575 	  if (mangled_ordered_before (DEPRECATED_SYMBOL_NAME (syms[j]),
2578 	  syms[j + 1] = syms[j];
2581       syms[j + 1] = sym;
2597 user_select_syms (struct symbol *syms[], struct block *blocks[], int nsyms,
2614   sort_choices (syms, blocks, nsyms);
2618       if (syms[i] == NULL)
2621       if (SYMBOL_CLASS (syms[i]) == LOC_BLOCK)
2623 	  struct symtab_and_line sal = find_function_start_sal (syms[i], 1);
2626 			     SYMBOL_PRINT_NAME (syms[i]),
2635 	    (SYMBOL_CLASS (syms[i]) == LOC_CONST
2636 	     && SYMBOL_TYPE (syms[i]) != NULL
2637 	     && TYPE_CODE (SYMBOL_TYPE (syms[i])) == TYPE_CODE_ENUM);
2638 	  struct symtab *symtab = symtab_for_sym (syms[i]);
2640 	  if (SYMBOL_LINE (syms[i]) != 0 && symtab != NULL)
2643 			       SYMBOL_PRINT_NAME (syms[i]),
2644 			       symtab->filename, SYMBOL_LINE (syms[i]));
2645 	  else if (is_enumeral && TYPE_NAME (SYMBOL_TYPE (syms[i])) != NULL)
2648 	      ada_print_type (SYMBOL_TYPE (syms[i]), NULL, gdb_stdout, -1, 0);
2650 				 SYMBOL_PRINT_NAME (syms[i]));
2657 			       SYMBOL_PRINT_NAME (syms[i]),
2664 			       SYMBOL_PRINT_NAME (syms[i]));
2673       syms[i] = syms[chosen[i]];
3202 is_nonfunction (struct symbol *syms[], int n)
3207     if (TYPE_CODE (SYMBOL_TYPE (syms[i])) != TYPE_CODE_FUNC
3208 	&& TYPE_CODE (SYMBOL_TYPE (syms[i])) != TYPE_CODE_ENUM)
3606 remove_extra_symbols (struct symbol **syms, struct block **blocks, int nsyms)
3613       if (DEPRECATED_SYMBOL_NAME (syms[i]) != NULL
3614 	  && SYMBOL_CLASS (syms[i]) == LOC_STATIC
3615 	  && is_nondebugging_type (SYMBOL_TYPE (syms[i])))
3620 		  && DEPRECATED_SYMBOL_NAME (syms[j]) != NULL
3621 		  && DEPRECATED_STREQ (DEPRECATED_SYMBOL_NAME (syms[i]), DEPRECATED_SYMBOL_NAME (syms[j]))
3622 		  && SYMBOL_CLASS (syms[i]) == SYMBOL_CLASS (syms[j])
3623 		  && SYMBOL_VALUE_ADDRESS (syms[i])
3624 		  == SYMBOL_VALUE_ADDRESS (syms[j]))
3629 		      syms[k - 1] = syms[k];
3657 			domain_enum domain, struct symbol ***syms,
3810   *syms = defn_symbols;
5863   struct symbol **syms;
7770   struct symbol **syms;
7776 			    &syms, &blocks);
7786   return value_of_variable (syms[0], blocks[0]);