自学教程：C++ type_name_no_tag函数代码示例

static voidcp_type_print_derivation_info (struct ui_file *stream,			       struct type *type,			       const struct type_print_options *flags){  const char *name;  int i;  for (i = 0; i < TYPE_N_BASECLASSES (type); i++)    {      wrap_here ("        ");      fputs_filtered (i == 0 ? ": " : ", ", stream);      fprintf_filtered (stream, "%s%s ",			BASETYPE_VIA_PUBLIC (type, i)			? "public" : (TYPE_FIELD_PROTECTED (type, i)				      ? "protected" : "private"),			BASETYPE_VIA_VIRTUAL (type, i) ? " virtual" : "");      name = type_name_no_tag (TYPE_BASECLASS (type, i));      if (name)	print_name_maybe_canonical (name, flags, stream);      else	fprintf_filtered (stream, "(null)");    }  if (i > 0)    {      fputs_filtered (" ", stream);    }}

intpascal_object_is_vtbl_ptr_type (struct type *type){  const char *type_name = type_name_no_tag (type);  return (type_name != NULL	  && strcmp (type_name, pascal_vtbl_ptr_name) == 0);}

static voidpascal_type_print_derivation_info (struct ui_file *stream, struct type *type){  char *name;  int i;  for (i = 0; i < TYPE_N_BASECLASSES (type); i++)    {      fputs_filtered (i == 0 ? ": " : ", ", stream);      fprintf_filtered (stream, "%s%s ",			BASETYPE_VIA_PUBLIC (type, i) ? "public" : "private",			BASETYPE_VIA_VIRTUAL (type, i) ? " virtual" : "");      name = type_name_no_tag (TYPE_BASECLASS (type, i));      fprintf_filtered (stream, "%s", name ? name : "(null)");    }  if (i > 0)    {      fputs_filtered (" ", stream);    }}

/* Helper for expression_completer which recursively adds field and   method names from TYPE, a struct or union type, to the array   OUTPUT.  This function assumes that OUTPUT is correctly-sized.  */static voidadd_struct_fields (struct type *type, int *nextp, char **output,		   char *fieldname, int namelen){  int i;  int computed_type_name = 0;  char *type_name = NULL;  CHECK_TYPEDEF (type);  for (i = 0; i < TYPE_NFIELDS (type); ++i)    {      if (i < TYPE_N_BASECLASSES (type))	add_struct_fields (TYPE_BASECLASS (type, i), nextp, output,			   fieldname, namelen);      else if (TYPE_FIELD_NAME (type, i)	       && ! strncmp (TYPE_FIELD_NAME (type, i), fieldname, namelen))	{	  output[*nextp] = xstrdup (TYPE_FIELD_NAME (type, i));	  ++*nextp;	}    }  for (i = TYPE_NFN_FIELDS (type) - 1; i >= 0; --i)    {      char *name = TYPE_FN_FIELDLIST_NAME (type, i);      if (name && ! strncmp (name, fieldname, namelen))	{	  if (!computed_type_name)	    {	      type_name = type_name_no_tag (type);	      computed_type_name = 1;	    }	  /* Omit constructors from the completion list.  */	  if (type_name && strcmp (type_name, name))	    {	      output[*nextp] = xstrdup (name);	      ++*nextp;	    }	}    }}

//.........这里部分代码省略.........		     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);	      const char *method_name = TYPE_FN_FIELDLIST_NAME (type, i);	      const char *name = type_name_no_tag (type);	      int is_constructor = name && strcmp (method_name,						   name) == 0;	      for (j = 0; j < len2; j++)		{		  const char *mangled_name;		  char *demangled_name;		  struct cleanup *inner_cleanup;		  const 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;		  inner_cleanup = make_cleanup (null_cleanup, NULL);		  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))		    {

