gdb/gdb/gdbtypes.c

139 static void virtual_base_list_aux (struct type *dclass);
1842 is_ancestor (struct type *base, struct type *dclass)
1847   CHECK_TYPEDEF (dclass);
1849   if (base == dclass)
1851   if (TYPE_NAME (base) && TYPE_NAME (dclass) &&
1852       !strcmp (TYPE_NAME (base), TYPE_NAME (dclass)))
1855   for (i = 0; i < TYPE_N_BASECLASSES (dclass); i++)
1856     if (is_ancestor (base, TYPE_BASECLASS (dclass, i)))
1869 has_vtable (struct type *dclass)
1876   if (TYPE_CODE (dclass) != TYPE_CODE_CLASS)
1880   if (TYPE_FIELD_VIRTUAL_BITS (dclass))
1881     for (i = 0; i < TYPE_N_BASECLASSES (dclass); i++)
1882       if (B_TST (TYPE_FIELD_VIRTUAL_BITS (dclass), i))
1886   if (TYPE_FN_FIELDLISTS (dclass))
1887     for (i = 0; i < TYPE_NFN_FIELDS (dclass); i++)
1888       if (TYPE_FN_FIELD_VIRTUAL_P (TYPE_FN_FIELDLIST1 (dclass, i), 0))
1892   if (TYPE_FIELD_VIRTUAL_BITS (dclass))
1893     for (i = 0; i < TYPE_N_BASECLASSES (dclass); i++)
1894       if ((!B_TST (TYPE_FIELD_VIRTUAL_BITS (dclass), i)) &&
1895 	  (has_vtable (TYPE_FIELD_TYPE (dclass, i))))
1911 primary_base_class (struct type *dclass)
1919   if (TYPE_CODE (dclass) != TYPE_CODE_CLASS)
1922   for (i = 0; i < TYPE_N_BASECLASSES (dclass); i++)
1923     if (!TYPE_FIELD_VIRTUAL (dclass, i) &&
1924 	has_vtable (TYPE_FIELD_TYPE (dclass, i)))
1925       return TYPE_FIELD_TYPE (dclass, i);
1943 virtual_base_list_aux (struct type *dclass)
1948   if (TYPE_CODE (dclass) != TYPE_CODE_CLASS)
1951   for (i = 0; i < TYPE_N_BASECLASSES (dclass); i++)
1954       virtual_base_list_aux (TYPE_FIELD_TYPE (dclass, i));
1957       if (BASETYPE_VIA_VIRTUAL (dclass, i))
1959 	  struct type *basetype = TYPE_FIELD_TYPE (dclass, i);
2001 virtual_base_list (struct type *dclass)
2010   virtual_base_list_aux (dclass);
2038 virtual_base_list_length (struct type *dclass)
2044   virtual_base_list_aux (dclass);
2056 virtual_base_list_length_skip_primaries (struct type *dclass)
2062   primary = TYPE_RUNTIME_PTR (dclass) ? TYPE_PRIMARY_BASE (dclass) : NULL;
2065     return virtual_base_list_length (dclass);
2068   virtual_base_list_aux (dclass);
2085 virtual_base_index (struct type *base, struct type *dclass)
2090   if ((TYPE_CODE (dclass) != TYPE_CODE_CLASS) ||
2095   vbase = virtual_base_list (dclass)[0];
2100       vbase = virtual_base_list (dclass)[++i];
2115 virtual_base_index_skip_primaries (struct type *base, struct type *dclass)
2121   if ((TYPE_CODE (dclass) != TYPE_CODE_CLASS) ||
2125   primary = TYPE_RUNTIME_PTR (dclass) ? TYPE_PRIMARY_BASE (dclass) : NULL;
2129   vbase = virtual_base_list (dclass)[0];
2136       vbase = virtual_base_list (dclass)[++i];
2147 class_index_in_primary_list (struct type *dclass)
2152   pbc = TYPE_PRIMARY_BASE (dclass);
2169 count_virtual_fns (struct type *dclass)
2175   struct type *pbc = primary_base_class (dclass);
2181   for (fn = 0; fn < TYPE_NFN_FIELDS (dclass); fn++)
2182     for (oi = 0; oi < TYPE_FN_FIELDLIST_LENGTH (dclass, fn); oi++)
2183       if (TYPE_FN_FIELD_VIRTUAL_P (TYPE_FN_FIELDLIST1 (dclass, fn), oi))