1999-05-03 09:29:11 +02:00
|
|
|
|
/* prdbg.c -- Print out generic debugging information.
|
2017-01-02 04:36:43 +01:00
|
|
|
|
Copyright (C) 1995-2017 Free Software Foundation, Inc.
|
1999-05-03 09:29:11 +02:00
|
|
|
|
Written by Ian Lance Taylor <ian@cygnus.com>.
|
2003-07-22 15:33:32 +02:00
|
|
|
|
Tags style generation written by Salvador E. Tropea <set@computer.org>.
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
This file is part of GNU Binutils.
|
|
|
|
|
|
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
|
|
|
|
it under the terms of the GNU General Public License as published by
|
2007-07-05 18:54:46 +02:00
|
|
|
|
the Free Software Foundation; either version 3 of the License, or
|
1999-05-03 09:29:11 +02:00
|
|
|
|
(at your option) any later version.
|
|
|
|
|
|
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
|
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
|
GNU General Public License for more details.
|
|
|
|
|
|
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
|
|
|
along with this program; if not, write to the Free Software
|
2005-05-08 16:17:41 +02:00
|
|
|
|
Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA
|
|
|
|
|
02110-1301, USA. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
/* This file prints out the generic debugging information, by
|
|
|
|
|
supplying a set of routines to debug_write. */
|
|
|
|
|
|
2007-04-26 16:47:00 +02:00
|
|
|
|
#include "sysdep.h"
|
1999-05-03 09:29:11 +02:00
|
|
|
|
#include <assert.h>
|
|
|
|
|
#include "bfd.h"
|
|
|
|
|
#include "libiberty.h"
|
2007-04-19 12:43:47 +02:00
|
|
|
|
#include "demangle.h"
|
1999-05-03 09:29:11 +02:00
|
|
|
|
#include "debug.h"
|
|
|
|
|
#include "budbg.h"
|
|
|
|
|
|
|
|
|
|
/* This is the structure we use as a handle for these routines. */
|
|
|
|
|
|
|
|
|
|
struct pr_handle
|
|
|
|
|
{
|
|
|
|
|
/* File to print information to. */
|
|
|
|
|
FILE *f;
|
|
|
|
|
/* Current indentation level. */
|
|
|
|
|
unsigned int indent;
|
|
|
|
|
/* Type stack. */
|
|
|
|
|
struct pr_stack *stack;
|
|
|
|
|
/* Parameter number we are about to output. */
|
|
|
|
|
int parameter;
|
2003-07-22 15:33:32 +02:00
|
|
|
|
/* The following are used only by the tags code (tg_). */
|
|
|
|
|
/* Name of the file we are using. */
|
|
|
|
|
char *filename;
|
|
|
|
|
/* The BFD. */
|
|
|
|
|
bfd *abfd;
|
|
|
|
|
/* The symbols table for this BFD. */
|
|
|
|
|
asymbol **syms;
|
|
|
|
|
/* Pointer to a function to demangle symbols. */
|
2007-04-19 12:43:47 +02:00
|
|
|
|
char *(*demangler) (bfd *, const char *, int);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
/* The type stack. */
|
|
|
|
|
|
|
|
|
|
struct pr_stack
|
|
|
|
|
{
|
|
|
|
|
/* Next element on the stack. */
|
|
|
|
|
struct pr_stack *next;
|
|
|
|
|
/* This element. */
|
|
|
|
|
char *type;
|
|
|
|
|
/* Current visibility of fields if this is a class. */
|
|
|
|
|
enum debug_visibility visibility;
|
|
|
|
|
/* Name of the current method we are handling. */
|
|
|
|
|
const char *method;
|
2003-07-22 15:33:32 +02:00
|
|
|
|
/* The following are used only by the tags code (tg_). */
|
|
|
|
|
/* Type for the container (struct, union, class, union class). */
|
|
|
|
|
const char *flavor;
|
|
|
|
|
/* A comma separated list of parent classes. */
|
|
|
|
|
char *parents;
|
|
|
|
|
/* How many parents contains parents. */
|
|
|
|
|
int num_parents;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
};
|
|
|
|
|
|
2003-09-14 14:20:17 +02:00
|
|
|
|
static void indent (struct pr_handle *);
|
|
|
|
|
static bfd_boolean push_type (struct pr_handle *, const char *);
|
|
|
|
|
static bfd_boolean prepend_type (struct pr_handle *, const char *);
|
|
|
|
|
static bfd_boolean append_type (struct pr_handle *, const char *);
|
|
|
|
|
static bfd_boolean substitute_type (struct pr_handle *, const char *);
|
|
|
|
|
static bfd_boolean indent_type (struct pr_handle *);
|
|
|
|
|
static char *pop_type (struct pr_handle *);
|
|
|
|
|
static void print_vma (bfd_vma, char *, bfd_boolean, bfd_boolean);
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean pr_fix_visibility
|
2003-09-14 14:20:17 +02:00
|
|
|
|
(struct pr_handle *, enum debug_visibility);
|
|
|
|
|
static bfd_boolean pr_start_compilation_unit (void *, const char *);
|
|
|
|
|
static bfd_boolean pr_start_source (void *, const char *);
|
|
|
|
|
static bfd_boolean pr_empty_type (void *);
|
|
|
|
|
static bfd_boolean pr_void_type (void *);
|
|
|
|
|
static bfd_boolean pr_int_type (void *, unsigned int, bfd_boolean);
|
|
|
|
|
static bfd_boolean pr_float_type (void *, unsigned int);
|
|
|
|
|
static bfd_boolean pr_complex_type (void *, unsigned int);
|
|
|
|
|
static bfd_boolean pr_bool_type (void *, unsigned int);
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean pr_enum_type
|
2003-09-14 14:20:17 +02:00
|
|
|
|
(void *, const char *, const char **, bfd_signed_vma *);
|
|
|
|
|
static bfd_boolean pr_pointer_type (void *);
|
|
|
|
|
static bfd_boolean pr_function_type (void *, int, bfd_boolean);
|
|
|
|
|
static bfd_boolean pr_reference_type (void *);
|
|
|
|
|
static bfd_boolean pr_range_type (void *, bfd_signed_vma, bfd_signed_vma);
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean pr_array_type
|
2003-09-14 14:20:17 +02:00
|
|
|
|
(void *, bfd_signed_vma, bfd_signed_vma, bfd_boolean);
|
|
|
|
|
static bfd_boolean pr_set_type (void *, bfd_boolean);
|
|
|
|
|
static bfd_boolean pr_offset_type (void *);
|
|
|
|
|
static bfd_boolean pr_method_type (void *, bfd_boolean, int, bfd_boolean);
|
|
|
|
|
static bfd_boolean pr_const_type (void *);
|
|
|
|
|
static bfd_boolean pr_volatile_type (void *);
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean pr_start_struct_type
|
2003-09-14 14:20:17 +02:00
|
|
|
|
(void *, const char *, unsigned int, bfd_boolean, unsigned int);
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean pr_struct_field
|
2003-09-14 14:20:17 +02:00
|
|
|
|
(void *, const char *, bfd_vma, bfd_vma, enum debug_visibility);
|
|
|
|
|
static bfd_boolean pr_end_struct_type (void *);
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean pr_start_class_type
|
2003-09-14 14:20:17 +02:00
|
|
|
|
(void *, const char *, unsigned int, bfd_boolean, unsigned int,
|
|
|
|
|
bfd_boolean, bfd_boolean);
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean pr_class_static_member
|
2003-09-14 14:20:17 +02:00
|
|
|
|
(void *, const char *, const char *, enum debug_visibility);
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean pr_class_baseclass
|
2003-09-14 14:20:17 +02:00
|
|
|
|
(void *, bfd_vma, bfd_boolean, enum debug_visibility);
|
|
|
|
|
static bfd_boolean pr_class_start_method (void *, const char *);
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean pr_class_method_variant
|
2003-09-14 14:20:17 +02:00
|
|
|
|
(void *, const char *, enum debug_visibility, bfd_boolean, bfd_boolean,
|
|
|
|
|
bfd_vma, bfd_boolean);
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean pr_class_static_method_variant
|
2003-09-14 14:20:17 +02:00
|
|
|
|
(void *, const char *, enum debug_visibility, bfd_boolean, bfd_boolean);
|
|
|
|
|
static bfd_boolean pr_class_end_method (void *);
|
|
|
|
|
static bfd_boolean pr_end_class_type (void *);
|
|
|
|
|
static bfd_boolean pr_typedef_type (void *, const char *);
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean pr_tag_type
|
2003-09-14 14:20:17 +02:00
|
|
|
|
(void *, const char *, unsigned int, enum debug_type_kind);
|
|
|
|
|
static bfd_boolean pr_typdef (void *, const char *);
|
|
|
|
|
static bfd_boolean pr_tag (void *, const char *);
|
|
|
|
|
static bfd_boolean pr_int_constant (void *, const char *, bfd_vma);
|
|
|
|
|
static bfd_boolean pr_float_constant (void *, const char *, double);
|
|
|
|
|
static bfd_boolean pr_typed_constant (void *, const char *, bfd_vma);
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean pr_variable
|
2003-09-14 14:20:17 +02:00
|
|
|
|
(void *, const char *, enum debug_var_kind, bfd_vma);
|
|
|
|
|
static bfd_boolean pr_start_function (void *, const char *, bfd_boolean);
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean pr_function_parameter
|
2003-09-14 14:20:17 +02:00
|
|
|
|
(void *, const char *, enum debug_parm_kind, bfd_vma);
|
|
|
|
|
static bfd_boolean pr_start_block (void *, bfd_vma);
|
|
|
|
|
static bfd_boolean pr_end_block (void *, bfd_vma);
|
|
|
|
|
static bfd_boolean pr_end_function (void *);
|
|
|
|
|
static bfd_boolean pr_lineno (void *, const char *, unsigned long, bfd_vma);
|
2003-07-22 15:33:32 +02:00
|
|
|
|
static bfd_boolean append_parent (struct pr_handle *, const char *);
|
|
|
|
|
/* Only used by tg_ code. */
|
2003-09-14 14:20:17 +02:00
|
|
|
|
static bfd_boolean tg_fix_visibility
|
|
|
|
|
(struct pr_handle *, enum debug_visibility);
|
2003-07-22 15:33:32 +02:00
|
|
|
|
static void find_address_in_section (bfd *, asection *, void *);
|
|
|
|
|
static void translate_addresses (bfd *, char *, FILE *, asymbol **);
|
|
|
|
|
static const char *visibility_name (enum debug_visibility);
|
|
|
|
|
/* Tags style replacements. */
|
|
|
|
|
static bfd_boolean tg_start_compilation_unit (void *, const char *);
|
|
|
|
|
static bfd_boolean tg_start_source (void *, const char *);
|
2003-09-14 14:20:17 +02:00
|
|
|
|
static bfd_boolean tg_enum_type
|
|
|
|
|
(void *, const char *, const char **, bfd_signed_vma *);
|
|
|
|
|
static bfd_boolean tg_start_struct_type
|
|
|
|
|
(void *, const char *, unsigned int, bfd_boolean, unsigned int);
|
|
|
|
|
static bfd_boolean pr_struct_field
|
|
|
|
|
(void *, const char *, bfd_vma, bfd_vma, enum debug_visibility);
|
|
|
|
|
static bfd_boolean tg_struct_field
|
|
|
|
|
(void *, const char *, bfd_vma, bfd_vma, enum debug_visibility);
|
|
|
|
|
static bfd_boolean tg_struct_field
|
|
|
|
|
(void *, const char *, bfd_vma, bfd_vma, enum debug_visibility);
|
2003-07-22 15:33:32 +02:00
|
|
|
|
static bfd_boolean tg_end_struct_type (void *);
|
2003-09-14 14:20:17 +02:00
|
|
|
|
static bfd_boolean tg_start_class_type
|
|
|
|
|
(void *, const char *, unsigned int, bfd_boolean, unsigned int, bfd_boolean, bfd_boolean);
|
|
|
|
|
static bfd_boolean tg_class_static_member
|
|
|
|
|
(void *, const char *, const char *, enum debug_visibility);
|
|
|
|
|
static bfd_boolean tg_class_baseclass
|
|
|
|
|
(void *, bfd_vma, bfd_boolean, enum debug_visibility);
|
|
|
|
|
static bfd_boolean tg_class_method_variant
|
|
|
|
|
(void *, const char *, enum debug_visibility, bfd_boolean, bfd_boolean, bfd_vma, bfd_boolean);
|
|
|
|
|
static bfd_boolean tg_class_static_method_variant
|
|
|
|
|
(void *, const char *, enum debug_visibility, bfd_boolean, bfd_boolean);
|
2003-07-22 15:33:32 +02:00
|
|
|
|
static bfd_boolean tg_end_class_type (void *);
|
2003-09-14 14:20:17 +02:00
|
|
|
|
static bfd_boolean tg_tag_type
|
|
|
|
|
(void *, const char *, unsigned int, enum debug_type_kind);
|
2003-07-22 15:33:32 +02:00
|
|
|
|
static bfd_boolean tg_typdef (void *, const char *);
|
|
|
|
|
static bfd_boolean tg_tag (void *, const char *);
|
|
|
|
|
static bfd_boolean tg_int_constant (void *, const char *, bfd_vma);
|
|
|
|
|
static bfd_boolean tg_float_constant (void *, const char *, double);
|
|
|
|
|
static bfd_boolean tg_typed_constant (void *, const char *, bfd_vma);
|
2003-09-14 14:20:17 +02:00
|
|
|
|
static bfd_boolean tg_variable
|
|
|
|
|
(void *, const char *, enum debug_var_kind, bfd_vma);
|
2003-07-22 15:33:32 +02:00
|
|
|
|
static bfd_boolean tg_start_function (void *, const char *, bfd_boolean);
|
2003-09-14 14:20:17 +02:00
|
|
|
|
static bfd_boolean tg_function_parameter
|
|
|
|
|
(void *, const char *, enum debug_parm_kind, bfd_vma);
|
2003-07-22 15:33:32 +02:00
|
|
|
|
static bfd_boolean tg_start_block (void *, bfd_vma);
|
|
|
|
|
static bfd_boolean tg_end_block (void *, bfd_vma);
|
|
|
|
|
static bfd_boolean tg_lineno (void *, const char *, unsigned long, bfd_vma);
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
static const struct debug_write_fns pr_fns =
|
|
|
|
|
{
|
|
|
|
|
pr_start_compilation_unit,
|
|
|
|
|
pr_start_source,
|
|
|
|
|
pr_empty_type,
|
|
|
|
|
pr_void_type,
|
|
|
|
|
pr_int_type,
|
|
|
|
|
pr_float_type,
|
|
|
|
|
pr_complex_type,
|
|
|
|
|
pr_bool_type,
|
|
|
|
|
pr_enum_type,
|
|
|
|
|
pr_pointer_type,
|
|
|
|
|
pr_function_type,
|
|
|
|
|
pr_reference_type,
|
|
|
|
|
pr_range_type,
|
|
|
|
|
pr_array_type,
|
|
|
|
|
pr_set_type,
|
|
|
|
|
pr_offset_type,
|
|
|
|
|
pr_method_type,
|
|
|
|
|
pr_const_type,
|
|
|
|
|
pr_volatile_type,
|
|
|
|
|
pr_start_struct_type,
|
|
|
|
|
pr_struct_field,
|
|
|
|
|
pr_end_struct_type,
|
|
|
|
|
pr_start_class_type,
|
|
|
|
|
pr_class_static_member,
|
|
|
|
|
pr_class_baseclass,
|
|
|
|
|
pr_class_start_method,
|
|
|
|
|
pr_class_method_variant,
|
|
|
|
|
pr_class_static_method_variant,
|
|
|
|
|
pr_class_end_method,
|
|
|
|
|
pr_end_class_type,
|
|
|
|
|
pr_typedef_type,
|
|
|
|
|
pr_tag_type,
|
|
|
|
|
pr_typdef,
|
|
|
|
|
pr_tag,
|
|
|
|
|
pr_int_constant,
|
|
|
|
|
pr_float_constant,
|
|
|
|
|
pr_typed_constant,
|
|
|
|
|
pr_variable,
|
|
|
|
|
pr_start_function,
|
|
|
|
|
pr_function_parameter,
|
|
|
|
|
pr_start_block,
|
|
|
|
|
pr_end_block,
|
|
|
|
|
pr_end_function,
|
|
|
|
|
pr_lineno
|
|
|
|
|
};
|
|
|
|
|
|
2003-07-22 15:33:32 +02:00
|
|
|
|
static const struct debug_write_fns tg_fns =
|
|
|
|
|
{
|
|
|
|
|
tg_start_compilation_unit,
|
|
|
|
|
tg_start_source,
|
|
|
|
|
pr_empty_type, /* Same, push_type. */
|
|
|
|
|
pr_void_type, /* Same, push_type. */
|
|
|
|
|
pr_int_type, /* Same, push_type. */
|
|
|
|
|
pr_float_type, /* Same, push_type. */
|
|
|
|
|
pr_complex_type, /* Same, push_type. */
|
|
|
|
|
pr_bool_type, /* Same, push_type. */
|
|
|
|
|
tg_enum_type,
|
|
|
|
|
pr_pointer_type, /* Same, changes to pointer. */
|
|
|
|
|
pr_function_type, /* Same, push_type. */
|
|
|
|
|
pr_reference_type, /* Same, changes to reference. */
|
|
|
|
|
pr_range_type, /* FIXME: What's that?. */
|
|
|
|
|
pr_array_type, /* Same, push_type. */
|
|
|
|
|
pr_set_type, /* FIXME: What's that?. */
|
|
|
|
|
pr_offset_type, /* FIXME: What's that?. */
|
|
|
|
|
pr_method_type, /* Same. */
|
|
|
|
|
pr_const_type, /* Same, changes to const. */
|
|
|
|
|
pr_volatile_type, /* Same, changes to volatile. */
|
|
|
|
|
tg_start_struct_type,
|
|
|
|
|
tg_struct_field,
|
|
|
|
|
tg_end_struct_type,
|
|
|
|
|
tg_start_class_type,
|
|
|
|
|
tg_class_static_member,
|
|
|
|
|
tg_class_baseclass,
|
2003-10-27 14:20:32 +01:00
|
|
|
|
pr_class_start_method, /* Same, remembers that's a method. */
|
2003-07-22 15:33:32 +02:00
|
|
|
|
tg_class_method_variant,
|
|
|
|
|
tg_class_static_method_variant,
|
|
|
|
|
pr_class_end_method, /* Same, forgets that's a method. */
|
|
|
|
|
tg_end_class_type,
|
|
|
|
|
pr_typedef_type, /* Same, just push type. */
|
|
|
|
|
tg_tag_type,
|
|
|
|
|
tg_typdef,
|
|
|
|
|
tg_tag,
|
|
|
|
|
tg_int_constant, /* Untested. */
|
|
|
|
|
tg_float_constant, /* Untested. */
|
|
|
|
|
tg_typed_constant, /* Untested. */
|
|
|
|
|
tg_variable,
|
|
|
|
|
tg_start_function,
|
|
|
|
|
tg_function_parameter,
|
|
|
|
|
tg_start_block,
|
|
|
|
|
tg_end_block,
|
|
|
|
|
pr_end_function, /* Same, does nothing. */
|
|
|
|
|
tg_lineno
|
|
|
|
|
};
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* Print out the generic debugging information recorded in dhandle. */
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
bfd_boolean
|
2003-09-14 14:20:17 +02:00
|
|
|
|
print_debugging_info (FILE *f, void *dhandle, bfd *abfd, asymbol **syms,
|
2015-01-10 23:00:33 +01:00
|
|
|
|
char * (*demangler) (struct bfd *, const char *, int),
|
|
|
|
|
bfd_boolean as_tags)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
struct pr_handle info;
|
|
|
|
|
|
|
|
|
|
info.f = f;
|
|
|
|
|
info.indent = 0;
|
|
|
|
|
info.stack = NULL;
|
|
|
|
|
info.parameter = 0;
|
2003-07-22 15:33:32 +02:00
|
|
|
|
info.filename = NULL;
|
|
|
|
|
info.abfd = abfd;
|
|
|
|
|
info.syms = syms;
|
2015-01-10 23:00:33 +01:00
|
|
|
|
info.demangler = demangler;
|
2003-07-22 15:33:32 +02:00
|
|
|
|
|
|
|
|
|
if (as_tags)
|
|
|
|
|
{
|
|
|
|
|
fputs ("!_TAG_FILE_FORMAT\t2\t/extended format/\n", f);
|
|
|
|
|
fputs ("!_TAG_FILE_SORTED\t0\t/0=unsorted, 1=sorted/\n", f);
|
|
|
|
|
fputs ("!_TAG_PROGRAM_AUTHOR\tIan Lance Taylor, Salvador E. Tropea and others\t//\n", f);
|
|
|
|
|
fputs ("!_TAG_PROGRAM_NAME\tobjdump\t/From GNU binutils/\n", f);
|
|
|
|
|
}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2003-07-22 15:33:32 +02:00
|
|
|
|
return as_tags ? debug_write (dhandle, &tg_fns, (void *) & info)
|
|
|
|
|
: debug_write (dhandle, &pr_fns, (void *) & info);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Indent to the current indentation level. */
|
|
|
|
|
|
|
|
|
|
static void
|
2003-09-14 14:20:17 +02:00
|
|
|
|
indent (struct pr_handle *info)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
unsigned int i;
|
|
|
|
|
|
|
|
|
|
for (i = 0; i < info->indent; i++)
|
|
|
|
|
putc (' ', info->f);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Push a type on the type stack. */
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean
|
2003-09-14 14:20:17 +02:00
|
|
|
|
push_type (struct pr_handle *info, const char *type)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
struct pr_stack *n;
|
|
|
|
|
|
|
|
|
|
if (type == NULL)
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
n = (struct pr_stack *) xmalloc (sizeof *n);
|
|
|
|
|
memset (n, 0, sizeof *n);
|
|
|
|
|
|
|
|
|
|
n->type = xstrdup (type);
|
|
|
|
|
n->visibility = DEBUG_VISIBILITY_IGNORE;
|
|
|
|
|
n->method = NULL;
|
|
|
|
|
n->next = info->stack;
|
|
|
|
|
info->stack = n;
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return TRUE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Prepend a string onto the type on the top of the type stack. */
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean
|
2003-09-14 14:20:17 +02:00
|
|
|
|
prepend_type (struct pr_handle *info, const char *s)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
char *n;
|
|
|
|
|
|
|
|
|
|
assert (info->stack != NULL);
|
|
|
|
|
|
|
|
|
|
n = (char *) xmalloc (strlen (s) + strlen (info->stack->type) + 1);
|
|
|
|
|
sprintf (n, "%s%s", s, info->stack->type);
|
|
|
|
|
free (info->stack->type);
|
|
|
|
|
info->stack->type = n;
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return TRUE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Append a string to the type on the top of the type stack. */
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean
|
2003-09-14 14:20:17 +02:00
|
|
|
|
append_type (struct pr_handle *info, const char *s)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
unsigned int len;
|
|
|
|
|
|
|
|
|
|
if (s == NULL)
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
assert (info->stack != NULL);
|
|
|
|
|
|
|
|
|
|
len = strlen (info->stack->type);
|
|
|
|
|
info->stack->type = (char *) xrealloc (info->stack->type,
|
|
|
|
|
len + strlen (s) + 1);
|
|
|
|
|
strcpy (info->stack->type + len, s);
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return TRUE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
2003-07-22 15:33:32 +02:00
|
|
|
|
/* Append a string to the parents on the top of the type stack. */
|
|
|
|
|
|
|
|
|
|
static bfd_boolean
|
|
|
|
|
append_parent (struct pr_handle *info, const char *s)
|
|
|
|
|
{
|
|
|
|
|
unsigned int len;
|
|
|
|
|
|
|
|
|
|
if (s == NULL)
|
|
|
|
|
return FALSE;
|
|
|
|
|
|
|
|
|
|
assert (info->stack != NULL);
|
|
|
|
|
|
|
|
|
|
len = info->stack->parents ? strlen (info->stack->parents) : 0;
|
|
|
|
|
info->stack->parents = (char *) xrealloc (info->stack->parents,
|
|
|
|
|
len + strlen (s) + 1);
|
|
|
|
|
strcpy (info->stack->parents + len, s);
|
|
|
|
|
|
|
|
|
|
return TRUE;
|
|
|
|
|
}
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* We use an underscore to indicate where the name should go in a type
|
|
|
|
|
string. This function substitutes a string for the underscore. If
|
|
|
|
|
there is no underscore, the name follows the type. */
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean
|
2003-09-14 14:20:17 +02:00
|
|
|
|
substitute_type (struct pr_handle *info, const char *s)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
char *u;
|
|
|
|
|
|
|
|
|
|
assert (info->stack != NULL);
|
|
|
|
|
|
|
|
|
|
u = strchr (info->stack->type, '|');
|
|
|
|
|
if (u != NULL)
|
|
|
|
|
{
|
|
|
|
|
char *n;
|
|
|
|
|
|
|
|
|
|
n = (char *) xmalloc (strlen (info->stack->type) + strlen (s));
|
|
|
|
|
|
|
|
|
|
memcpy (n, info->stack->type, u - info->stack->type);
|
|
|
|
|
strcpy (n + (u - info->stack->type), s);
|
|
|
|
|
strcat (n, u + 1);
|
|
|
|
|
|
|
|
|
|
free (info->stack->type);
|
|
|
|
|
info->stack->type = n;
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return TRUE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (strchr (s, '|') != NULL
|
|
|
|
|
&& (strchr (info->stack->type, '{') != NULL
|
|
|
|
|
|| strchr (info->stack->type, '(') != NULL))
|
|
|
|
|
{
|
|
|
|
|
if (! prepend_type (info, "(")
|
|
|
|
|
|| ! append_type (info, ")"))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (*s == '\0')
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return TRUE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
return (append_type (info, " ")
|
|
|
|
|
&& append_type (info, s));
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Indent the type at the top of the stack by appending spaces. */
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean
|
2003-09-14 14:20:17 +02:00
|
|
|
|
indent_type (struct pr_handle *info)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
unsigned int i;
|
|
|
|
|
|
|
|
|
|
for (i = 0; i < info->indent; i++)
|
|
|
|
|
{
|
|
|
|
|
if (! append_type (info, " "))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return TRUE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Pop a type from the type stack. */
|
|
|
|
|
|
|
|
|
|
static char *
|
2003-09-14 14:20:17 +02:00
|
|
|
|
pop_type (struct pr_handle *info)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
struct pr_stack *o;
|
|
|
|
|
char *ret;
|
|
|
|
|
|
|
|
|
|
assert (info->stack != NULL);
|
|
|
|
|
|
|
|
|
|
o = info->stack;
|
|
|
|
|
info->stack = o->next;
|
|
|
|
|
ret = o->type;
|
|
|
|
|
free (o);
|
|
|
|
|
|
|
|
|
|
return ret;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Print a VMA value into a string. */
|
|
|
|
|
|
|
|
|
|
static void
|
2003-09-14 14:20:17 +02:00
|
|
|
|
print_vma (bfd_vma vma, char *buf, bfd_boolean unsignedp, bfd_boolean hexp)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
if (sizeof (vma) <= sizeof (unsigned long))
|
|
|
|
|
{
|
|
|
|
|
if (hexp)
|
|
|
|
|
sprintf (buf, "0x%lx", (unsigned long) vma);
|
|
|
|
|
else if (unsignedp)
|
|
|
|
|
sprintf (buf, "%lu", (unsigned long) vma);
|
|
|
|
|
else
|
|
|
|
|
sprintf (buf, "%ld", (long) vma);
|
|
|
|
|
}
|
2008-01-08 00:17:48 +01:00
|
|
|
|
#if BFD_HOST_64BIT_LONG_LONG
|
|
|
|
|
else if (sizeof (vma) <= sizeof (unsigned long long))
|
|
|
|
|
{
|
2008-01-25 17:18:41 +01:00
|
|
|
|
#ifndef __MSVCRT__
|
2008-01-08 00:17:48 +01:00
|
|
|
|
if (hexp)
|
|
|
|
|
sprintf (buf, "0x%llx", (unsigned long long) vma);
|
|
|
|
|
else if (unsignedp)
|
|
|
|
|
sprintf (buf, "%llu", (unsigned long long) vma);
|
|
|
|
|
else
|
|
|
|
|
sprintf (buf, "%lld", (long long) vma);
|
2008-01-25 17:18:41 +01:00
|
|
|
|
#else
|
|
|
|
|
if (hexp)
|
|
|
|
|
sprintf (buf, "0x%I64x", (unsigned long long) vma);
|
|
|
|
|
else if (unsignedp)
|
|
|
|
|
sprintf (buf, "%I64u", (unsigned long long) vma);
|
|
|
|
|
else
|
|
|
|
|
sprintf (buf, "%I64d", (long long) vma);
|
|
|
|
|
#endif
|
2008-01-08 00:17:48 +01:00
|
|
|
|
}
|
|
|
|
|
#endif
|
1999-05-03 09:29:11 +02:00
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
buf[0] = '0';
|
|
|
|
|
buf[1] = 'x';
|
|
|
|
|
sprintf_vma (buf + 2, vma);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Start a new compilation unit. */
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean
|
2003-09-14 14:20:17 +02:00
|
|
|
|
pr_start_compilation_unit (void *p, const char *filename)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
|
|
|
|
|
|
|
|
|
assert (info->indent == 0);
|
|
|
|
|
|
|
|
|
|
fprintf (info->f, "%s:\n", filename);
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return TRUE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Start a source file within a compilation unit. */
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean
|
2003-09-14 14:20:17 +02:00
|
|
|
|
pr_start_source (void *p, const char *filename)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
|
|
|
|
|
|
|
|
|
assert (info->indent == 0);
|
|
|
|
|
|
|
|
|
|
fprintf (info->f, " %s:\n", filename);
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return TRUE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Push an empty type onto the type stack. */
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean
|
2003-09-14 14:20:17 +02:00
|
|
|
|
pr_empty_type (void *p)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
|
|
|
|
|
|
|
|
|
return push_type (info, "<undefined>");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Push a void type onto the type stack. */
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean
|
2003-09-14 14:20:17 +02:00
|
|
|
|
pr_void_type (void *p)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
|
|
|
|
|
|
|
|
|
return push_type (info, "void");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Push an integer type onto the type stack. */
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean
|
2003-09-14 14:20:17 +02:00
|
|
|
|
pr_int_type (void *p, unsigned int size, bfd_boolean unsignedp)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
2017-08-08 12:57:22 +02:00
|
|
|
|
char ab[40];
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
sprintf (ab, "%sint%d", unsignedp ? "u" : "", size * 8);
|
|
|
|
|
return push_type (info, ab);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Push a floating type onto the type stack. */
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean
|
2003-09-14 14:20:17 +02:00
|
|
|
|
pr_float_type (void *p, unsigned int size)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
2017-08-08 12:57:22 +02:00
|
|
|
|
char ab[40];
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
if (size == 4)
|
|
|
|
|
return push_type (info, "float");
|
|
|
|
|
else if (size == 8)
|
|
|
|
|
return push_type (info, "double");
|
|
|
|
|
|
|
|
|
|
sprintf (ab, "float%d", size * 8);
|
|
|
|
|
return push_type (info, ab);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Push a complex type onto the type stack. */
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean
|
2003-09-14 14:20:17 +02:00
|
|
|
|
pr_complex_type (void *p, unsigned int size)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
|
|
|
|
|
|
|
|
|
if (! pr_float_type (p, size))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
return prepend_type (info, "complex ");
|
|
|
|
|
}
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
/* Push a bfd_boolean type onto the type stack. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean
|
2003-09-14 14:20:17 +02:00
|
|
|
|
pr_bool_type (void *p, unsigned int size)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
2017-08-08 12:57:22 +02:00
|
|
|
|
char ab[40];
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
sprintf (ab, "bool%d", size * 8);
|
|
|
|
|
|
|
|
|
|
return push_type (info, ab);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Push an enum type onto the type stack. */
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean
|
2003-09-14 14:20:17 +02:00
|
|
|
|
pr_enum_type (void *p, const char *tag, const char **names,
|
|
|
|
|
bfd_signed_vma *values)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
|
|
|
|
unsigned int i;
|
|
|
|
|
bfd_signed_vma val;
|
|
|
|
|
|
|
|
|
|
if (! push_type (info, "enum "))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (tag != NULL)
|
|
|
|
|
{
|
|
|
|
|
if (! append_type (info, tag)
|
|
|
|
|
|| ! append_type (info, " "))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
if (! append_type (info, "{ "))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
if (names == NULL)
|
|
|
|
|
{
|
|
|
|
|
if (! append_type (info, "/* undefined */"))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
val = 0;
|
|
|
|
|
for (i = 0; names[i] != NULL; i++)
|
|
|
|
|
{
|
|
|
|
|
if (i > 0)
|
|
|
|
|
{
|
|
|
|
|
if (! append_type (info, ", "))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (! append_type (info, names[i]))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
if (values[i] != val)
|
|
|
|
|
{
|
2016-07-01 13:35:01 +02:00
|
|
|
|
char ab[22];
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
print_vma (values[i], ab, FALSE, FALSE);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (! append_type (info, " = ")
|
|
|
|
|
|| ! append_type (info, ab))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
val = values[i];
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
++val;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return append_type (info, " }");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Turn the top type on the stack into a pointer. */
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean
|
2003-09-14 14:20:17 +02:00
|
|
|
|
pr_pointer_type (void *p)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
|
|
|
|
char *s;
|
|
|
|
|
|
|
|
|
|
assert (info->stack != NULL);
|
|
|
|
|
|
|
|
|
|
s = strchr (info->stack->type, '|');
|
|
|
|
|
if (s != NULL && s[1] == '[')
|
|
|
|
|
return substitute_type (info, "(*|)");
|
|
|
|
|
return substitute_type (info, "*|");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Turn the top type on the stack into a function returning that type. */
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean
|
2003-09-14 14:20:17 +02:00
|
|
|
|
pr_function_type (void *p, int argcount, bfd_boolean varargs)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
|
|
|
|
char **arg_types;
|
|
|
|
|
unsigned int len;
|
|
|
|
|
char *s;
|
|
|
|
|
|
|
|
|
|
assert (info->stack != NULL);
|
|
|
|
|
|
|
|
|
|
len = 10;
|
|
|
|
|
|
|
|
|
|
if (argcount <= 0)
|
|
|
|
|
{
|
|
|
|
|
arg_types = NULL;
|
|
|
|
|
len += 15;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
int i;
|
|
|
|
|
|
|
|
|
|
arg_types = (char **) xmalloc (argcount * sizeof *arg_types);
|
|
|
|
|
for (i = argcount - 1; i >= 0; i--)
|
|
|
|
|
{
|
|
|
|
|
if (! substitute_type (info, ""))
|
2011-03-25 18:24:28 +01:00
|
|
|
|
{
|
|
|
|
|
free (arg_types);
|
|
|
|
|
return FALSE;
|
|
|
|
|
}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
arg_types[i] = pop_type (info);
|
|
|
|
|
if (arg_types[i] == NULL)
|
2011-03-25 18:24:28 +01:00
|
|
|
|
{
|
|
|
|
|
free (arg_types);
|
|
|
|
|
return FALSE;
|
|
|
|
|
}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
len += strlen (arg_types[i]) + 2;
|
|
|
|
|
}
|
|
|
|
|
if (varargs)
|
|
|
|
|
len += 5;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Now the return type is on the top of the stack. */
|
|
|
|
|
|
2009-09-10 15:40:44 +02:00
|
|
|
|
s = (char *) xmalloc (len);
|
2006-09-28 14:59:25 +02:00
|
|
|
|
LITSTRCPY (s, "(|) (");
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
if (argcount < 0)
|
|
|
|
|
strcat (s, "/* unknown */");
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
int i;
|
|
|
|
|
|
|
|
|
|
for (i = 0; i < argcount; i++)
|
|
|
|
|
{
|
|
|
|
|
if (i > 0)
|
|
|
|
|
strcat (s, ", ");
|
|
|
|
|
strcat (s, arg_types[i]);
|
|
|
|
|
}
|
|
|
|
|
if (varargs)
|
|
|
|
|
{
|
|
|
|
|
if (i > 0)
|
|
|
|
|
strcat (s, ", ");
|
|
|
|
|
strcat (s, "...");
|
|
|
|
|
}
|
|
|
|
|
if (argcount > 0)
|
|
|
|
|
free (arg_types);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
strcat (s, ")");
|
|
|
|
|
|
|
|
|
|
if (! substitute_type (info, s))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
free (s);
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return TRUE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Turn the top type on the stack into a reference to that type. */
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean
|
2003-09-14 14:20:17 +02:00
|
|
|
|
pr_reference_type (void *p)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
|
|
|
|
|
|
|
|
|
assert (info->stack != NULL);
|
|
|
|
|
|
|
|
|
|
return substitute_type (info, "&|");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Make a range type. */
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean
|
2003-09-14 14:20:17 +02:00
|
|
|
|
pr_range_type (void *p, bfd_signed_vma lower, bfd_signed_vma upper)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
2016-07-01 13:35:01 +02:00
|
|
|
|
char abl[22], abu[22];
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
assert (info->stack != NULL);
|
|
|
|
|
|
|
|
|
|
if (! substitute_type (info, ""))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
print_vma (lower, abl, FALSE, FALSE);
|
|
|
|
|
print_vma (upper, abu, FALSE, FALSE);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
return (prepend_type (info, "range (")
|
|
|
|
|
&& append_type (info, "):")
|
|
|
|
|
&& append_type (info, abl)
|
|
|
|
|
&& append_type (info, ":")
|
|
|
|
|
&& append_type (info, abu));
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Make an array type. */
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean
|
2003-09-14 14:20:17 +02:00
|
|
|
|
pr_array_type (void *p, bfd_signed_vma lower, bfd_signed_vma upper,
|
|
|
|
|
bfd_boolean stringp)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
|
|
|
|
char *range_type;
|
2016-07-01 13:35:01 +02:00
|
|
|
|
char abl[22], abu[22], ab[50];
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
range_type = pop_type (info);
|
|
|
|
|
if (range_type == NULL)
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
if (lower == 0)
|
|
|
|
|
{
|
|
|
|
|
if (upper == -1)
|
|
|
|
|
sprintf (ab, "|[]");
|
|
|
|
|
else
|
|
|
|
|
{
|
2002-11-30 09:39:46 +01:00
|
|
|
|
print_vma (upper + 1, abu, FALSE, FALSE);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
sprintf (ab, "|[%s]", abu);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
2002-11-30 09:39:46 +01:00
|
|
|
|
print_vma (lower, abl, FALSE, FALSE);
|
|
|
|
|
print_vma (upper, abu, FALSE, FALSE);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
sprintf (ab, "|[%s:%s]", abl, abu);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (! substitute_type (info, ab))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
if (strcmp (range_type, "int") != 0)
|
|
|
|
|
{
|
|
|
|
|
if (! append_type (info, ":")
|
|
|
|
|
|| ! append_type (info, range_type))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (stringp)
|
|
|
|
|
{
|
|
|
|
|
if (! append_type (info, " /* string */"))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return TRUE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Make a set type. */
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean
|
2003-09-14 14:20:17 +02:00
|
|
|
|
pr_set_type (void *p, bfd_boolean bitstringp)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
|
|
|
|
|
|
|
|
|
if (! substitute_type (info, ""))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
if (! prepend_type (info, "set { ")
|
|
|
|
|
|| ! append_type (info, " }"))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
if (bitstringp)
|
|
|
|
|
{
|
|
|
|
|
if (! append_type (info, "/* bitstring */"))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return TRUE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Make an offset type. */
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean
|
2003-09-14 14:20:17 +02:00
|
|
|
|
pr_offset_type (void *p)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
|
|
|
|
char *t;
|
|
|
|
|
|
|
|
|
|
if (! substitute_type (info, ""))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
t = pop_type (info);
|
|
|
|
|
if (t == NULL)
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
return (substitute_type (info, "")
|
|
|
|
|
&& prepend_type (info, " ")
|
|
|
|
|
&& prepend_type (info, t)
|
|
|
|
|
&& append_type (info, "::|"));
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Make a method type. */
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean
|
2003-09-14 14:20:17 +02:00
|
|
|
|
pr_method_type (void *p, bfd_boolean domain, int argcount, bfd_boolean varargs)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
|
|
|
|
unsigned int len;
|
|
|
|
|
char *domain_type;
|
|
|
|
|
char **arg_types;
|
|
|
|
|
char *s;
|
|
|
|
|
|
|
|
|
|
len = 10;
|
|
|
|
|
|
|
|
|
|
if (! domain)
|
|
|
|
|
domain_type = NULL;
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
if (! substitute_type (info, ""))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
domain_type = pop_type (info);
|
|
|
|
|
if (domain_type == NULL)
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
2006-09-16 20:12:17 +02:00
|
|
|
|
if (CONST_STRNEQ (domain_type, "class ")
|
1999-05-03 09:29:11 +02:00
|
|
|
|
&& strchr (domain_type + sizeof "class " - 1, ' ') == NULL)
|
|
|
|
|
domain_type += sizeof "class " - 1;
|
2006-09-16 20:12:17 +02:00
|
|
|
|
else if (CONST_STRNEQ (domain_type, "union class ")
|
1999-05-03 09:29:11 +02:00
|
|
|
|
&& (strchr (domain_type + sizeof "union class " - 1, ' ')
|
|
|
|
|
== NULL))
|
|
|
|
|
domain_type += sizeof "union class " - 1;
|
|
|
|
|
len += strlen (domain_type);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (argcount <= 0)
|
|
|
|
|
{
|
|
|
|
|
arg_types = NULL;
|
|
|
|
|
len += 15;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
int i;
|
|
|
|
|
|
|
|
|
|
arg_types = (char **) xmalloc (argcount * sizeof *arg_types);
|
|
|
|
|
for (i = argcount - 1; i >= 0; i--)
|
|
|
|
|
{
|
|
|
|
|
if (! substitute_type (info, ""))
|
2011-03-25 18:24:28 +01:00
|
|
|
|
{
|
|
|
|
|
free (arg_types);
|
|
|
|
|
return FALSE;
|
|
|
|
|
}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
arg_types[i] = pop_type (info);
|
|
|
|
|
if (arg_types[i] == NULL)
|
2011-03-25 18:24:28 +01:00
|
|
|
|
{
|
|
|
|
|
free (arg_types);
|
|
|
|
|
return FALSE;
|
|
|
|
|
}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
len += strlen (arg_types[i]) + 2;
|
|
|
|
|
}
|
|
|
|
|
if (varargs)
|
|
|
|
|
len += 5;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Now the return type is on the top of the stack. */
|
|
|
|
|
|
|
|
|
|
s = (char *) xmalloc (len);
|
|
|
|
|
if (! domain)
|
|
|
|
|
*s = '\0';
|
|
|
|
|
else
|
|
|
|
|
strcpy (s, domain_type);
|
|
|
|
|
strcat (s, "::| (");
|
|
|
|
|
|
|
|
|
|
if (argcount < 0)
|
|
|
|
|
strcat (s, "/* unknown */");
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
int i;
|
|
|
|
|
|
|
|
|
|
for (i = 0; i < argcount; i++)
|
|
|
|
|
{
|
|
|
|
|
if (i > 0)
|
|
|
|
|
strcat (s, ", ");
|
|
|
|
|
strcat (s, arg_types[i]);
|
|
|
|
|
}
|
|
|
|
|
if (varargs)
|
|
|
|
|
{
|
|
|
|
|
if (i > 0)
|
|
|
|
|
strcat (s, ", ");
|
|
|
|
|
strcat (s, "...");
|
|
|
|
|
}
|
|
|
|
|
if (argcount > 0)
|
|
|
|
|
free (arg_types);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
strcat (s, ")");
|
|
|
|
|
|
|
|
|
|
if (! substitute_type (info, s))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
free (s);
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return TRUE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Make a const qualified type. */
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean
|
2003-09-14 14:20:17 +02:00
|
|
|
|
pr_const_type (void *p)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
|
|
|
|
|
|
|
|
|
return substitute_type (info, "const |");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Make a volatile qualified type. */
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean
|
2003-09-14 14:20:17 +02:00
|
|
|
|
pr_volatile_type (void *p)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
|
|
|
|
|
|
|
|
|
return substitute_type (info, "volatile |");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Start accumulating a struct type. */
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean
|
2003-09-14 14:20:17 +02:00
|
|
|
|
pr_start_struct_type (void *p, const char *tag, unsigned int id,
|
|
|
|
|
bfd_boolean structp, unsigned int size)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
|
|
|
|
|
|
|
|
|
info->indent += 2;
|
|
|
|
|
|
|
|
|
|
if (! push_type (info, structp ? "struct " : "union "))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (tag != NULL)
|
|
|
|
|
{
|
|
|
|
|
if (! append_type (info, tag))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
char idbuf[20];
|
|
|
|
|
|
|
|
|
|
sprintf (idbuf, "%%anon%u", id);
|
|
|
|
|
if (! append_type (info, idbuf))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (! append_type (info, " {"))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (size != 0 || tag != NULL)
|
|
|
|
|
{
|
|
|
|
|
char ab[30];
|
|
|
|
|
|
|
|
|
|
if (! append_type (info, " /*"))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
if (size != 0)
|
|
|
|
|
{
|
|
|
|
|
sprintf (ab, " size %u", size);
|
|
|
|
|
if (! append_type (info, ab))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
if (tag != NULL)
|
|
|
|
|
{
|
|
|
|
|
sprintf (ab, " id %u", id);
|
|
|
|
|
if (! append_type (info, ab))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
if (! append_type (info, " */"))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
if (! append_type (info, "\n"))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
info->stack->visibility = DEBUG_VISIBILITY_PUBLIC;
|
|
|
|
|
|
|
|
|
|
return indent_type (info);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Output the visibility of a field in a struct. */
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean
|
2003-09-14 14:20:17 +02:00
|
|
|
|
pr_fix_visibility (struct pr_handle *info, enum debug_visibility visibility)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
1999-07-11 22:02:30 +02:00
|
|
|
|
const char *s = NULL;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
char *t;
|
|
|
|
|
unsigned int len;
|
|
|
|
|
|
|
|
|
|
assert (info->stack != NULL);
|
|
|
|
|
|
|
|
|
|
if (info->stack->visibility == visibility)
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return TRUE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
switch (visibility)
|
|
|
|
|
{
|
|
|
|
|
case DEBUG_VISIBILITY_PUBLIC:
|
|
|
|
|
s = "public";
|
|
|
|
|
break;
|
|
|
|
|
case DEBUG_VISIBILITY_PRIVATE:
|
|
|
|
|
s = "private";
|
|
|
|
|
break;
|
|
|
|
|
case DEBUG_VISIBILITY_PROTECTED:
|
|
|
|
|
s = "protected";
|
|
|
|
|
break;
|
|
|
|
|
case DEBUG_VISIBILITY_IGNORE:
|
|
|
|
|
s = "/* ignore */";
|
|
|
|
|
break;
|
|
|
|
|
default:
|
|
|
|
|
abort ();
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Trim off a trailing space in the struct string, to make the
|
|
|
|
|
output look a bit better, then stick on the visibility string. */
|
|
|
|
|
|
|
|
|
|
t = info->stack->type;
|
|
|
|
|
len = strlen (t);
|
|
|
|
|
assert (t[len - 1] == ' ');
|
|
|
|
|
t[len - 1] = '\0';
|
|
|
|
|
|
|
|
|
|
if (! append_type (info, s)
|
|
|
|
|
|| ! append_type (info, ":\n")
|
|
|
|
|
|| ! indent_type (info))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
info->stack->visibility = visibility;
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return TRUE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Add a field to a struct type. */
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean
|
2003-09-14 14:20:17 +02:00
|
|
|
|
pr_struct_field (void *p, const char *name, bfd_vma bitpos, bfd_vma bitsize,
|
|
|
|
|
enum debug_visibility visibility)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
2016-07-01 13:35:01 +02:00
|
|
|
|
char ab[22];
|
1999-05-03 09:29:11 +02:00
|
|
|
|
char *t;
|
|
|
|
|
|
|
|
|
|
if (! substitute_type (info, name))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
if (! append_type (info, "; /* "))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
if (bitsize != 0)
|
|
|
|
|
{
|
2002-11-30 09:39:46 +01:00
|
|
|
|
print_vma (bitsize, ab, TRUE, FALSE);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (! append_type (info, "bitsize ")
|
|
|
|
|
|| ! append_type (info, ab)
|
|
|
|
|
|| ! append_type (info, ", "))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
print_vma (bitpos, ab, TRUE, FALSE);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (! append_type (info, "bitpos ")
|
|
|
|
|
|| ! append_type (info, ab)
|
|
|
|
|
|| ! append_type (info, " */\n")
|
|
|
|
|
|| ! indent_type (info))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
t = pop_type (info);
|
|
|
|
|
if (t == NULL)
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
if (! pr_fix_visibility (info, visibility))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
return append_type (info, t);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Finish a struct type. */
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean
|
2003-09-14 14:20:17 +02:00
|
|
|
|
pr_end_struct_type (void *p)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
|
|
|
|
char *s;
|
|
|
|
|
|
|
|
|
|
assert (info->stack != NULL);
|
|
|
|
|
assert (info->indent >= 2);
|
|
|
|
|
|
|
|
|
|
info->indent -= 2;
|
|
|
|
|
|
|
|
|
|
/* Change the trailing indentation to have a close brace. */
|
|
|
|
|
s = info->stack->type + strlen (info->stack->type) - 2;
|
|
|
|
|
assert (s[0] == ' ' && s[1] == ' ' && s[2] == '\0');
|
|
|
|
|
|
|
|
|
|
*s++ = '}';
|
|
|
|
|
*s = '\0';
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return TRUE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Start a class type. */
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean
|
2003-09-14 14:20:17 +02:00
|
|
|
|
pr_start_class_type (void *p, const char *tag, unsigned int id,
|
|
|
|
|
bfd_boolean structp, unsigned int size,
|
|
|
|
|
bfd_boolean vptr, bfd_boolean ownvptr)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
|
|
|
|
char *tv = NULL;
|
|
|
|
|
|
|
|
|
|
info->indent += 2;
|
|
|
|
|
|
|
|
|
|
if (vptr && ! ownvptr)
|
|
|
|
|
{
|
|
|
|
|
tv = pop_type (info);
|
|
|
|
|
if (tv == NULL)
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (! push_type (info, structp ? "class " : "union class "))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (tag != NULL)
|
|
|
|
|
{
|
|
|
|
|
if (! append_type (info, tag))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
char idbuf[20];
|
|
|
|
|
|
|
|
|
|
sprintf (idbuf, "%%anon%u", id);
|
|
|
|
|
if (! append_type (info, idbuf))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (! append_type (info, " {"))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (size != 0 || vptr || ownvptr || tag != NULL)
|
|
|
|
|
{
|
|
|
|
|
if (! append_type (info, " /*"))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
if (size != 0)
|
|
|
|
|
{
|
|
|
|
|
char ab[20];
|
|
|
|
|
|
|
|
|
|
sprintf (ab, "%u", size);
|
|
|
|
|
if (! append_type (info, " size ")
|
|
|
|
|
|| ! append_type (info, ab))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (vptr)
|
|
|
|
|
{
|
|
|
|
|
if (! append_type (info, " vtable "))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (ownvptr)
|
|
|
|
|
{
|
|
|
|
|
if (! append_type (info, "self "))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
if (! append_type (info, tv)
|
|
|
|
|
|| ! append_type (info, " "))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (tag != NULL)
|
|
|
|
|
{
|
|
|
|
|
char ab[30];
|
|
|
|
|
|
|
|
|
|
sprintf (ab, " id %u", id);
|
|
|
|
|
if (! append_type (info, ab))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (! append_type (info, " */"))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
info->stack->visibility = DEBUG_VISIBILITY_PRIVATE;
|
|
|
|
|
|
|
|
|
|
return (append_type (info, "\n")
|
|
|
|
|
&& indent_type (info));
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Add a static member to a class. */
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean
|
2003-09-14 14:20:17 +02:00
|
|
|
|
pr_class_static_member (void *p, const char *name, const char *physname,
|
|
|
|
|
enum debug_visibility visibility)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
|
|
|
|
char *t;
|
|
|
|
|
|
|
|
|
|
if (! substitute_type (info, name))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
if (! prepend_type (info, "static ")
|
|
|
|
|
|| ! append_type (info, "; /* ")
|
|
|
|
|
|| ! append_type (info, physname)
|
|
|
|
|
|| ! append_type (info, " */\n")
|
|
|
|
|
|| ! indent_type (info))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
t = pop_type (info);
|
|
|
|
|
if (t == NULL)
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
if (! pr_fix_visibility (info, visibility))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
return append_type (info, t);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Add a base class to a class. */
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean
|
2009-09-10 15:40:44 +02:00
|
|
|
|
pr_class_baseclass (void *p, bfd_vma bitpos, bfd_boolean is_virtual,
|
2003-09-14 14:20:17 +02:00
|
|
|
|
enum debug_visibility visibility)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
|
|
|
|
char *t;
|
|
|
|
|
const char *prefix;
|
2016-07-01 13:35:01 +02:00
|
|
|
|
char ab[22];
|
1999-05-03 09:29:11 +02:00
|
|
|
|
char *s, *l, *n;
|
|
|
|
|
|
|
|
|
|
assert (info->stack != NULL && info->stack->next != NULL);
|
|
|
|
|
|
|
|
|
|
if (! substitute_type (info, ""))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
t = pop_type (info);
|
|
|
|
|
if (t == NULL)
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2006-09-16 20:12:17 +02:00
|
|
|
|
if (CONST_STRNEQ (t, "class "))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
t += sizeof "class " - 1;
|
|
|
|
|
|
|
|
|
|
/* Push it back on to take advantage of the prepend_type and
|
|
|
|
|
append_type routines. */
|
|
|
|
|
if (! push_type (info, t))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2009-09-10 15:40:44 +02:00
|
|
|
|
if (is_virtual)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
if (! prepend_type (info, "virtual "))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
switch (visibility)
|
|
|
|
|
{
|
|
|
|
|
case DEBUG_VISIBILITY_PUBLIC:
|
|
|
|
|
prefix = "public ";
|
|
|
|
|
break;
|
|
|
|
|
case DEBUG_VISIBILITY_PROTECTED:
|
|
|
|
|
prefix = "protected ";
|
|
|
|
|
break;
|
|
|
|
|
case DEBUG_VISIBILITY_PRIVATE:
|
|
|
|
|
prefix = "private ";
|
|
|
|
|
break;
|
|
|
|
|
default:
|
|
|
|
|
prefix = "/* unknown visibility */ ";
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (! prepend_type (info, prefix))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
if (bitpos != 0)
|
|
|
|
|
{
|
2002-11-30 09:39:46 +01:00
|
|
|
|
print_vma (bitpos, ab, TRUE, FALSE);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (! append_type (info, " /* bitpos ")
|
|
|
|
|
|| ! append_type (info, ab)
|
|
|
|
|
|| ! append_type (info, " */"))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Now the top of the stack is something like "public A / * bitpos
|
|
|
|
|
10 * /". The next element on the stack is something like "class
|
|
|
|
|
xx { / * size 8 * /\n...". We want to substitute the top of the
|
|
|
|
|
stack in before the {. */
|
|
|
|
|
s = strchr (info->stack->next->type, '{');
|
|
|
|
|
assert (s != NULL);
|
|
|
|
|
--s;
|
|
|
|
|
|
|
|
|
|
/* If there is already a ':', then we already have a baseclass, and
|
|
|
|
|
we must append this one after a comma. */
|
|
|
|
|
for (l = info->stack->next->type; l != s; l++)
|
|
|
|
|
if (*l == ':')
|
|
|
|
|
break;
|
|
|
|
|
if (! prepend_type (info, l == s ? " : " : ", "))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
t = pop_type (info);
|
|
|
|
|
if (t == NULL)
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
n = (char *) xmalloc (strlen (info->stack->type) + strlen (t) + 1);
|
|
|
|
|
memcpy (n, info->stack->type, s - info->stack->type);
|
|
|
|
|
strcpy (n + (s - info->stack->type), t);
|
|
|
|
|
strcat (n, s);
|
|
|
|
|
|
|
|
|
|
free (info->stack->type);
|
|
|
|
|
info->stack->type = n;
|
|
|
|
|
|
|
|
|
|
free (t);
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return TRUE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Start adding a method to a class. */
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean
|
2003-09-14 14:20:17 +02:00
|
|
|
|
pr_class_start_method (void *p, const char *name)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
|
|
|
|
|
|
|
|
|
assert (info->stack != NULL);
|
|
|
|
|
info->stack->method = name;
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return TRUE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Add a variant to a method. */
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean
|
2003-09-14 14:20:17 +02:00
|
|
|
|
pr_class_method_variant (void *p, const char *physname,
|
|
|
|
|
enum debug_visibility visibility,
|
|
|
|
|
bfd_boolean constp, bfd_boolean volatilep,
|
|
|
|
|
bfd_vma voffset, bfd_boolean context)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
|
|
|
|
char *method_type;
|
|
|
|
|
char *context_type;
|
|
|
|
|
|
|
|
|
|
assert (info->stack != NULL);
|
|
|
|
|
assert (info->stack->next != NULL);
|
|
|
|
|
|
|
|
|
|
/* Put the const and volatile qualifiers on the type. */
|
|
|
|
|
if (volatilep)
|
|
|
|
|
{
|
|
|
|
|
if (! append_type (info, " volatile"))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
if (constp)
|
|
|
|
|
{
|
|
|
|
|
if (! append_type (info, " const"))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Stick the name of the method into its type. */
|
|
|
|
|
if (! substitute_type (info,
|
|
|
|
|
(context
|
|
|
|
|
? info->stack->next->next->method
|
|
|
|
|
: info->stack->next->method)))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
/* Get the type. */
|
|
|
|
|
method_type = pop_type (info);
|
|
|
|
|
if (method_type == NULL)
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
/* Pull off the context type if there is one. */
|
|
|
|
|
if (! context)
|
|
|
|
|
context_type = NULL;
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
context_type = pop_type (info);
|
|
|
|
|
if (context_type == NULL)
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Now the top of the stack is the class. */
|
|
|
|
|
|
|
|
|
|
if (! pr_fix_visibility (info, visibility))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
if (! append_type (info, method_type)
|
|
|
|
|
|| ! append_type (info, " /* ")
|
|
|
|
|
|| ! append_type (info, physname)
|
|
|
|
|
|| ! append_type (info, " "))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (context || voffset != 0)
|
|
|
|
|
{
|
2016-07-01 13:35:01 +02:00
|
|
|
|
char ab[22];
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
if (context)
|
|
|
|
|
{
|
|
|
|
|
if (! append_type (info, "context ")
|
|
|
|
|
|| ! append_type (info, context_type)
|
|
|
|
|
|| ! append_type (info, " "))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
2002-11-30 09:39:46 +01:00
|
|
|
|
print_vma (voffset, ab, TRUE, FALSE);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (! append_type (info, "voffset ")
|
|
|
|
|
|| ! append_type (info, ab))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return (append_type (info, " */;\n")
|
|
|
|
|
&& indent_type (info));
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Add a static variant to a method. */
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean
|
2003-09-14 14:20:17 +02:00
|
|
|
|
pr_class_static_method_variant (void *p, const char *physname,
|
|
|
|
|
enum debug_visibility visibility,
|
|
|
|
|
bfd_boolean constp, bfd_boolean volatilep)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
|
|
|
|
char *method_type;
|
|
|
|
|
|
|
|
|
|
assert (info->stack != NULL);
|
|
|
|
|
assert (info->stack->next != NULL);
|
|
|
|
|
assert (info->stack->next->method != NULL);
|
|
|
|
|
|
|
|
|
|
/* Put the const and volatile qualifiers on the type. */
|
|
|
|
|
if (volatilep)
|
|
|
|
|
{
|
|
|
|
|
if (! append_type (info, " volatile"))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
if (constp)
|
|
|
|
|
{
|
|
|
|
|
if (! append_type (info, " const"))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Mark it as static. */
|
|
|
|
|
if (! prepend_type (info, "static "))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
/* Stick the name of the method into its type. */
|
|
|
|
|
if (! substitute_type (info, info->stack->next->method))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
/* Get the type. */
|
|
|
|
|
method_type = pop_type (info);
|
|
|
|
|
if (method_type == NULL)
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
/* Now the top of the stack is the class. */
|
|
|
|
|
|
|
|
|
|
if (! pr_fix_visibility (info, visibility))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
return (append_type (info, method_type)
|
|
|
|
|
&& append_type (info, " /* ")
|
|
|
|
|
&& append_type (info, physname)
|
|
|
|
|
&& append_type (info, " */;\n")
|
|
|
|
|
&& indent_type (info));
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Finish up a method. */
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean
|
2003-09-14 14:20:17 +02:00
|
|
|
|
pr_class_end_method (void *p)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
|
|
|
|
|
|
|
|
|
info->stack->method = NULL;
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return TRUE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Finish up a class. */
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean
|
2003-09-14 14:20:17 +02:00
|
|
|
|
pr_end_class_type (void *p)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
return pr_end_struct_type (p);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Push a type on the stack using a typedef name. */
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean
|
2003-09-14 14:20:17 +02:00
|
|
|
|
pr_typedef_type (void *p, const char *name)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
|
|
|
|
|
|
|
|
|
return push_type (info, name);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Push a type on the stack using a tag name. */
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean
|
2003-09-14 14:20:17 +02:00
|
|
|
|
pr_tag_type (void *p, const char *name, unsigned int id,
|
|
|
|
|
enum debug_type_kind kind)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
|
|
|
|
const char *t, *tag;
|
2016-07-01 13:35:01 +02:00
|
|
|
|
char idbuf[22];
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
switch (kind)
|
|
|
|
|
{
|
|
|
|
|
case DEBUG_KIND_STRUCT:
|
|
|
|
|
t = "struct ";
|
|
|
|
|
break;
|
|
|
|
|
case DEBUG_KIND_UNION:
|
|
|
|
|
t = "union ";
|
|
|
|
|
break;
|
|
|
|
|
case DEBUG_KIND_ENUM:
|
|
|
|
|
t = "enum ";
|
|
|
|
|
break;
|
|
|
|
|
case DEBUG_KIND_CLASS:
|
|
|
|
|
t = "class ";
|
|
|
|
|
break;
|
|
|
|
|
case DEBUG_KIND_UNION_CLASS:
|
|
|
|
|
t = "union class ";
|
|
|
|
|
break;
|
|
|
|
|
default:
|
|
|
|
|
abort ();
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (! push_type (info, t))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (name != NULL)
|
|
|
|
|
tag = name;
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
sprintf (idbuf, "%%anon%u", id);
|
|
|
|
|
tag = idbuf;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (! append_type (info, tag))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (name != NULL && kind != DEBUG_KIND_ENUM)
|
|
|
|
|
{
|
|
|
|
|
sprintf (idbuf, " /* id %u */", id);
|
|
|
|
|
if (! append_type (info, idbuf))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return TRUE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Output a typedef. */
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean
|
2003-09-14 14:20:17 +02:00
|
|
|
|
pr_typdef (void *p, const char *name)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
|
|
|
|
char *s;
|
|
|
|
|
|
|
|
|
|
if (! substitute_type (info, name))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
s = pop_type (info);
|
|
|
|
|
if (s == NULL)
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
indent (info);
|
|
|
|
|
fprintf (info->f, "typedef %s;\n", s);
|
|
|
|
|
|
|
|
|
|
free (s);
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return TRUE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Output a tag. The tag should already be in the string on the
|
|
|
|
|
stack, so all we have to do here is print it out. */
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean
|
2003-09-14 14:20:17 +02:00
|
|
|
|
pr_tag (void *p, const char *name ATTRIBUTE_UNUSED)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
|
|
|
|
char *t;
|
|
|
|
|
|
|
|
|
|
t = pop_type (info);
|
|
|
|
|
if (t == NULL)
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
indent (info);
|
|
|
|
|
fprintf (info->f, "%s;\n", t);
|
|
|
|
|
|
|
|
|
|
free (t);
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return TRUE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Output an integer constant. */
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean
|
2003-09-14 14:20:17 +02:00
|
|
|
|
pr_int_constant (void *p, const char *name, bfd_vma val)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
2016-07-01 13:35:01 +02:00
|
|
|
|
char ab[22];
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
indent (info);
|
2002-11-30 09:39:46 +01:00
|
|
|
|
print_vma (val, ab, FALSE, FALSE);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
fprintf (info->f, "const int %s = %s;\n", name, ab);
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return TRUE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Output a floating point constant. */
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean
|
2003-09-14 14:20:17 +02:00
|
|
|
|
pr_float_constant (void *p, const char *name, double val)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
|
|
|
|
|
|
|
|
|
indent (info);
|
|
|
|
|
fprintf (info->f, "const double %s = %g;\n", name, val);
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return TRUE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Output a typed constant. */
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean
|
2003-09-14 14:20:17 +02:00
|
|
|
|
pr_typed_constant (void *p, const char *name, bfd_vma val)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
|
|
|
|
char *t;
|
2016-07-01 13:35:01 +02:00
|
|
|
|
char ab[22];
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
t = pop_type (info);
|
|
|
|
|
if (t == NULL)
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
indent (info);
|
2002-11-30 09:39:46 +01:00
|
|
|
|
print_vma (val, ab, FALSE, FALSE);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
fprintf (info->f, "const %s %s = %s;\n", t, name, ab);
|
|
|
|
|
|
|
|
|
|
free (t);
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return TRUE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Output a variable. */
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean
|
2003-09-14 14:20:17 +02:00
|
|
|
|
pr_variable (void *p, const char *name, enum debug_var_kind kind,
|
|
|
|
|
bfd_vma val)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
|
|
|
|
char *t;
|
2016-07-01 13:35:01 +02:00
|
|
|
|
char ab[22];
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
if (! substitute_type (info, name))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
t = pop_type (info);
|
|
|
|
|
if (t == NULL)
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
indent (info);
|
|
|
|
|
switch (kind)
|
|
|
|
|
{
|
|
|
|
|
case DEBUG_STATIC:
|
|
|
|
|
case DEBUG_LOCAL_STATIC:
|
|
|
|
|
fprintf (info->f, "static ");
|
|
|
|
|
break;
|
|
|
|
|
case DEBUG_REGISTER:
|
|
|
|
|
fprintf (info->f, "register ");
|
|
|
|
|
break;
|
|
|
|
|
default:
|
|
|
|
|
break;
|
|
|
|
|
}
|
2002-11-30 09:39:46 +01:00
|
|
|
|
print_vma (val, ab, TRUE, TRUE);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
fprintf (info->f, "%s /* %s */;\n", t, ab);
|
|
|
|
|
|
|
|
|
|
free (t);
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return TRUE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Start outputting a function. */
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean
|
2003-09-14 14:20:17 +02:00
|
|
|
|
pr_start_function (void *p, const char *name, bfd_boolean global)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
|
|
|
|
char *t;
|
|
|
|
|
|
|
|
|
|
if (! substitute_type (info, name))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
t = pop_type (info);
|
|
|
|
|
if (t == NULL)
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
indent (info);
|
|
|
|
|
if (! global)
|
|
|
|
|
fprintf (info->f, "static ");
|
|
|
|
|
fprintf (info->f, "%s (", t);
|
|
|
|
|
|
|
|
|
|
info->parameter = 1;
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return TRUE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Output a function parameter. */
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean
|
2003-09-14 14:20:17 +02:00
|
|
|
|
pr_function_parameter (void *p, const char *name,
|
|
|
|
|
enum debug_parm_kind kind, bfd_vma val)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
|
|
|
|
char *t;
|
2016-07-01 13:35:01 +02:00
|
|
|
|
char ab[22];
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
if (kind == DEBUG_PARM_REFERENCE
|
|
|
|
|
|| kind == DEBUG_PARM_REF_REG)
|
|
|
|
|
{
|
|
|
|
|
if (! pr_reference_type (p))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (! substitute_type (info, name))
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
t = pop_type (info);
|
|
|
|
|
if (t == NULL)
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
if (info->parameter != 1)
|
|
|
|
|
fprintf (info->f, ", ");
|
|
|
|
|
|
|
|
|
|
if (kind == DEBUG_PARM_REG || kind == DEBUG_PARM_REF_REG)
|
|
|
|
|
fprintf (info->f, "register ");
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
print_vma (val, ab, TRUE, TRUE);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
fprintf (info->f, "%s /* %s */", t, ab);
|
|
|
|
|
|
|
|
|
|
free (t);
|
|
|
|
|
|
|
|
|
|
++info->parameter;
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return TRUE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Start writing out a block. */
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean
|
2003-09-14 14:20:17 +02:00
|
|
|
|
pr_start_block (void *p, bfd_vma addr)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
2016-07-01 13:35:01 +02:00
|
|
|
|
char ab[22];
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
if (info->parameter > 0)
|
|
|
|
|
{
|
|
|
|
|
fprintf (info->f, ")\n");
|
|
|
|
|
info->parameter = 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
indent (info);
|
2002-11-30 09:39:46 +01:00
|
|
|
|
print_vma (addr, ab, TRUE, TRUE);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
fprintf (info->f, "{ /* %s */\n", ab);
|
|
|
|
|
|
|
|
|
|
info->indent += 2;
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return TRUE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Write out line number information. */
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean
|
2003-09-14 14:20:17 +02:00
|
|
|
|
pr_lineno (void *p, const char *filename, unsigned long lineno, bfd_vma addr)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
2016-07-01 13:35:01 +02:00
|
|
|
|
char ab[22];
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
indent (info);
|
2002-11-30 09:39:46 +01:00
|
|
|
|
print_vma (addr, ab, TRUE, TRUE);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
fprintf (info->f, "/* file %s line %lu addr %s */\n", filename, lineno, ab);
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return TRUE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Finish writing out a block. */
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean
|
2003-09-14 14:20:17 +02:00
|
|
|
|
pr_end_block (void *p, bfd_vma addr)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
2016-07-01 13:35:01 +02:00
|
|
|
|
char ab[22];
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
info->indent -= 2;
|
|
|
|
|
|
|
|
|
|
indent (info);
|
2002-11-30 09:39:46 +01:00
|
|
|
|
print_vma (addr, ab, TRUE, TRUE);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
fprintf (info->f, "} /* %s */\n", ab);
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return TRUE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Finish writing out a function. */
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean
|
2003-09-14 14:20:17 +02:00
|
|
|
|
pr_end_function (void *p ATTRIBUTE_UNUSED)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
2002-11-30 09:39:46 +01:00
|
|
|
|
return TRUE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
2003-07-22 15:33:32 +02:00
|
|
|
|
|
|
|
|
|
/* Tags style generation functions start here. */
|
|
|
|
|
|
|
|
|
|
/* Variables for address to line translation. */
|
|
|
|
|
static bfd_vma pc;
|
|
|
|
|
static const char *filename;
|
|
|
|
|
static const char *functionname;
|
|
|
|
|
static unsigned int line;
|
|
|
|
|
static bfd_boolean found;
|
|
|
|
|
|
|
|
|
|
/* Look for an address in a section. This is called via
|
|
|
|
|
bfd_map_over_sections. */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
find_address_in_section (bfd *abfd, asection *section, void *data)
|
|
|
|
|
{
|
|
|
|
|
bfd_vma vma;
|
|
|
|
|
bfd_size_type size;
|
|
|
|
|
asymbol **syms = (asymbol **) data;
|
|
|
|
|
|
|
|
|
|
if (found)
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
if ((bfd_get_section_flags (abfd, section) & SEC_ALLOC) == 0)
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
vma = bfd_get_section_vma (abfd, section);
|
|
|
|
|
if (pc < vma)
|
|
|
|
|
return;
|
|
|
|
|
|
2004-06-15 03:19:13 +02:00
|
|
|
|
size = bfd_get_section_size (section);
|
2003-07-22 15:33:32 +02:00
|
|
|
|
if (pc >= vma + size)
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
found = bfd_find_nearest_line (abfd, section, syms, pc - vma,
|
|
|
|
|
&filename, &functionname, &line);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
translate_addresses (bfd *abfd, char *addr_hex, FILE *f, asymbol **syms)
|
|
|
|
|
{
|
|
|
|
|
pc = bfd_scan_vma (addr_hex, NULL, 16);
|
|
|
|
|
found = FALSE;
|
|
|
|
|
bfd_map_over_sections (abfd, find_address_in_section, syms);
|
|
|
|
|
|
|
|
|
|
if (! found)
|
|
|
|
|
fprintf (f, "??");
|
|
|
|
|
else
|
|
|
|
|
fprintf (f, "%u", line);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Start a new compilation unit. */
|
|
|
|
|
|
|
|
|
|
static bfd_boolean
|
2009-12-11 14:42:17 +01:00
|
|
|
|
tg_start_compilation_unit (void * p, const char *fname ATTRIBUTE_UNUSED)
|
2003-07-22 15:33:32 +02:00
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
|
|
|
|
|
|
|
|
|
free (info->filename);
|
|
|
|
|
/* Should it be relative? best way to do it here?. */
|
2009-12-11 14:42:17 +01:00
|
|
|
|
info->filename = strdup (fname);
|
2003-07-22 15:33:32 +02:00
|
|
|
|
|
|
|
|
|
return TRUE;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Start a source file within a compilation unit. */
|
|
|
|
|
|
|
|
|
|
static bfd_boolean
|
2009-12-11 14:42:17 +01:00
|
|
|
|
tg_start_source (void *p, const char *fname)
|
2003-07-22 15:33:32 +02:00
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
|
|
|
|
|
|
|
|
|
free (info->filename);
|
|
|
|
|
/* Should it be relative? best way to do it here?. */
|
2009-12-11 14:42:17 +01:00
|
|
|
|
info->filename = strdup (fname);
|
2003-07-22 15:33:32 +02:00
|
|
|
|
|
|
|
|
|
return TRUE;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Push an enum type onto the type stack. */
|
|
|
|
|
|
|
|
|
|
static bfd_boolean
|
|
|
|
|
tg_enum_type (void *p, const char *tag, const char **names,
|
|
|
|
|
bfd_signed_vma *values)
|
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
|
|
|
|
unsigned int i;
|
|
|
|
|
const char *name;
|
2016-07-01 13:35:01 +02:00
|
|
|
|
char ab[22];
|
2003-07-22 15:33:32 +02:00
|
|
|
|
|
|
|
|
|
if (! pr_enum_type (p, tag, names, values))
|
|
|
|
|
return FALSE;
|
|
|
|
|
|
|
|
|
|
name = tag ? tag : "unknown";
|
|
|
|
|
/* Generate an entry for the enum. */
|
|
|
|
|
if (tag)
|
|
|
|
|
fprintf (info->f, "%s\t%s\t0;\"\tkind:e\ttype:%s\n", tag,
|
|
|
|
|
info->filename, info->stack->type);
|
|
|
|
|
|
|
|
|
|
/* Generate entries for the values. */
|
|
|
|
|
if (names != NULL)
|
|
|
|
|
{
|
|
|
|
|
for (i = 0; names[i] != NULL; i++)
|
|
|
|
|
{
|
|
|
|
|
print_vma (values[i], ab, FALSE, FALSE);
|
|
|
|
|
fprintf (info->f, "%s\t%s\t0;\"\tkind:g\tenum:%s\tvalue:%s\n",
|
|
|
|
|
names[i], info->filename, name, ab);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return TRUE;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Start accumulating a struct type. */
|
|
|
|
|
|
|
|
|
|
static bfd_boolean
|
|
|
|
|
tg_start_struct_type (void *p, const char *tag, unsigned int id,
|
2003-09-14 14:20:17 +02:00
|
|
|
|
bfd_boolean structp,
|
|
|
|
|
unsigned int size ATTRIBUTE_UNUSED)
|
2003-07-22 15:33:32 +02:00
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
|
|
|
|
const char *name;
|
|
|
|
|
char idbuf[20];
|
|
|
|
|
|
|
|
|
|
if (tag != NULL)
|
|
|
|
|
name = tag;
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
name = idbuf;
|
|
|
|
|
sprintf (idbuf, "%%anon%u", id);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (! push_type (info, name))
|
|
|
|
|
return FALSE;
|
|
|
|
|
|
|
|
|
|
info->stack->flavor = structp ? "struct" : "union";
|
|
|
|
|
|
|
|
|
|
fprintf (info->f, "%s\t%s\t0;\"\tkind:%c\n", name, info->filename,
|
|
|
|
|
info->stack->flavor[0]);
|
|
|
|
|
|
|
|
|
|
info->stack->visibility = DEBUG_VISIBILITY_PUBLIC;
|
|
|
|
|
|
|
|
|
|
return indent_type (info);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Output the visibility of a field in a struct. */
|
|
|
|
|
|
|
|
|
|
static bfd_boolean
|
|
|
|
|
tg_fix_visibility (struct pr_handle *info, enum debug_visibility visibility)
|
|
|
|
|
{
|
|
|
|
|
assert (info->stack != NULL);
|
|
|
|
|
|
|
|
|
|
if (info->stack->visibility == visibility)
|
|
|
|
|
return TRUE;
|
|
|
|
|
|
|
|
|
|
assert (info->stack->visibility != DEBUG_VISIBILITY_IGNORE);
|
|
|
|
|
|
|
|
|
|
info->stack->visibility = visibility;
|
|
|
|
|
|
|
|
|
|
return TRUE;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Add a field to a struct type. */
|
|
|
|
|
|
|
|
|
|
static bfd_boolean
|
|
|
|
|
tg_struct_field (void *p, const char *name, bfd_vma bitpos ATTRIBUTE_UNUSED,
|
|
|
|
|
bfd_vma bitsize ATTRIBUTE_UNUSED,
|
|
|
|
|
enum debug_visibility visibility)
|
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
|
|
|
|
char *t;
|
|
|
|
|
|
|
|
|
|
t = pop_type (info);
|
|
|
|
|
if (t == NULL)
|
|
|
|
|
return FALSE;
|
|
|
|
|
|
|
|
|
|
if (! tg_fix_visibility (info, visibility))
|
|
|
|
|
return FALSE;
|
|
|
|
|
|
2003-12-06 01:06:12 +01:00
|
|
|
|
/* It happens, a bug? */
|
2003-07-22 15:33:32 +02:00
|
|
|
|
if (! name[0])
|
|
|
|
|
return TRUE;
|
|
|
|
|
|
|
|
|
|
fprintf (info->f, "%s\t%s\t0;\"\tkind:m\ttype:%s\t%s:%s\taccess:%s\n",
|
|
|
|
|
name, info->filename, t, info->stack->flavor, info->stack->type,
|
|
|
|
|
visibility_name (visibility));
|
|
|
|
|
|
|
|
|
|
return TRUE;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Finish a struct type. */
|
|
|
|
|
|
|
|
|
|
static bfd_boolean
|
|
|
|
|
tg_end_struct_type (void *p ATTRIBUTE_UNUSED)
|
|
|
|
|
{
|
2009-10-19 01:14:09 +02:00
|
|
|
|
assert (((struct pr_handle *) p)->stack != NULL);
|
2003-07-22 15:33:32 +02:00
|
|
|
|
|
|
|
|
|
return TRUE;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Start a class type. */
|
|
|
|
|
|
|
|
|
|
static bfd_boolean
|
|
|
|
|
tg_start_class_type (void *p, const char *tag, unsigned int id,
|
|
|
|
|
bfd_boolean structp, unsigned int size,
|
|
|
|
|
bfd_boolean vptr, bfd_boolean ownvptr)
|
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
|
|
|
|
char *tv = NULL;
|
|
|
|
|
const char *name;
|
|
|
|
|
|
|
|
|
|
info->indent += 2;
|
|
|
|
|
|
|
|
|
|
if (vptr && ! ownvptr)
|
|
|
|
|
{
|
|
|
|
|
tv = pop_type (info);
|
|
|
|
|
if (tv == NULL)
|
|
|
|
|
return FALSE;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (tag != NULL)
|
|
|
|
|
name = tag;
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
char idbuf[20];
|
|
|
|
|
|
|
|
|
|
sprintf (idbuf, "%%anon%u", id);
|
|
|
|
|
name = idbuf;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (! push_type (info, name))
|
|
|
|
|
return FALSE;
|
|
|
|
|
|
|
|
|
|
info->stack->flavor = structp ? "class" : "union class";
|
|
|
|
|
info->stack->parents = NULL;
|
|
|
|
|
info->stack->num_parents = 0;
|
|
|
|
|
|
|
|
|
|
if (size != 0 || vptr || ownvptr || tag != NULL)
|
|
|
|
|
{
|
|
|
|
|
if (vptr)
|
|
|
|
|
{
|
|
|
|
|
if (! append_type (info, " vtable "))
|
|
|
|
|
return FALSE;
|
|
|
|
|
if (ownvptr)
|
|
|
|
|
{
|
|
|
|
|
if (! append_type (info, "self "))
|
|
|
|
|
return FALSE;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
if (! append_type (info, tv)
|
|
|
|
|
|| ! append_type (info, " "))
|
|
|
|
|
return FALSE;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
info->stack->visibility = DEBUG_VISIBILITY_PRIVATE;
|
|
|
|
|
|
|
|
|
|
return TRUE;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Add a static member to a class. */
|
|
|
|
|
|
|
|
|
|
static bfd_boolean
|
|
|
|
|
tg_class_static_member (void *p, const char *name,
|
|
|
|
|
const char *physname ATTRIBUTE_UNUSED,
|
|
|
|
|
enum debug_visibility visibility)
|
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
|
|
|
|
char *t;
|
|
|
|
|
int len_var, len_class;
|
|
|
|
|
char *full_name;
|
|
|
|
|
|
|
|
|
|
len_var = strlen (name);
|
|
|
|
|
len_class = strlen (info->stack->next->type);
|
2009-09-10 15:40:44 +02:00
|
|
|
|
full_name = (char *) xmalloc (len_var + len_class + 3);
|
2003-07-22 15:33:32 +02:00
|
|
|
|
if (! full_name)
|
|
|
|
|
return FALSE;
|
2006-09-28 14:59:25 +02:00
|
|
|
|
sprintf (full_name, "%s::%s", info->stack->next->type, name);
|
2003-07-22 15:33:32 +02:00
|
|
|
|
|
|
|
|
|
if (! substitute_type (info, full_name))
|
2011-03-25 18:24:28 +01:00
|
|
|
|
{
|
|
|
|
|
free (full_name);
|
|
|
|
|
return FALSE;
|
|
|
|
|
}
|
2003-07-22 15:33:32 +02:00
|
|
|
|
|
|
|
|
|
if (! prepend_type (info, "static "))
|
2011-03-25 18:24:28 +01:00
|
|
|
|
{
|
|
|
|
|
free (full_name);
|
|
|
|
|
return FALSE;
|
|
|
|
|
}
|
2003-07-22 15:33:32 +02:00
|
|
|
|
|
|
|
|
|
t = pop_type (info);
|
|
|
|
|
if (t == NULL)
|
2011-03-25 18:24:28 +01:00
|
|
|
|
{
|
|
|
|
|
free (full_name);
|
|
|
|
|
return FALSE;
|
|
|
|
|
}
|
2003-07-22 15:33:32 +02:00
|
|
|
|
|
|
|
|
|
if (! tg_fix_visibility (info, visibility))
|
2011-03-25 18:24:28 +01:00
|
|
|
|
{
|
|
|
|
|
free (t);
|
|
|
|
|
free (full_name);
|
|
|
|
|
return FALSE;
|
|
|
|
|
}
|
2003-07-22 15:33:32 +02:00
|
|
|
|
|
|
|
|
|
fprintf (info->f, "%s\t%s\t0;\"\tkind:x\ttype:%s\tclass:%s\taccess:%s\n",
|
|
|
|
|
name, info->filename, t, info->stack->type,
|
|
|
|
|
visibility_name (visibility));
|
|
|
|
|
free (t);
|
|
|
|
|
free (full_name);
|
|
|
|
|
|
|
|
|
|
return TRUE;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Add a base class to a class. */
|
|
|
|
|
|
|
|
|
|
static bfd_boolean
|
|
|
|
|
tg_class_baseclass (void *p, bfd_vma bitpos ATTRIBUTE_UNUSED,
|
2009-09-10 15:40:44 +02:00
|
|
|
|
bfd_boolean is_virtual, enum debug_visibility visibility)
|
2003-07-22 15:33:32 +02:00
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
|
|
|
|
char *t;
|
|
|
|
|
const char *prefix;
|
|
|
|
|
|
|
|
|
|
assert (info->stack != NULL && info->stack->next != NULL);
|
|
|
|
|
|
|
|
|
|
t = pop_type (info);
|
|
|
|
|
if (t == NULL)
|
|
|
|
|
return FALSE;
|
|
|
|
|
|
2006-09-16 20:12:17 +02:00
|
|
|
|
if (CONST_STRNEQ (t, "class "))
|
2003-07-22 15:33:32 +02:00
|
|
|
|
t += sizeof "class " - 1;
|
|
|
|
|
|
|
|
|
|
/* Push it back on to take advantage of the prepend_type and
|
|
|
|
|
append_type routines. */
|
|
|
|
|
if (! push_type (info, t))
|
|
|
|
|
return FALSE;
|
|
|
|
|
|
2009-09-10 15:40:44 +02:00
|
|
|
|
if (is_virtual)
|
2003-07-22 15:33:32 +02:00
|
|
|
|
{
|
|
|
|
|
if (! prepend_type (info, "virtual "))
|
|
|
|
|
return FALSE;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
switch (visibility)
|
|
|
|
|
{
|
|
|
|
|
case DEBUG_VISIBILITY_PUBLIC:
|
|
|
|
|
prefix = "public ";
|
|
|
|
|
break;
|
|
|
|
|
case DEBUG_VISIBILITY_PROTECTED:
|
|
|
|
|
prefix = "protected ";
|
|
|
|
|
break;
|
|
|
|
|
case DEBUG_VISIBILITY_PRIVATE:
|
|
|
|
|
prefix = "private ";
|
|
|
|
|
break;
|
|
|
|
|
default:
|
|
|
|
|
prefix = "/* unknown visibility */ ";
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (! prepend_type (info, prefix))
|
|
|
|
|
return FALSE;
|
|
|
|
|
|
|
|
|
|
t = pop_type (info);
|
|
|
|
|
if (t == NULL)
|
|
|
|
|
return FALSE;
|
|
|
|
|
|
|
|
|
|
if (info->stack->num_parents && ! append_parent (info, ", "))
|
|
|
|
|
return FALSE;
|
|
|
|
|
|
|
|
|
|
if (! append_parent (info, t))
|
|
|
|
|
return FALSE;
|
|
|
|
|
info->stack->num_parents++;
|
|
|
|
|
|
|
|
|
|
free (t);
|
|
|
|
|
|
|
|
|
|
return TRUE;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Add a variant to a method. */
|
|
|
|
|
|
|
|
|
|
static bfd_boolean
|
|
|
|
|
tg_class_method_variant (void *p, const char *physname ATTRIBUTE_UNUSED,
|
|
|
|
|
enum debug_visibility visibility,
|
|
|
|
|
bfd_boolean constp, bfd_boolean volatilep,
|
|
|
|
|
bfd_vma voffset ATTRIBUTE_UNUSED,
|
|
|
|
|
bfd_boolean context)
|
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
|
|
|
|
char *method_type;
|
|
|
|
|
char *context_type;
|
|
|
|
|
char *method_name;
|
|
|
|
|
|
|
|
|
|
assert (info->stack != NULL);
|
|
|
|
|
assert (info->stack->next != NULL);
|
|
|
|
|
|
|
|
|
|
/* Put the const and volatile qualifiers on the type. */
|
|
|
|
|
if (volatilep)
|
|
|
|
|
{
|
|
|
|
|
if (! append_type (info, " volatile"))
|
|
|
|
|
return FALSE;
|
|
|
|
|
}
|
|
|
|
|
if (constp)
|
|
|
|
|
{
|
|
|
|
|
if (! append_type (info, " const"))
|
|
|
|
|
return FALSE;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
method_name = strdup (context ? info->stack->next->next->method
|
|
|
|
|
: info->stack->next->method);
|
2003-09-14 14:20:17 +02:00
|
|
|
|
|
2003-07-22 15:33:32 +02:00
|
|
|
|
/* Stick the name of the method into its type. */
|
|
|
|
|
if (! substitute_type (info, method_name))
|
2011-03-25 18:24:28 +01:00
|
|
|
|
{
|
|
|
|
|
free (method_name);
|
|
|
|
|
return FALSE;
|
|
|
|
|
}
|
2003-07-22 15:33:32 +02:00
|
|
|
|
|
|
|
|
|
/* Get the type. */
|
|
|
|
|
method_type = pop_type (info);
|
|
|
|
|
if (method_type == NULL)
|
2011-03-25 18:24:28 +01:00
|
|
|
|
{
|
|
|
|
|
free (method_name);
|
|
|
|
|
return FALSE;
|
|
|
|
|
}
|
2003-07-22 15:33:32 +02:00
|
|
|
|
|
|
|
|
|
/* Pull off the context type if there is one. */
|
|
|
|
|
if (! context)
|
|
|
|
|
context_type = NULL;
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
context_type = pop_type (info);
|
|
|
|
|
if (context_type == NULL)
|
2011-03-25 18:24:28 +01:00
|
|
|
|
{
|
|
|
|
|
free (method_type);
|
|
|
|
|
free (method_name);
|
|
|
|
|
return FALSE;
|
|
|
|
|
}
|
2003-07-22 15:33:32 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Now the top of the stack is the class. */
|
|
|
|
|
if (! tg_fix_visibility (info, visibility))
|
2011-03-25 18:24:28 +01:00
|
|
|
|
{
|
|
|
|
|
free (method_type);
|
|
|
|
|
free (method_name);
|
|
|
|
|
free (context_type);
|
|
|
|
|
return FALSE;
|
|
|
|
|
}
|
2003-07-22 15:33:32 +02:00
|
|
|
|
|
|
|
|
|
fprintf (info->f, "%s\t%s\t0;\"\tkind:p\ttype:%s\tclass:%s\n",
|
|
|
|
|
method_name, info->filename, method_type, info->stack->type);
|
|
|
|
|
free (method_type);
|
|
|
|
|
free (method_name);
|
|
|
|
|
free (context_type);
|
2003-09-14 14:20:17 +02:00
|
|
|
|
|
2003-07-22 15:33:32 +02:00
|
|
|
|
return TRUE;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Add a static variant to a method. */
|
|
|
|
|
|
|
|
|
|
static bfd_boolean
|
|
|
|
|
tg_class_static_method_variant (void *p,
|
|
|
|
|
const char *physname ATTRIBUTE_UNUSED,
|
|
|
|
|
enum debug_visibility visibility,
|
2003-09-14 14:20:17 +02:00
|
|
|
|
bfd_boolean constp, bfd_boolean volatilep)
|
2003-07-22 15:33:32 +02:00
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
|
|
|
|
char *method_type;
|
|
|
|
|
char *method_name;
|
|
|
|
|
|
|
|
|
|
assert (info->stack != NULL);
|
|
|
|
|
assert (info->stack->next != NULL);
|
|
|
|
|
assert (info->stack->next->method != NULL);
|
|
|
|
|
|
|
|
|
|
/* Put the const and volatile qualifiers on the type. */
|
|
|
|
|
if (volatilep)
|
|
|
|
|
{
|
|
|
|
|
if (! append_type (info, " volatile"))
|
|
|
|
|
return FALSE;
|
|
|
|
|
}
|
|
|
|
|
if (constp)
|
|
|
|
|
{
|
|
|
|
|
if (! append_type (info, " const"))
|
|
|
|
|
return FALSE;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Mark it as static. */
|
|
|
|
|
if (! prepend_type (info, "static "))
|
|
|
|
|
return FALSE;
|
|
|
|
|
|
|
|
|
|
method_name = strdup (info->stack->next->method);
|
|
|
|
|
/* Stick the name of the method into its type. */
|
|
|
|
|
if (! substitute_type (info, info->stack->next->method))
|
2011-03-25 18:24:28 +01:00
|
|
|
|
{
|
|
|
|
|
free (method_name);
|
|
|
|
|
return FALSE;
|
|
|
|
|
}
|
2003-07-22 15:33:32 +02:00
|
|
|
|
|
|
|
|
|
/* Get the type. */
|
|
|
|
|
method_type = pop_type (info);
|
|
|
|
|
if (method_type == NULL)
|
2011-03-25 18:24:28 +01:00
|
|
|
|
{
|
|
|
|
|
free (method_name);
|
|
|
|
|
return FALSE;
|
|
|
|
|
}
|
2003-07-22 15:33:32 +02:00
|
|
|
|
|
|
|
|
|
/* Now the top of the stack is the class. */
|
|
|
|
|
if (! tg_fix_visibility (info, visibility))
|
2011-03-25 18:24:28 +01:00
|
|
|
|
{
|
|
|
|
|
free (method_type);
|
|
|
|
|
free (method_name);
|
|
|
|
|
return FALSE;
|
|
|
|
|
}
|
2003-07-22 15:33:32 +02:00
|
|
|
|
|
|
|
|
|
fprintf (info->f, "%s\t%s\t0;\"\tkind:p\ttype:%s\tclass:%s\taccess:%s\n",
|
|
|
|
|
method_name, info->filename, method_type, info->stack->type,
|
|
|
|
|
visibility_name (visibility));
|
|
|
|
|
free (method_type);
|
|
|
|
|
free (method_name);
|
|
|
|
|
|
|
|
|
|
return TRUE;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Finish up a class. */
|
|
|
|
|
|
|
|
|
|
static bfd_boolean
|
|
|
|
|
tg_end_class_type (void *p)
|
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
|
|
|
|
|
|
|
|
|
fprintf (info->f, "%s\t%s\t0;\"\tkind:c\ttype:%s", info->stack->type,
|
|
|
|
|
info->filename, info->stack->flavor);
|
|
|
|
|
if (info->stack->num_parents)
|
|
|
|
|
{
|
|
|
|
|
fprintf (info->f, "\tinherits:%s", info->stack->parents);
|
|
|
|
|
free (info->stack->parents);
|
|
|
|
|
}
|
|
|
|
|
fputc ('\n', info->f);
|
|
|
|
|
|
|
|
|
|
return tg_end_struct_type (p);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Push a type on the stack using a tag name. */
|
|
|
|
|
|
|
|
|
|
static bfd_boolean
|
|
|
|
|
tg_tag_type (void *p, const char *name, unsigned int id,
|
|
|
|
|
enum debug_type_kind kind)
|
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
|
|
|
|
const char *t, *tag;
|
|
|
|
|
char idbuf[20];
|
|
|
|
|
|
|
|
|
|
switch (kind)
|
|
|
|
|
{
|
|
|
|
|
case DEBUG_KIND_STRUCT:
|
|
|
|
|
t = "struct ";
|
|
|
|
|
break;
|
|
|
|
|
case DEBUG_KIND_UNION:
|
|
|
|
|
t = "union ";
|
|
|
|
|
break;
|
|
|
|
|
case DEBUG_KIND_ENUM:
|
|
|
|
|
t = "enum ";
|
|
|
|
|
break;
|
|
|
|
|
case DEBUG_KIND_CLASS:
|
|
|
|
|
t = "class ";
|
|
|
|
|
break;
|
|
|
|
|
case DEBUG_KIND_UNION_CLASS:
|
|
|
|
|
t = "union class ";
|
|
|
|
|
break;
|
|
|
|
|
default:
|
|
|
|
|
abort ();
|
|
|
|
|
return FALSE;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (! push_type (info, t))
|
|
|
|
|
return FALSE;
|
|
|
|
|
if (name != NULL)
|
|
|
|
|
tag = name;
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
sprintf (idbuf, "%%anon%u", id);
|
|
|
|
|
tag = idbuf;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (! append_type (info, tag))
|
|
|
|
|
return FALSE;
|
|
|
|
|
|
|
|
|
|
return TRUE;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Output a typedef. */
|
|
|
|
|
|
|
|
|
|
static bfd_boolean
|
|
|
|
|
tg_typdef (void *p, const char *name)
|
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
|
|
|
|
char *s;
|
|
|
|
|
|
|
|
|
|
s = pop_type (info);
|
|
|
|
|
if (s == NULL)
|
|
|
|
|
return FALSE;
|
|
|
|
|
|
|
|
|
|
fprintf (info->f, "%s\t%s\t0;\"\tkind:t\ttype:%s\n", name,
|
|
|
|
|
info->filename, s);
|
|
|
|
|
|
|
|
|
|
free (s);
|
|
|
|
|
|
|
|
|
|
return TRUE;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Output a tag. The tag should already be in the string on the
|
|
|
|
|
stack, so all we have to do here is print it out. */
|
|
|
|
|
|
|
|
|
|
static bfd_boolean
|
|
|
|
|
tg_tag (void *p ATTRIBUTE_UNUSED, const char *name ATTRIBUTE_UNUSED)
|
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
|
|
|
|
char *t;
|
|
|
|
|
|
|
|
|
|
t = pop_type (info);
|
|
|
|
|
if (t == NULL)
|
|
|
|
|
return FALSE;
|
|
|
|
|
free (t);
|
|
|
|
|
|
|
|
|
|
return TRUE;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Output an integer constant. */
|
|
|
|
|
|
|
|
|
|
static bfd_boolean
|
|
|
|
|
tg_int_constant (void *p, const char *name, bfd_vma val)
|
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
2016-07-01 13:35:01 +02:00
|
|
|
|
char ab[22];
|
2003-07-22 15:33:32 +02:00
|
|
|
|
|
|
|
|
|
indent (info);
|
|
|
|
|
print_vma (val, ab, FALSE, FALSE);
|
|
|
|
|
fprintf (info->f, "%s\t%s\t0;\"\tkind:v\ttype:const int\tvalue:%s\n",
|
|
|
|
|
name, info->filename, ab);
|
|
|
|
|
return TRUE;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Output a floating point constant. */
|
|
|
|
|
|
|
|
|
|
static bfd_boolean
|
|
|
|
|
tg_float_constant (void *p, const char *name, double val)
|
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
|
|
|
|
|
|
|
|
|
indent (info);
|
|
|
|
|
fprintf (info->f, "%s\t%s\t0;\"\tkind:v\ttype:const double\tvalue:%g\n",
|
|
|
|
|
name, info->filename, val);
|
|
|
|
|
return TRUE;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Output a typed constant. */
|
|
|
|
|
|
|
|
|
|
static bfd_boolean
|
|
|
|
|
tg_typed_constant (void *p, const char *name, bfd_vma val)
|
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
|
|
|
|
char *t;
|
2016-07-01 13:35:01 +02:00
|
|
|
|
char ab[22];
|
2003-07-22 15:33:32 +02:00
|
|
|
|
|
|
|
|
|
t = pop_type (info);
|
|
|
|
|
if (t == NULL)
|
|
|
|
|
return FALSE;
|
|
|
|
|
|
|
|
|
|
indent (info);
|
|
|
|
|
print_vma (val, ab, FALSE, FALSE);
|
|
|
|
|
fprintf (info->f, "%s\t%s\t0;\"\tkind:v\ttype:const %s\tvalue:%s\n",
|
|
|
|
|
name, info->filename, t, ab);
|
|
|
|
|
|
|
|
|
|
free (t);
|
|
|
|
|
|
|
|
|
|
return TRUE;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Output a variable. */
|
|
|
|
|
|
|
|
|
|
static bfd_boolean
|
|
|
|
|
tg_variable (void *p, const char *name, enum debug_var_kind kind,
|
|
|
|
|
bfd_vma val ATTRIBUTE_UNUSED)
|
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
2007-04-28 08:03:36 +02:00
|
|
|
|
char *t, *dname, *from_class;
|
2003-07-22 15:33:32 +02:00
|
|
|
|
|
|
|
|
|
t = pop_type (info);
|
|
|
|
|
if (t == NULL)
|
|
|
|
|
return FALSE;
|
|
|
|
|
|
2007-04-28 08:03:36 +02:00
|
|
|
|
dname = NULL;
|
2003-07-22 15:33:32 +02:00
|
|
|
|
if (info->demangler)
|
2007-04-28 08:03:36 +02:00
|
|
|
|
dname = info->demangler (info->abfd, name, DMGL_ANSI | DMGL_PARAMS);
|
2003-07-22 15:33:32 +02:00
|
|
|
|
|
2007-04-28 08:03:36 +02:00
|
|
|
|
from_class = NULL;
|
|
|
|
|
if (dname != NULL)
|
2003-07-22 15:33:32 +02:00
|
|
|
|
{
|
|
|
|
|
char *sep;
|
|
|
|
|
sep = strstr (dname, "::");
|
|
|
|
|
if (sep)
|
|
|
|
|
{
|
|
|
|
|
*sep = 0;
|
|
|
|
|
name = sep + 2;
|
|
|
|
|
from_class = dname;
|
|
|
|
|
}
|
|
|
|
|
else
|
2007-04-28 08:03:36 +02:00
|
|
|
|
/* Obscure types as vts and type_info nodes. */
|
|
|
|
|
name = dname;
|
2003-07-22 15:33:32 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
fprintf (info->f, "%s\t%s\t0;\"\tkind:v\ttype:%s", name, info->filename, t);
|
|
|
|
|
|
|
|
|
|
switch (kind)
|
|
|
|
|
{
|
|
|
|
|
case DEBUG_STATIC:
|
|
|
|
|
case DEBUG_LOCAL_STATIC:
|
|
|
|
|
fprintf (info->f, "\tfile:");
|
|
|
|
|
break;
|
|
|
|
|
case DEBUG_REGISTER:
|
|
|
|
|
fprintf (info->f, "\tregister:");
|
|
|
|
|
break;
|
|
|
|
|
default:
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (from_class)
|
2007-04-28 08:03:36 +02:00
|
|
|
|
fprintf (info->f, "\tclass:%s", from_class);
|
|
|
|
|
|
|
|
|
|
if (dname)
|
|
|
|
|
free (dname);
|
2003-07-22 15:33:32 +02:00
|
|
|
|
|
|
|
|
|
fprintf (info->f, "\n");
|
|
|
|
|
|
|
|
|
|
free (t);
|
|
|
|
|
|
|
|
|
|
return TRUE;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Start outputting a function. */
|
|
|
|
|
|
|
|
|
|
static bfd_boolean
|
|
|
|
|
tg_start_function (void *p, const char *name, bfd_boolean global)
|
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
2007-04-28 08:03:36 +02:00
|
|
|
|
char *dname;
|
2003-07-22 15:33:32 +02:00
|
|
|
|
|
|
|
|
|
if (! global)
|
|
|
|
|
info->stack->flavor = "static";
|
|
|
|
|
else
|
|
|
|
|
info->stack->flavor = NULL;
|
|
|
|
|
|
2007-04-28 08:03:36 +02:00
|
|
|
|
dname = NULL;
|
2003-07-22 15:33:32 +02:00
|
|
|
|
if (info->demangler)
|
2007-04-28 08:03:36 +02:00
|
|
|
|
dname = info->demangler (info->abfd, name, DMGL_ANSI | DMGL_PARAMS);
|
2003-07-22 15:33:32 +02:00
|
|
|
|
|
2007-04-28 08:03:36 +02:00
|
|
|
|
if (! substitute_type (info, dname ? dname : name))
|
2003-07-22 15:33:32 +02:00
|
|
|
|
return FALSE;
|
2003-09-14 14:20:17 +02:00
|
|
|
|
|
2007-04-28 08:03:36 +02:00
|
|
|
|
info->stack->method = NULL;
|
|
|
|
|
if (dname != NULL)
|
2003-07-22 15:33:32 +02:00
|
|
|
|
{
|
|
|
|
|
char *sep;
|
|
|
|
|
sep = strstr (dname, "::");
|
|
|
|
|
if (sep)
|
|
|
|
|
{
|
|
|
|
|
info->stack->method = dname;
|
|
|
|
|
*sep = 0;
|
|
|
|
|
name = sep + 2;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
info->stack->method = "";
|
|
|
|
|
name = dname;
|
|
|
|
|
}
|
|
|
|
|
sep = strchr (name, '(');
|
|
|
|
|
if (sep)
|
|
|
|
|
*sep = 0;
|
|
|
|
|
/* Obscure functions as type_info function. */
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
info->stack->parents = strdup (name);
|
|
|
|
|
|
|
|
|
|
if (! info->stack->method && ! append_type (info, "("))
|
|
|
|
|
return FALSE;
|
|
|
|
|
|
|
|
|
|
info->parameter = 1;
|
|
|
|
|
|
|
|
|
|
return TRUE;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Output a function parameter. */
|
|
|
|
|
|
|
|
|
|
static bfd_boolean
|
|
|
|
|
tg_function_parameter (void *p, const char *name, enum debug_parm_kind kind,
|
|
|
|
|
bfd_vma val ATTRIBUTE_UNUSED)
|
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
|
|
|
|
char *t;
|
|
|
|
|
|
|
|
|
|
if (kind == DEBUG_PARM_REFERENCE
|
|
|
|
|
|| kind == DEBUG_PARM_REF_REG)
|
|
|
|
|
{
|
|
|
|
|
if (! pr_reference_type (p))
|
|
|
|
|
return FALSE;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (! substitute_type (info, name))
|
|
|
|
|
return FALSE;
|
|
|
|
|
|
|
|
|
|
t = pop_type (info);
|
|
|
|
|
if (t == NULL)
|
|
|
|
|
return FALSE;
|
|
|
|
|
|
|
|
|
|
if (! info->stack->method)
|
|
|
|
|
{
|
|
|
|
|
if (info->parameter != 1 && ! append_type (info, ", "))
|
|
|
|
|
return FALSE;
|
2003-09-14 14:20:17 +02:00
|
|
|
|
|
2003-07-22 15:33:32 +02:00
|
|
|
|
if (kind == DEBUG_PARM_REG || kind == DEBUG_PARM_REF_REG)
|
|
|
|
|
if (! append_type (info, "register "))
|
|
|
|
|
return FALSE;
|
2003-09-14 14:20:17 +02:00
|
|
|
|
|
2003-07-22 15:33:32 +02:00
|
|
|
|
if (! append_type (info, t))
|
|
|
|
|
return FALSE;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
free (t);
|
|
|
|
|
|
|
|
|
|
++info->parameter;
|
|
|
|
|
|
|
|
|
|
return TRUE;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Start writing out a block. */
|
|
|
|
|
|
|
|
|
|
static bfd_boolean
|
|
|
|
|
tg_start_block (void *p, bfd_vma addr)
|
|
|
|
|
{
|
|
|
|
|
struct pr_handle *info = (struct pr_handle *) p;
|
2016-07-01 13:35:01 +02:00
|
|
|
|
char ab[22], kind, *partof;
|
2003-07-22 15:33:32 +02:00
|
|
|
|
char *t;
|
|
|
|
|
bfd_boolean local;
|
|
|
|
|
|
|
|
|
|
if (info->parameter > 0)
|
|
|
|
|
{
|
|
|
|
|
info->parameter = 0;
|
|
|
|
|
|
|
|
|
|
/* Delayed name. */
|
|
|
|
|
fprintf (info->f, "%s\t%s\t", info->stack->parents, info->filename);
|
|
|
|
|
free (info->stack->parents);
|
|
|
|
|
|
|
|
|
|
print_vma (addr, ab, TRUE, TRUE);
|
|
|
|
|
translate_addresses (info->abfd, ab, info->f, info->syms);
|
|
|
|
|
local = info->stack->flavor != NULL;
|
|
|
|
|
if (info->stack->method && *info->stack->method)
|
|
|
|
|
{
|
|
|
|
|
kind = 'm';
|
|
|
|
|
partof = (char *) info->stack->method;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
kind = 'f';
|
|
|
|
|
partof = NULL;
|
|
|
|
|
if (! info->stack->method && ! append_type (info, ")"))
|
|
|
|
|
return FALSE;
|
|
|
|
|
}
|
|
|
|
|
t = pop_type (info);
|
|
|
|
|
if (t == NULL)
|
|
|
|
|
return FALSE;
|
|
|
|
|
fprintf (info->f, ";\"\tkind:%c\ttype:%s", kind, t);
|
|
|
|
|
if (local)
|
|
|
|
|
fputs ("\tfile:", info->f);
|
|
|
|
|
if (partof)
|
|
|
|
|
{
|
|
|
|
|
fprintf (info->f, "\tclass:%s", partof);
|
|
|
|
|
free (partof);
|
|
|
|
|
}
|
|
|
|
|
fputc ('\n', info->f);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return TRUE;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Write out line number information. */
|
|
|
|
|
|
|
|
|
|
static bfd_boolean
|
2009-12-11 14:42:17 +01:00
|
|
|
|
tg_lineno (void *p ATTRIBUTE_UNUSED, const char *fname ATTRIBUTE_UNUSED,
|
2003-07-22 15:33:32 +02:00
|
|
|
|
unsigned long lineno ATTRIBUTE_UNUSED,
|
|
|
|
|
bfd_vma addr ATTRIBUTE_UNUSED)
|
|
|
|
|
{
|
|
|
|
|
return TRUE;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Finish writing out a block. */
|
|
|
|
|
|
|
|
|
|
static bfd_boolean
|
|
|
|
|
tg_end_block (void *p ATTRIBUTE_UNUSED, bfd_vma addr ATTRIBUTE_UNUSED)
|
|
|
|
|
{
|
|
|
|
|
return TRUE;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Convert the visibility value into a human readable name. */
|
|
|
|
|
|
|
|
|
|
static const char *
|
|
|
|
|
visibility_name (enum debug_visibility visibility)
|
|
|
|
|
{
|
|
|
|
|
const char *s;
|
|
|
|
|
|
|
|
|
|
switch (visibility)
|
|
|
|
|
{
|
|
|
|
|
case DEBUG_VISIBILITY_PUBLIC:
|
|
|
|
|
s = "public";
|
|
|
|
|
break;
|
|
|
|
|
case DEBUG_VISIBILITY_PRIVATE:
|
|
|
|
|
s = "private";
|
|
|
|
|
break;
|
|
|
|
|
case DEBUG_VISIBILITY_PROTECTED:
|
|
|
|
|
s = "protected";
|
|
|
|
|
break;
|
|
|
|
|
case DEBUG_VISIBILITY_IGNORE:
|
|
|
|
|
s = "/* ignore */";
|
|
|
|
|
break;
|
|
|
|
|
default:
|
|
|
|
|
abort ();
|
|
|
|
|
return FALSE;
|
|
|
|
|
}
|
|
|
|
|
return s;
|
|
|
|
|
}
|