static voidc_type_print_varspec_prefix (struct type *type,			     struct ui_file *stream,			     int show, int passed_a_ptr,			     int need_post_space){  const char *name;  if (type == 0)    return;  if (TYPE_NAME (type) && show <= 0)    return;  QUIT;  switch (TYPE_CODE (type))    {    case TYPE_CODE_PTR:      c_type_print_varspec_prefix (TYPE_TARGET_TYPE (type),				   stream, show, 1, 1);      fprintf_filtered (stream, "*");      c_type_print_modifier (type, stream, 1, need_post_space);      break;    case TYPE_CODE_MEMBERPTR:      c_type_print_varspec_prefix (TYPE_TARGET_TYPE (type),				   stream, show, 0, 0);      name = type_name_no_tag (TYPE_DOMAIN_TYPE (type));      if (name)	fputs_filtered (name, stream);      else	c_type_print_base (TYPE_DOMAIN_TYPE (type),			   stream, -1, passed_a_ptr);      fprintf_filtered (stream, "::*");      break;    case TYPE_CODE_METHODPTR:      c_type_print_varspec_prefix (TYPE_TARGET_TYPE (type),				   stream, show, 0, 0);      fprintf_filtered (stream, "(");      name = type_name_no_tag (TYPE_DOMAIN_TYPE (type));      if (name)	fputs_filtered (name, stream);      else	c_type_print_base (TYPE_DOMAIN_TYPE (type),			   stream, -1, passed_a_ptr);      fprintf_filtered (stream, "::*");      break;    case TYPE_CODE_REF:      c_type_print_varspec_prefix (TYPE_TARGET_TYPE (type),				   stream, show, 1, 0);      fprintf_filtered (stream, "&");      c_type_print_modifier (type, stream, 1, need_post_space);      break;    case TYPE_CODE_METHOD:    case TYPE_CODE_FUNC:      c_type_print_varspec_prefix (TYPE_TARGET_TYPE (type),				   stream, show, 0, 0);      if (passed_a_ptr)	fprintf_filtered (stream, "(");      break;    case TYPE_CODE_ARRAY:      c_type_print_varspec_prefix (TYPE_TARGET_TYPE (type),				   stream, show, 0, 0);      if (passed_a_ptr)	fprintf_filtered (stream, "(");      break;    case TYPE_CODE_TYPEDEF:      c_type_print_varspec_prefix (TYPE_TARGET_TYPE (type),				   stream, show, passed_a_ptr, 0);      break;    case TYPE_CODE_UNDEF:    case TYPE_CODE_STRUCT:    case TYPE_CODE_UNION:    case TYPE_CODE_ENUM:    case TYPE_CODE_INT:    case TYPE_CODE_FLT:    case TYPE_CODE_VOID:    case TYPE_CODE_ERROR:    case TYPE_CODE_CHAR:    case TYPE_CODE_BOOL:    case TYPE_CODE_SET:    case TYPE_CODE_RANGE:    case TYPE_CODE_STRING:    case TYPE_CODE_COMPLEX:    case TYPE_CODE_NAMESPACE:    case TYPE_CODE_DECFLOAT:      /* These types need no prefix.  They are listed here so that         gcc -Wall will reveal any types that haven't been handled.  */      break;    default:      error (_("type not handled in c_type_print_varspec_prefix()"));      break;    }//.........这里部分代码省略.........

/* Standard implementation of print_subexp for use in language_defn   vectors.  */voidprint_subexp_standard (struct expression *exp, int *pos,		       struct ui_file *stream, enum precedence prec){  unsigned tem;  const struct op_print *op_print_tab;  int pc;  unsigned nargs;  char *op_str;  int assign_modify = 0;  enum exp_opcode opcode;  enum precedence myprec = PREC_NULL;  /* Set to 1 for a right-associative operator.  */  int assoc = 0;  struct value *val;  char *tempstr = NULL;  op_print_tab = exp->language_defn->la_op_print_tab;  pc = (*pos)++;  opcode = exp->elts[pc].opcode;  switch (opcode)    {      /* Common ops */    case OP_SCOPE:      myprec = PREC_PREFIX;      assoc = 0;      fputs_filtered (type_name_no_tag (exp->elts[pc + 1].type), stream);      fputs_filtered ("::", stream);      nargs = longest_to_int (exp->elts[pc + 2].longconst);      (*pos) += 4 + BYTES_TO_EXP_ELEM (nargs + 1);      fputs_filtered (&exp->elts[pc + 3].string, stream);      return;    case OP_LONG:      (*pos) += 3;      value_print (value_from_longest (exp->elts[pc + 1].type,				       exp->elts[pc + 2].longconst),		   stream, 0, Val_no_prettyprint);      return;    case OP_DOUBLE:      (*pos) += 3;      value_print (value_from_double (exp->elts[pc + 1].type,				      exp->elts[pc + 2].doubleconst),		   stream, 0, Val_no_prettyprint);      return;    case OP_VAR_VALUE:      {	struct block *b;	(*pos) += 3;	b = exp->elts[pc + 1].block;	if (b != NULL	    && BLOCK_FUNCTION (b) != NULL	    && SYMBOL_PRINT_NAME (BLOCK_FUNCTION (b)) != NULL)	  {	    fputs_filtered (SYMBOL_PRINT_NAME (BLOCK_FUNCTION (b)), stream);	    fputs_filtered ("::", stream);	  }	fputs_filtered (SYMBOL_PRINT_NAME (exp->elts[pc + 2].symbol), stream);      }      return;    case OP_LAST:      (*pos) += 2;      fprintf_filtered (stream, "$%d",			longest_to_int (exp->elts[pc + 1].longconst));      return;    case OP_REGISTER:      {	int regnum = longest_to_int (exp->elts[pc + 1].longconst);	const char *name = user_reg_map_regnum_to_name (current_gdbarch,							regnum);	(*pos) += 2;	fprintf_filtered (stream, "$%s", name);	return;      }    case OP_BOOL:      (*pos) += 2;      fprintf_filtered (stream, "%s",			longest_to_int (exp->elts[pc + 1].longconst)			? "TRUE" : "FALSE");      return;    case OP_INTERNALVAR:      (*pos) += 2;      fprintf_filtered (stream, "$%s",			internalvar_name (exp->elts[pc + 1].internalvar));      return;    case OP_FUNCALL:      (*pos) += 2;      nargs = longest_to_int (exp->elts[pc + 1].longconst);      print_subexp (exp, pos, stream, PREC_SUFFIX);      fputs_filtered (" (", stream);//.........这里部分代码省略.........

//.........这里部分代码省略.........		     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

static voidjava_print_value_fields (struct type *type, const gdb_byte *valaddr,			 CORE_ADDR address, struct ui_file *stream,			 int recurse,			 const struct value_print_options *options){  int i, len, n_baseclasses;  CHECK_TYPEDEF (type);  fprintf_filtered (stream, "{");  len = TYPE_NFIELDS (type);  n_baseclasses = TYPE_N_BASECLASSES (type);  if (n_baseclasses > 0)    {      int i, n_baseclasses = TYPE_N_BASECLASSES (type);      for (i = 0; i < n_baseclasses; i++)	{	  int boffset;	  struct type *baseclass = check_typedef (TYPE_BASECLASS (type, i));	  char *basename = TYPE_NAME (baseclass);	  const gdb_byte *base_valaddr;	  if (BASETYPE_VIA_VIRTUAL (type, i))	    continue;	  if (basename != NULL && strcmp (basename, "java.lang.Object") == 0)	    continue;	  boffset = 0;	  if (options->pretty)	    {	      fprintf_filtered (stream, "/n");	      print_spaces_filtered (2 * (recurse + 1), stream);	    }	  fputs_filtered ("<", stream);	  /* Not sure what the best notation is in the case where there is no	     baseclass name.  */	  fputs_filtered (basename ? basename : "", stream);	  fputs_filtered ("> = ", stream);	  base_valaddr = valaddr;	  java_print_value_fields (baseclass, base_valaddr, address + boffset,				   stream, recurse + 1, options);	  fputs_filtered (", ", stream);	}    }  if (!len && n_baseclasses == 1)    fprintf_filtered (stream, "<No data fields>");  else    {      int fields_seen = 0;      for (i = n_baseclasses; i < len; i++)	{	  /* If requested, skip printing of static fields.  */	  if (field_is_static (&TYPE_FIELD (type, i)))	    {	      char *name = TYPE_FIELD_NAME (type, i);	      if (!options->static_field_print)		continue;	      if (name != NULL && strcmp (name, "class") == 0)		continue;	    }	  if (fields_seen)	    fprintf_filtered (stream, ", ");	  else if (n_baseclasses > 0)	    {	      if (options->pretty)		{		  fprintf_filtered (stream, "/n");		  print_spaces_filtered (2 + 2 * recurse, stream);		  fputs_filtered ("members of ", stream);		  fputs_filtered (type_name_no_tag (type), stream);		  fputs_filtered (": ", stream);		}	    }	  fields_seen = 1;	  if (options->pretty)	    {	      fprintf_filtered (stream, "/n");	      print_spaces_filtered (2 + 2 * recurse, stream);	    }	  else	    {	      wrap_here (n_spaces (2 + 2 * recurse));	    }	  if (options->inspect_it)	    {	      if (TYPE_CODE (TYPE_FIELD_TYPE (type, i)) == TYPE_CODE_PTR)		fputs_filtered ("/"( ptr /"", stream);	      else		fputs_filtered ("/"( nodef /"", stream);//.........这里部分代码省略.........

static voidpascal_object_print_value (struct type *type, const gdb_byte *valaddr,			   int offset,			   CORE_ADDR address, struct ui_file *stream,			   int recurse,			   const struct value *val,			   const struct value_print_options *options,			   struct type **dont_print_vb){  struct type **last_dont_print    = (struct type **) obstack_next_free (&dont_print_vb_obstack);  struct obstack tmp_obstack = dont_print_vb_obstack;  int i, n_baseclasses = TYPE_N_BASECLASSES (type);  if (dont_print_vb == 0)    {      /* If we're at top level, carve out a completely fresh         chunk of the obstack and use that until this particular         invocation returns.  */      /* Bump up the high-water mark.  Now alpha is omega.  */      obstack_finish (&dont_print_vb_obstack);    }  for (i = 0; i < n_baseclasses; i++)    {      int boffset = 0;      struct type *baseclass = check_typedef (TYPE_BASECLASS (type, i));      const char *basename = type_name_no_tag (baseclass);      const gdb_byte *base_valaddr = NULL;      int thisoffset;      int skip = 0;      if (BASETYPE_VIA_VIRTUAL (type, i))	{	  struct type **first_dont_print	    = (struct type **) obstack_base (&dont_print_vb_obstack);	  int j = (struct type **) obstack_next_free (&dont_print_vb_obstack)	    - first_dont_print;	  while (--j >= 0)	    if (baseclass == first_dont_print[j])	      goto flush_it;	  obstack_ptr_grow (&dont_print_vb_obstack, baseclass);	}      thisoffset = offset;      TRY	{	  boffset = baseclass_offset (type, i, valaddr, offset, address, val);	}      CATCH (ex, RETURN_MASK_ERROR)	{	  if (ex.error == NOT_AVAILABLE_ERROR)	    skip = -1;	  else	    skip = 1;	}      END_CATCH      if (skip == 0)	{	  /* The virtual base class pointer might have been clobbered by the	     user program. Make sure that it still points to a valid memory	     location.  */	  if (boffset < 0 || boffset >= TYPE_LENGTH (type))	    {	      gdb_byte *buf;	      struct cleanup *back_to;	      buf = (gdb_byte *) xmalloc (TYPE_LENGTH (baseclass));	      back_to = make_cleanup (xfree, buf);	      base_valaddr = buf;	      if (target_read_memory (address + boffset, buf,				      TYPE_LENGTH (baseclass)) != 0)		skip = 1;	      address = address + boffset;	      thisoffset = 0;	      boffset = 0;	      do_cleanups (back_to);	    }	  else	    base_valaddr = valaddr;	}      if (options->prettyformat)	{	  fprintf_filtered (stream, "/n");	  print_spaces_filtered (2 * recurse, stream);	}      fputs_filtered ("<", stream);      /* Not sure what the best notation is in the case where there is no         baseclass name.  */      fputs_filtered (basename ? basename : "", stream);      fputs_filtered ("> = ", stream);//.........这里部分代码省略.........

voidpascal_type_print_varspec_prefix (struct type *type, struct ui_file *stream,				  int show, int passed_a_ptr){  char *name;  if (type == 0)    return;  if (TYPE_NAME (type) && show <= 0)    return;  QUIT;  switch (TYPE_CODE (type))    {    case TYPE_CODE_PTR:      fprintf_filtered (stream, "^");      pascal_type_print_varspec_prefix (TYPE_TARGET_TYPE (type), stream, 0, 1);      break;			/* pointer should be handled normally in pascal */    case TYPE_CODE_MEMBER:      if (passed_a_ptr)	fprintf_filtered (stream, "(");      pascal_type_print_varspec_prefix (TYPE_TARGET_TYPE (type), stream, 0, 0);      fprintf_filtered (stream, " ");      name = type_name_no_tag (TYPE_DOMAIN_TYPE (type));      if (name)	fputs_filtered (name, stream);      else	pascal_type_print_base (TYPE_DOMAIN_TYPE (type), stream, 0, passed_a_ptr);      fprintf_filtered (stream, "::");      break;    case TYPE_CODE_METHOD:      if (passed_a_ptr)	fprintf_filtered (stream, "(");      if (TYPE_CODE (TYPE_TARGET_TYPE (type)) != TYPE_CODE_VOID)	{	  fprintf_filtered (stream, "function  ");	}      else	{	  fprintf_filtered (stream, "procedure ");	}      if (passed_a_ptr)	{	  fprintf_filtered (stream, " ");	  pascal_type_print_base (TYPE_DOMAIN_TYPE (type), stream, 0, passed_a_ptr);	  fprintf_filtered (stream, "::");	}      break;    case TYPE_CODE_REF:      pascal_type_print_varspec_prefix (TYPE_TARGET_TYPE (type), stream, 0, 1);      fprintf_filtered (stream, "&");      break;    case TYPE_CODE_FUNC:      if (passed_a_ptr)	fprintf_filtered (stream, "(");      if (TYPE_CODE (TYPE_TARGET_TYPE (type)) != TYPE_CODE_VOID)	{	  fprintf_filtered (stream, "function  ");	}      else	{	  fprintf_filtered (stream, "procedure ");	}      break;    case TYPE_CODE_ARRAY:      if (passed_a_ptr)	fprintf_filtered (stream, "(");      fprintf_filtered (stream, "array ");      if (TYPE_LENGTH (type) >= 0 && TYPE_LENGTH (TYPE_TARGET_TYPE (type)) > 0	&& TYPE_ARRAY_UPPER_BOUND_TYPE (type) != BOUND_CANNOT_BE_DETERMINED)	fprintf_filtered (stream, "[%d..%d] ",			  TYPE_ARRAY_LOWER_BOUND_VALUE (type),			  TYPE_ARRAY_UPPER_BOUND_VALUE (type)	  );      fprintf_filtered (stream, "of ");      break;    case TYPE_CODE_UNDEF:    case TYPE_CODE_STRUCT:    case TYPE_CODE_UNION:    case TYPE_CODE_ENUM:    case TYPE_CODE_INT:    case TYPE_CODE_FLT:    case TYPE_CODE_VOID:    case TYPE_CODE_ERROR:    case TYPE_CODE_CHAR:    case TYPE_CODE_BOOL:    case TYPE_CODE_SET:    case TYPE_CODE_RANGE:    case TYPE_CODE_STRING:    case TYPE_CODE_BITSTRING://.........这里部分代码省略.........

static voidpascal_object_print_value (struct type *type, const gdb_byte *valaddr,			   CORE_ADDR address, struct ui_file *stream,			   int format, int recurse,			   enum val_prettyprint pretty,			   struct type **dont_print_vb){  struct type **last_dont_print  = (struct type **) obstack_next_free (&dont_print_vb_obstack);  struct obstack tmp_obstack = dont_print_vb_obstack;  int i, n_baseclasses = TYPE_N_BASECLASSES (type);  if (dont_print_vb == 0)    {      /* If we're at top level, carve out a completely fresh         chunk of the obstack and use that until this particular         invocation returns.  */      /* Bump up the high-water mark.  Now alpha is omega.  */      obstack_finish (&dont_print_vb_obstack);    }  for (i = 0; i < n_baseclasses; i++)    {      int boffset;      struct type *baseclass = check_typedef (TYPE_BASECLASS (type, i));      char *basename = type_name_no_tag (baseclass);      const gdb_byte *base_valaddr;      if (BASETYPE_VIA_VIRTUAL (type, i))	{	  struct type **first_dont_print	  = (struct type **) obstack_base (&dont_print_vb_obstack);	  int j = (struct type **) obstack_next_free (&dont_print_vb_obstack)	  - first_dont_print;	  while (--j >= 0)	    if (baseclass == first_dont_print[j])	      goto flush_it;	  obstack_ptr_grow (&dont_print_vb_obstack, baseclass);	}      boffset = baseclass_offset (type, i, valaddr, address);      if (pretty)	{	  fprintf_filtered (stream, "/n");	  print_spaces_filtered (2 * recurse, stream);	}      fputs_filtered ("<", stream);      /* Not sure what the best notation is in the case where there is no         baseclass name.  */      fputs_filtered (basename ? basename : "", stream);      fputs_filtered ("> = ", stream);      /* The virtual base class pointer might have been clobbered by the         user program. Make sure that it still points to a valid memory         location.  */      if (boffset != -1 && (boffset < 0 || boffset >= TYPE_LENGTH (type)))	{	  /* FIXME (alloc): not safe is baseclass is really really big. */	  gdb_byte *buf = alloca (TYPE_LENGTH (baseclass));	  base_valaddr = buf;	  if (target_read_memory (address + boffset, buf,				  TYPE_LENGTH (baseclass)) != 0)	    boffset = -1;	}      else	base_valaddr = valaddr + boffset;      if (boffset == -1)	fprintf_filtered (stream, "<invalid address>");      else	pascal_object_print_value_fields (baseclass, base_valaddr, address + boffset,					  stream, format, recurse, pretty,		     (struct type **) obstack_base (&dont_print_vb_obstack),					  0);      fputs_filtered (", ", stream);    flush_it:      ;    }  if (dont_print_vb == 0)    {      /* Free the space used to deal with the printing         of this type from top level.  */      obstack_free (&dont_print_vb_obstack, last_dont_print);      /* Reset watermark so that we can continue protecting         ourselves from whatever we were protecting ourselves.  */      dont_print_vb_obstack = tmp_obstack;    }}

voidpascal_object_print_value_fields (struct type *type, const gdb_byte *valaddr,				  CORE_ADDR address, struct ui_file *stream,				  int format, int recurse,				  enum val_prettyprint pretty,				  struct type **dont_print_vb,				  int dont_print_statmem){  int i, len, n_baseclasses;  char *last_dont_print = obstack_next_free (&dont_print_statmem_obstack);  CHECK_TYPEDEF (type);  fprintf_filtered (stream, "{");  len = TYPE_NFIELDS (type);  n_baseclasses = TYPE_N_BASECLASSES (type);  /* Print out baseclasses such that we don't print     duplicates of virtual baseclasses.  */  if (n_baseclasses > 0)    pascal_object_print_value (type, valaddr, address, stream,			       format, recurse + 1, pretty, dont_print_vb);  if (!len && n_baseclasses == 1)    fprintf_filtered (stream, "<No data fields>");  else    {      struct obstack tmp_obstack = dont_print_statmem_obstack;      int fields_seen = 0;      if (dont_print_statmem == 0)	{	  /* If we're at top level, carve out a completely fresh	     chunk of the obstack and use that until this particular	     invocation returns.  */	  obstack_finish (&dont_print_statmem_obstack);	}      for (i = n_baseclasses; i < len; i++)	{	  /* If requested, skip printing of static fields.  */	  if (!pascal_static_field_print && TYPE_FIELD_STATIC (type, i))	    continue;	  if (fields_seen)	    fprintf_filtered (stream, ", ");	  else if (n_baseclasses > 0)	    {	      if (pretty)		{		  fprintf_filtered (stream, "/n");		  print_spaces_filtered (2 + 2 * recurse, stream);		  fputs_filtered ("members of ", stream);		  fputs_filtered (type_name_no_tag (type), stream);		  fputs_filtered (": ", stream);		}	    }	  fields_seen = 1;	  if (pretty)	    {	      fprintf_filtered (stream, "/n");	      print_spaces_filtered (2 + 2 * recurse, stream);	    }	  else	    {	      wrap_here (n_spaces (2 + 2 * recurse));	    }	  if (inspect_it)	    {	      if (TYPE_CODE (TYPE_FIELD_TYPE (type, i)) == TYPE_CODE_PTR)		fputs_filtered ("/"( ptr /"", stream);	      else		fputs_filtered ("/"( nodef /"", stream);	      if (TYPE_FIELD_STATIC (type, i))		fputs_filtered ("static ", stream);	      fprintf_symbol_filtered (stream, TYPE_FIELD_NAME (type, i),				       language_cplus,				       DMGL_PARAMS | DMGL_ANSI);	      fputs_filtered ("/" /"", stream);	      fprintf_symbol_filtered (stream, TYPE_FIELD_NAME (type, i),				       language_cplus,				       DMGL_PARAMS | DMGL_ANSI);	      fputs_filtered ("/") /"", stream);	    }	  else	    {	      annotate_field_begin (TYPE_FIELD_TYPE (type, i));	      if (TYPE_FIELD_STATIC (type, i))		fputs_filtered ("static ", stream);	      fprintf_symbol_filtered (stream, TYPE_FIELD_NAME (type, i),				       language_cplus,				       DMGL_PARAMS | DMGL_ANSI);	      annotate_field_name_end ();	      fputs_filtered (" = ", stream);	      annotate_field_value ();	    }	  if (!TYPE_FIELD_STATIC (type, i) && TYPE_FIELD_PACKED (type, i))	    {//.........这里部分代码省略.........

//.........这里部分代码省略.........						symname = SYMBOL_PRINT_NAME (sym);						type = SYMBOL_TYPE(sym);					}				}			}			// could it be a known heap object			if (!symname && !type)			{				// this function will allocate buffer for the symbol name if any, remember to free it				get_op_symbol_type(dst_op, 0, &name_to_free, &type, NULL);				symname = name_to_free;			}			// Since flag insn->annotate is set, dst_op's value should be calculated			val = get_op_value(dst_op, op_size);			has_value = 1;		}		else if (dst_op->type == CA_OP_REGISTER)		{			struct ca_reg_value* dst_reg = get_reg_at_pc(dst_op->reg.index, insn->pc);			if (dst_reg)			{				symname = dst_reg->sym_name;				type    = dst_reg->type;				is_vptr = dst_reg->vptr;				if (dst_reg->has_value)				{					has_value = 1;					val = dst_reg->value;				}			}		}		// Name and value (if known) of destination		print_one_operand(uiout, dst_op, op_size);		if (has_value)			ui_out_message(uiout, 0, "=0x%lx", val);		else			ui_out_text(uiout, "=?");		// Symbol or type of destination		if (dst_op->type == CA_OP_REGISTER			&& dst_op->reg.index == RSP)		{			if (val == g_debug_context.sp)				ui_out_text(uiout, " End of function prologue");			ui_out_text(uiout, "/n");		}		else		{			// symbol or type is known			if (symname || type)			{				ui_out_text(uiout, "(");				if (symname)				{					ui_out_message(uiout, 0, "symbol=/"%s/"", symname);				}				if (type)				{					CHECK_TYPEDEF(type);					if (symname)						ui_out_text(uiout, " ");					ui_out_text(uiout, "type=/"");					if (is_vptr)					{						const char * type_name = type_name_no_tag(type);						if (type_name)							ui_out_message(uiout, 0, "vtable for %s", type_name);						else						{							ui_out_text(uiout, "vtable for ");							print_type_name (type, NULL, NULL, NULL);						}					}					else						print_type_name (type, NULL, NULL, NULL);					ui_out_text(uiout, "/"");				}				ui_out_text(uiout, ")/n");			}			// whatever we can get form the value			else			{				address_t location = 0;				int offset = 0;				//if (insn->num_operand > 1)				//{				//	struct ca_operand* src_op = &insn->operands[1];				//	get_location(src_op, &location, &offset);				//}				print_op_value_context (val,						op_size > 0 ? op_size : ptr_sz,						location, offset, insn->lea);			}		}		if (name_to_free)			free (name_to_free);	}

voidpascal_object_print_value_fields (struct type *type, const gdb_byte *valaddr,				  int offset,				  CORE_ADDR address, struct ui_file *stream,				  int recurse,				  const struct value *val,				  const struct value_print_options *options,				  struct type **dont_print_vb,				  int dont_print_statmem){  int i, len, n_baseclasses;  char *last_dont_print    = (char *) obstack_next_free (&dont_print_statmem_obstack);  type = check_typedef (type);  fprintf_filtered (stream, "{");  len = TYPE_NFIELDS (type);  n_baseclasses = TYPE_N_BASECLASSES (type);  /* Print out baseclasses such that we don't print     duplicates of virtual baseclasses.  */  if (n_baseclasses > 0)    pascal_object_print_value (type, valaddr, offset, address,			       stream, recurse + 1, val,			       options, dont_print_vb);  if (!len && n_baseclasses == 1)    fprintf_filtered (stream, "<No data fields>");  else    {      struct obstack tmp_obstack = dont_print_statmem_obstack;      int fields_seen = 0;      if (dont_print_statmem == 0)	{	  /* If we're at top level, carve out a completely fresh	     chunk of the obstack and use that until this particular	     invocation returns.  */	  obstack_finish (&dont_print_statmem_obstack);	}      for (i = n_baseclasses; i < len; i++)	{	  /* If requested, skip printing of static fields.  */	  if (!options->pascal_static_field_print	      && field_is_static (&TYPE_FIELD (type, i)))	    continue;	  if (fields_seen)	    fprintf_filtered (stream, ", ");	  else if (n_baseclasses > 0)	    {	      if (options->prettyformat)		{		  fprintf_filtered (stream, "/n");		  print_spaces_filtered (2 + 2 * recurse, stream);		  fputs_filtered ("members of ", stream);		  fputs_filtered (type_name_no_tag (type), stream);		  fputs_filtered (": ", stream);		}	    }	  fields_seen = 1;	  if (options->prettyformat)	    {	      fprintf_filtered (stream, "/n");	      print_spaces_filtered (2 + 2 * recurse, stream);	    }	  else	    {	      wrap_here (n_spaces (2 + 2 * recurse));	    }	  annotate_field_begin (TYPE_FIELD_TYPE (type, i));	  if (field_is_static (&TYPE_FIELD (type, i)))	    fputs_filtered ("static ", stream);	  fprintf_symbol_filtered (stream, TYPE_FIELD_NAME (type, i),				   language_cplus,				   DMGL_PARAMS | DMGL_ANSI);	  annotate_field_name_end ();	  fputs_filtered (" = ", stream);	  annotate_field_value ();	  if (!field_is_static (&TYPE_FIELD (type, i))	      && TYPE_FIELD_PACKED (type, i))	    {	      struct value *v;	      /* Bitfields require special handling, especially due to byte	         order problems.  */	      if (TYPE_FIELD_IGNORE (type, i))		{		  fputs_filtered ("<optimized out or zero length>", stream);		}	      else if (value_bits_synthetic_pointer (val,						     TYPE_FIELD_BITPOS (type,									i),						     TYPE_FIELD_BITSIZE (type,									 i)))//.........这里部分代码省略.........

//.........这里部分代码省略.........	      print_spaces_filtered (level + 4, stream);	      if (field_is_static (&TYPE_FIELD (type, i)))		fprintf_filtered (stream, "static ");	      pascal_print_type (TYPE_FIELD_TYPE (type, i),				 TYPE_FIELD_NAME (type, i),				 stream, show - 1, level + 4);	      if (!field_is_static (&TYPE_FIELD (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 space between. */	  len = TYPE_NFN_FIELDS (type);	  if (len && section_type != s_none)	    fprintf_filtered (stream, "/n");	  /* Pbject pascal: 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);	      /* this is GNU C++ specific	         how can we know constructor/destructor?	         It might work for GNU pascal */	      for (j = 0; j < len2; j++)		{		  char *physname = TYPE_FN_FIELD_PHYSNAME (f, j);		  int is_constructor = (strncmp (physname, "__ct__", 6) == 0);		  int is_destructor = (strncmp (physname, "__dt__", 6) == 0);		  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)			{