gdb/gdb/stabsread.c

2158 read_member_functions (struct field_info *fip, char **pp, struct type *type,
2560 	      destr_fnlist->next = fip->fnlist;
2561 	      fip->fnlist = destr_fnlist;
2609 	  new_fnlist->next = fip->fnlist;
2610 	  fip->fnlist = new_fnlist;
2636 read_cpp_abbrev (struct field_info *fip, char **pp, struct type *type,
2667 	  fip->list->field.name =
2680 	  fip->list->field.name =
2686 	  fip->list->field.name =
2701       fip->list->field.type = read_type (pp, objfile);
2709 	FIELD_BITPOS (fip->list->field) = read_huge_number (pp, ';', &nbits);
2714       FIELD_BITSIZE (fip->list->field) = 0;
2715       fip->list->visibility = VISIBILITY_PRIVATE;
2729 read_one_struct_field (struct field_info *fip, char **pp, char *p,
2732   fip->list->field.name =
2740       fip->list->visibility = *(*pp)++;
2745       fip->list->visibility = VISIBILITY_PUBLIC;
2748   fip->list->field.type = read_type (pp, objfile);
2756 	  fip->list->field.bitpos = (long) -2;	/* nested type */
2767       SET_FIELD_PHYSNAME (fip->list->field, savestring (*pp, p - *pp));
2782     FIELD_BITPOS (fip->list->field) = read_huge_number (pp, ',', &nbits);
2788     FIELD_BITSIZE (fip->list->field) = read_huge_number (pp, ';', &nbits);
2796   if (FIELD_BITPOS (fip->list->field) == 0
2797       && FIELD_BITSIZE (fip->list->field) == 0)
2814       fip->list->visibility = VISIBILITY_IGNORE;
2823       struct type *field_type = check_typedef (FIELD_TYPE (fip->list->field));
2830 	  FIELD_BITSIZE (fip->list->field) = 0;
2832       if ((FIELD_BITSIZE (fip->list->field)
2835 	       && FIELD_BITSIZE (fip->list->field) == TARGET_INT_BIT)
2838 	  FIELD_BITPOS (fip->list->field) % 8 == 0)
2840 	  FIELD_BITSIZE (fip->list->field) = 0;
2867 read_struct_fields (struct field_info *fip, char **pp, struct type *type,
2890       new->next = fip->list;
2891       fip->list = new;
2903 	  if (!read_cpp_abbrev (fip, pp, type, objfile))
2925       read_one_struct_field (fip, pp, p, type, objfile);
2932       fip->list = fip->list->next;
2965 read_baseclasses (struct field_info *fip, char **pp, struct type *type,
3011       new->next = fip->list;
3012       fip->list = new;
3088 read_tilde_fields (struct field_info *fip, char **pp, struct type *type,
3170 attach_fn_fields_to_type (struct field_info *fip, struct type *type)
3175        fip->fnlist != NULL;
3176        fip->fnlist = fip->fnlist->next)
3179       TYPE_FN_FIELDLISTS (type)[n] = fip->fnlist->fn_fieldlist;
3189 attach_fields_to_type (struct field_info *fip, struct type *type,
3201   for (scan = fip->list; scan != NULL; scan = scan->next)
3242       TYPE_FIELD (type, nfields) = fip->list->field;
3243       switch (fip->list->visibility)
3264 		       fip->list->visibility);
3268       fip->list = fip->list->next;