gdb/gdb/stabsread.c

2114 read_member_functions (struct field_info *fip, char **pp, struct type *type,
2516 	      destr_fnlist->next = fip->fnlist;
2517 	      fip->fnlist = destr_fnlist;
2565 	  new_fnlist->next = fip->fnlist;
2566 	  fip->fnlist = new_fnlist;
2592 read_cpp_abbrev (struct field_info *fip, char **pp, struct type *type,
2623 	  fip->list->field.name =
2636 	  fip->list->field.name =
2642 	  fip->list->field.name =
2657       fip->list->field.type = read_type (pp, objfile);
2665 	FIELD_BITPOS (fip->list->field) = read_huge_number (pp, ';', &nbits);
2670       FIELD_BITSIZE (fip->list->field) = 0;
2671       fip->list->visibility = VISIBILITY_PRIVATE;
2685 read_one_struct_field (struct field_info *fip, char **pp, char *p,
2688   fip->list->field.name =
2696       fip->list->visibility = *(*pp)++;
2701       fip->list->visibility = VISIBILITY_PUBLIC;
2704   fip->list->field.type = read_type (pp, objfile);
2712 	  fip->list->field.bitpos = (long) -2;	/* nested type */
2723       SET_FIELD_PHYSNAME (fip->list->field, savestring (*pp, p - *pp));
2738     FIELD_BITPOS (fip->list->field) = read_huge_number (pp, ',', &nbits);
2744     FIELD_BITSIZE (fip->list->field) = read_huge_number (pp, ';', &nbits);
2752   if (FIELD_BITPOS (fip->list->field) == 0
2753       && FIELD_BITSIZE (fip->list->field) == 0)
2770       fip->list->visibility = VISIBILITY_IGNORE;
2779       struct type *field_type = check_typedef (FIELD_TYPE (fip->list->field));
2786 	  FIELD_BITSIZE (fip->list->field) = 0;
2788       if ((FIELD_BITSIZE (fip->list->field)
2791 	       && FIELD_BITSIZE (fip->list->field) == TARGET_INT_BIT)
2794 	  FIELD_BITPOS (fip->list->field) % 8 == 0)
2796 	  FIELD_BITSIZE (fip->list->field) = 0;
2823 read_struct_fields (struct field_info *fip, char **pp, struct type *type,
2846       new->next = fip->list;
2847       fip->list = new;
2859 	  if (!read_cpp_abbrev (fip, pp, type, objfile))
2881       read_one_struct_field (fip, pp, p, type, objfile);
2888       fip->list = fip->list->next;
2921 read_baseclasses (struct field_info *fip, char **pp, struct type *type,
2967       new->next = fip->list;
2968       fip->list = new;
3044 read_tilde_fields (struct field_info *fip, char **pp, struct type *type,
3126 attach_fn_fields_to_type (struct field_info *fip, struct type *type)
3131        fip->fnlist != NULL;
3132        fip->fnlist = fip->fnlist->next)
3135       TYPE_FN_FIELDLISTS (type)[n] = fip->fnlist->fn_fieldlist;
3145 attach_fields_to_type (struct field_info *fip, struct type *type,
3157   for (scan = fip->list; scan != NULL; scan = scan->next)
3198       TYPE_FIELD (type, nfields) = fip->list->field;
3199       switch (fip->list->visibility)
3220 		       fip->list->visibility);
3224       fip->list = fip->list->next;