if (hp_som_som_object_present)
if (deprecated_hp_som_som_object_present)
c_type_print_base (struct type *type, struct ui_file *stream, int show,		   int level){  int i;  int len, real_len;  int lastval;  char *mangled_name;  char *demangled_name;  char *demangled_no_static;  enum    {      s_none, s_public, s_private, s_protected    }  section_type;  int need_access_label = 0;  int j, len2;  QUIT;  wrap_here ("    ");  if (type == NULL)    {      fputs_filtered ("<type unknown>", stream);      return;    }  /* When SHOW is zero or less, and there is a valid type name, then always     just print the type name directly from the type.  */  /* If we have "typedef struct foo {. . .} bar;" do we want to print it     as "struct foo" or as "bar"?  Pick the latter, because C++ folk tend     to expect things like "class5 *foo" rather than "struct class5 *foo".  */  if (show <= 0      && TYPE_NAME (type) != NULL)    {      c_type_print_modifier (type, stream, 0, 1);      fputs_filtered (TYPE_NAME (type), stream);      return;    }  CHECK_TYPEDEF (type);  switch (TYPE_CODE (type))    {    case TYPE_CODE_TYPEDEF:    case TYPE_CODE_ARRAY:    case TYPE_CODE_PTR:    case TYPE_CODE_MEMBER:    case TYPE_CODE_REF:    case TYPE_CODE_FUNC:    case TYPE_CODE_METHOD:      c_type_print_base (TYPE_TARGET_TYPE (type), stream, show, level);      break;    case TYPE_CODE_STRUCT:      c_type_print_modifier (type, stream, 0, 1);      /* Note TYPE_CODE_STRUCT and TYPE_CODE_CLASS have the same value,       * so we use another means for distinguishing them.       */      if (HAVE_CPLUS_STRUCT (type))	{	  switch (TYPE_DECLARED_TYPE (type))	    {	    case DECLARED_TYPE_CLASS:	      fprintf_filtered (stream, "class ");	      break;	    case DECLARED_TYPE_UNION:	      fprintf_filtered (stream, "union ");	      break;	    case DECLARED_TYPE_STRUCT:	      fprintf_filtered (stream, "struct ");	      break;	    default:	      /* If there is a CPLUS_STRUCT, assume class if not	       * otherwise specified in the declared_type field.	       */	      fprintf_filtered (stream, "class ");	      break;	    }			/* switch */	}      else	{	  /* If not CPLUS_STRUCT, then assume it's a C struct */	  fprintf_filtered (stream, "struct ");	}      goto struct_union;    case TYPE_CODE_UNION:      c_type_print_modifier (type, stream, 0, 1);      fprintf_filtered (stream, "union ");    struct_union:      /* Print the tag if it exists.        * The HP aCC compiler emits       * a spurious "{unnamed struct}"/"{unnamed union}"/"{unnamed enum}"       * tag  for unnamed struct/union/enum's, which we don't       * want to print.       */      if (TYPE_TAG_NAME (type) != NULL &&	  strncmp (TYPE_TAG_NAME (type), "{unnamed", 8))	{	  fputs_filtered (TYPE_TAG_NAME (type), stream);	  if (show > 0)	    fputs_filtered (" ", stream);	}      wrap_here ("    ");      if (show < 0)	{	  /* If we just printed a tag name, no need to print anything else.  */	  if (TYPE_TAG_NAME (type) == NULL)	    fprintf_filtered (stream, "{...}");	}      else if (show > 0 || TYPE_TAG_NAME (type) == NULL)	{	  cp_type_print_derivation_info (stream, type);	  fprintf_filtered (stream, "{\n");	  if ((TYPE_NFIELDS (type) == 0) && (TYPE_NFN_FIELDS (type) == 0))	    {	      if (TYPE_STUB (type))		fprintfi_filtered (level + 4, stream, "<incomplete type>\n");	      else		fprintfi_filtered (level + 4, stream, "<no data fields>\n");	    }	  /* Start off with no specific section type, so we can print	     one for the first field we find, and use that section type	     thereafter until we find another type. */	  section_type = s_none;	  /* For a class, if all members are private, there's no need	     for a "private:" label; similarly, for a struct or union	     masquerading as a class, if all members are public, there's	     no need for a "public:" label. */	  if ((TYPE_DECLARED_TYPE (type) == DECLARED_TYPE_CLASS) ||	      (TYPE_DECLARED_TYPE (type) == DECLARED_TYPE_TEMPLATE))	    {	      QUIT;	      len = TYPE_NFIELDS (type);	      for (i = TYPE_N_BASECLASSES (type); i < len; i++)		if (!TYPE_FIELD_PRIVATE (type, i))		  {		    need_access_label = 1;		    break;		  }	      QUIT;	      if (!need_access_label)		{		  len2 = TYPE_NFN_FIELDS (type);		  for (j = 0; j < len2; j++)		    {		      len = TYPE_FN_FIELDLIST_LENGTH (type, j);		      for (i = 0; i < len; i++)			if (!TYPE_FN_FIELD_PRIVATE (TYPE_FN_FIELDLIST1 (type, j), i))			  {			    need_access_label = 1;			    break;			  }		      if (need_access_label)			break;		    }		}	    }	  else if ((TYPE_DECLARED_TYPE (type) == DECLARED_TYPE_STRUCT) ||		   (TYPE_DECLARED_TYPE (type) == DECLARED_TYPE_UNION))	    {	      QUIT;	      len = TYPE_NFIELDS (type);	      for (i = TYPE_N_BASECLASSES (type); i < len; i++)		if (TYPE_FIELD_PRIVATE (type, i) || TYPE_FIELD_PROTECTED (type, i))		  {		    need_access_label = 1;		    break;		  }	      QUIT;	      if (!need_access_label)		{		  len2 = TYPE_NFN_FIELDS (type);		  for (j = 0; j < len2; j++)		    {		      QUIT;		      len = TYPE_FN_FIELDLIST_LENGTH (type, j);		      for (i = 0; i < len; i++)			if (TYPE_FN_FIELD_PRIVATE (TYPE_FN_FIELDLIST1 (type, j), i) ||			    TYPE_FN_FIELD_PROTECTED (TYPE_FN_FIELDLIST1 (type, j), i))			  {			    need_access_label = 1;			    break;			  }		      if (need_access_label)			break;		    }		}	    }	  /* If there is a base class for this type,	     do not print the field that it occupies.  */	  len = TYPE_NFIELDS (type);	  for (i = TYPE_N_BASECLASSES (type); i < len; i++)	    {	      QUIT;	      /* Don't print out virtual function table.  */	      /* HP ANSI C++ case */	      if (TYPE_HAS_VTABLE (type)		  && (strncmp (TYPE_FIELD_NAME (type, i), "__vfp", 5) == 0))		continue;	      /* Other compilers */	      if (strncmp (TYPE_FIELD_NAME (type, i), "_vptr", 5) == 0		  && is_cplus_marker ((TYPE_FIELD_NAME (type, i))[5]))		continue;	      /* If this is a C++ class we can print the various C++ section	         labels. */	      if (HAVE_CPLUS_STRUCT (type) && need_access_label)		{		  if (TYPE_FIELD_PROTECTED (type, i))		    {		      if (section_type != s_protected)			{			  section_type = s_protected;			  fprintfi_filtered (level + 2, stream,					     "protected:\n");			}		    }		  else if (TYPE_FIELD_PRIVATE (type, i))		    {		      if (section_type != s_private)			{			  section_type = s_private;			  fprintfi_filtered (level + 2, stream, "private:\n");			}		    }		  else		    {		      if (section_type != s_public)			{			  section_type = s_public;			  fprintfi_filtered (level + 2, stream, "public:\n");			}		    }		}	      print_spaces_filtered (level + 4, stream);	      if (TYPE_FIELD_STATIC (type, i))		{		  fprintf_filtered (stream, "static ");		}	      c_print_type (TYPE_FIELD_TYPE (type, i),			    TYPE_FIELD_NAME (type, i),			    stream, show - 1, level + 4);	      if (!TYPE_FIELD_STATIC (type, i)		  && TYPE_FIELD_PACKED (type, i))		{		  /* It is a bitfield.  This code does not attempt		     to look at the bitpos and reconstruct filler,		     unnamed fields.  This would lead to misleading		     results if the compiler does not put out fields		     for such things (I don't know what it does).  */		  fprintf_filtered (stream, " : %d",				    TYPE_FIELD_BITSIZE (type, i));		}	      fprintf_filtered (stream, ";\n");	    }	  /* If there are both fields and methods, put a blank line	      between them.  Make sure to count only method that we will	      display; artificial methods will be hidden.  */	  len = TYPE_NFN_FIELDS (type);	  real_len = 0;	  for (i = 0; i < len; i++)	    {	      struct fn_field *f = TYPE_FN_FIELDLIST1 (type, i);	      int len2 = TYPE_FN_FIELDLIST_LENGTH (type, i);	      int j;	      for (j = 0; j < len2; j++)		if (!TYPE_FN_FIELD_ARTIFICIAL (f, j))		  real_len++;	    }	  if (real_len > 0 && section_type != s_none)	    fprintf_filtered (stream, "\n");	  /* C++: print out the methods */	  for (i = 0; i < len; i++)	    {	      struct fn_field *f = TYPE_FN_FIELDLIST1 (type, i);	      int j, len2 = TYPE_FN_FIELDLIST_LENGTH (type, i);	      char *method_name = TYPE_FN_FIELDLIST_NAME (type, i);	      char *name = type_name_no_tag (type);	      int is_constructor = name && strcmp (method_name, name) == 0;	      for (j = 0; j < len2; j++)		{		  char *physname = TYPE_FN_FIELD_PHYSNAME (f, j);		  int is_full_physname_constructor =		   is_constructor_name (physname) 		   || is_destructor_name (physname)		   || method_name[0] == '~';		  /* Do not print out artificial methods.  */		  if (TYPE_FN_FIELD_ARTIFICIAL (f, j))		    continue;		  QUIT;		  if (TYPE_FN_FIELD_PROTECTED (f, j))		    {		      if (section_type != s_protected)			{			  section_type = s_protected;			  fprintfi_filtered (level + 2, stream,					     "protected:\n");			}		    }		  else if (TYPE_FN_FIELD_PRIVATE (f, j))		    {		      if (section_type != s_private)			{			  section_type = s_private;			  fprintfi_filtered (level + 2, stream, "private:\n");			}		    }		  else		    {		      if (section_type != s_public)			{			  section_type = s_public;			  fprintfi_filtered (level + 2, stream, "public:\n");			}		    }		  print_spaces_filtered (level + 4, stream);		  if (TYPE_FN_FIELD_VIRTUAL_P (f, j))		    fprintf_filtered (stream, "virtual ");		  else if (TYPE_FN_FIELD_STATIC_P (f, j))		    fprintf_filtered (stream, "static ");		  if (TYPE_TARGET_TYPE (TYPE_FN_FIELD_TYPE (f, j)) == 0)		    {		      /* Keep GDB from crashing here.  */		      fprintf_filtered (stream, "<undefined type> %s;\n",					TYPE_FN_FIELD_PHYSNAME (f, j));		      break;		    }		  else if (!is_constructor &&	/* constructors don't have declared types */			   !is_full_physname_constructor &&	/*    " "  */			   !is_type_conversion_operator (type, i, j))		    {		      type_print (TYPE_TARGET_TYPE (TYPE_FN_FIELD_TYPE (f, j)),				  "", stream, -1);		      fputs_filtered (" ", stream);		    }		  if (TYPE_FN_FIELD_STUB (f, j))		    /* Build something we can demangle.  */		    mangled_name = gdb_mangle_name (type, i, j);		  else		    mangled_name = TYPE_FN_FIELD_PHYSNAME (f, j);		  demangled_name =		    cplus_demangle (mangled_name,				    DMGL_ANSI | DMGL_PARAMS);		  if (demangled_name == NULL)		    {		      /* in some cases (for instance with the HP demangling),		         if a function has more than 10 arguments, 		         the demangling will fail.		         Let's try to reconstruct the function signature from 		         the symbol information */		      if (!TYPE_FN_FIELD_STUB (f, j))			{			  int staticp = TYPE_FN_FIELD_STATIC_P (f, j);			  struct type *mtype = TYPE_FN_FIELD_TYPE (f, j);			  cp_type_print_method_args (mtype,						     "",						     method_name,						     staticp,						     stream);			}		      else			fprintf_filtered (stream, "<badly mangled name '%s'>",					  mangled_name);		    }		  else		    {		      char *p;		      char *demangled_no_class			= remove_qualifiers (demangled_name);		      /* get rid of the `static' appended by the demangler */		      p = strstr (demangled_no_class, " static");		      if (p != NULL)			{			  int length = p - demangled_no_class;			  demangled_no_static = (char *) xmalloc (length + 1);			  strncpy (demangled_no_static, demangled_no_class, length);			  *(demangled_no_static + length) = '\0';			  fputs_filtered (demangled_no_static, stream);			  xfree (demangled_no_static);			}		      else			fputs_filtered (demangled_no_class, stream);		      xfree (demangled_name);		    }		  if (TYPE_FN_FIELD_STUB (f, j))		    xfree (mangled_name);		  fprintf_filtered (stream, ";\n");		}	    }	  fprintfi_filtered (level, stream, "}");	  if (TYPE_LOCALTYPE_PTR (type) && show >= 0)	    fprintfi_filtered (level, stream, " (Local at %s:%d)\n",			       TYPE_LOCALTYPE_FILE (type),			       TYPE_LOCALTYPE_LINE (type));	}      if (TYPE_CODE (type) == TYPE_CODE_TEMPLATE)	goto go_back;      break;    case TYPE_CODE_ENUM:      c_type_print_modifier (type, stream, 0, 1);      /* HP C supports sized enums */      if (hp_som_som_object_present)	switch (TYPE_LENGTH (type))	  {	  case 1:	    fputs_filtered ("char ", stream);	    break;	  case 2:	    fputs_filtered ("short ", stream);	    break;	  default:	    break;	  }      fprintf_filtered (stream, "enum ");      /* Print the tag name if it exists.         The aCC compiler emits a spurious          "{unnamed struct}"/"{unnamed union}"/"{unnamed enum}"         tag for unnamed struct/union/enum's, which we don't         want to print. */      if (TYPE_TAG_NAME (type) != NULL &&	  strncmp (TYPE_TAG_NAME (type), "{unnamed", 8))	{	  fputs_filtered (TYPE_TAG_NAME (type), stream);	  if (show > 0)	    fputs_filtered (" ", stream);	}      wrap_here ("    ");      if (show < 0)	{	  /* If we just printed a tag name, no need to print anything else.  */	  if (TYPE_TAG_NAME (type) == NULL)	    fprintf_filtered (stream, "{...}");	}      else if (show > 0 || TYPE_TAG_NAME (type) == NULL)	{	  fprintf_filtered (stream, "{");	  len = TYPE_NFIELDS (type);	  lastval = 0;	  for (i = 0; i < len; i++)	    {	      QUIT;	      if (i)		fprintf_filtered (stream, ", ");	      wrap_here ("    ");	      fputs_filtered (TYPE_FIELD_NAME (type, i), stream);	      if (lastval != TYPE_FIELD_BITPOS (type, i))		{		  fprintf_filtered (stream, " = %d", TYPE_FIELD_BITPOS (type, i));		  lastval = TYPE_FIELD_BITPOS (type, i);		}	      lastval++;	    }	  fprintf_filtered (stream, "}");	}      break;    case TYPE_CODE_VOID:      fprintf_filtered (stream, "void");      break;    case TYPE_CODE_UNDEF:      fprintf_filtered (stream, "struct <unknown>");      break;    case TYPE_CODE_ERROR:      fprintf_filtered (stream, "<unknown type>");      break;    case TYPE_CODE_RANGE:      /* This should not occur */      fprintf_filtered (stream, "<range type>");      break;    case TYPE_CODE_TEMPLATE:      /* Called on "ptype t" where "t" is a template.         Prints the template header (with args), e.g.:         template <class T1, class T2> class "         and then merges with the struct/union/class code to         print the rest of the definition. */      c_type_print_modifier (type, stream, 0, 1);      fprintf_filtered (stream, "template <");      for (i = 0; i < TYPE_NTEMPLATE_ARGS (type); i++)	{	  struct template_arg templ_arg;	  templ_arg = TYPE_TEMPLATE_ARG (type, i);	  fprintf_filtered (stream, "class %s", templ_arg.name);	  if (i < TYPE_NTEMPLATE_ARGS (type) - 1)	    fprintf_filtered (stream, ", ");	}      fprintf_filtered (stream, "> class ");      /* Yuck, factor this out to a subroutine so we can call         it and return to the point marked with the "goback:" label... - RT */      goto struct_union;    go_back:      if (TYPE_NINSTANTIATIONS (type) > 0)	{	  fprintf_filtered (stream, "\ntemplate instantiations:\n");	  for (i = 0; i < TYPE_NINSTANTIATIONS (type); i++)	    {	      fprintf_filtered (stream, "  ");	      c_type_print_base (TYPE_INSTANTIATION (type, i), stream, 0, level);	      if (i < TYPE_NINSTANTIATIONS (type) - 1)		fprintf_filtered (stream, "\n");	    }	}      break;    case TYPE_CODE_NAMESPACE:      fputs_filtered ("namespace ", stream);      fputs_filtered (TYPE_TAG_NAME (type), stream);      break;    default:      /* Handle types not explicitly handled by the other cases,         such as fundamental types.  For these, just print whatever         the type name is, as recorded in the type itself.  If there         is no type name, then complain. */      if (TYPE_NAME (type) != NULL)	{	  c_type_print_modifier (type, stream, 0, 1);	  fputs_filtered (TYPE_NAME (type), stream);	}      else	{	  /* At least for dump_symtab, it is important that this not be	     an error ().  */	  fprintf_filtered (stream, "<invalid type code %d>",			    TYPE_CODE (type));	}      break;    }}