OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [binutils-2.20.1/] [binutils/] [prdbg.c] - Blame information for rev 818

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 205 julius 
/* prdbg.c -- Print out generic debugging information.
2 
   Copyright 1995, 1996, 1999, 2002, 2003, 2004, 2005, 2006, 2007, 2008
3 
   Free Software Foundation, Inc.
4 
   Written by Ian Lance Taylor <ian@cygnus.com>.
5 
   Tags style generation written by Salvador E. Tropea <set@computer.org>.
6 
 
7 
   This file is part of GNU Binutils.
8 
 
9 
   This program is free software; you can redistribute it and/or modify
10 
   it under the terms of the GNU General Public License as published by
11 
   the Free Software Foundation; either version 3 of the License, or
12 
   (at your option) any later version.
13 
 
14 
   This program is distributed in the hope that it will be useful,
15 
   but WITHOUT ANY WARRANTY; without even the implied warranty of
16 
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
17 
   GNU General Public License for more details.
18 
 
19 
   You should have received a copy of the GNU General Public License
20 
   along with this program; if not, write to the Free Software
21 
   Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA
22 
   02110-1301, USA.  */
23 
 
24 
/* This file prints out the generic debugging information, by
25 
   supplying a set of routines to debug_write.  */
26 
 
27 
#include "sysdep.h"
28 
#include <assert.h>
29 
#include "bfd.h"
30 
#include "libiberty.h"
31 
#include "demangle.h"
32 
#include "debug.h"
33 
#include "budbg.h"
34 
 
35 
/* This is the structure we use as a handle for these routines.  */
36 
 
37 
struct pr_handle
38 
{
39 
  /* File to print information to.  */
40 
  FILE *f;
41 
  /* Current indentation level.  */
42 
  unsigned int indent;
43 
  /* Type stack.  */
44 
  struct pr_stack *stack;
45 
  /* Parameter number we are about to output.  */
46 
  int parameter;
47 
  /* The following are used only by the tags code (tg_).  */
48 
  /* Name of the file we are using.  */
49 
  char *filename;
50 
  /* The BFD.  */
51 
  bfd *abfd;
52 
  /* The symbols table for this BFD.  */
53 
  asymbol **syms;
54 
  /* Pointer to a function to demangle symbols.  */
55 
  char *(*demangler) (bfd *, const char *, int);
56 
};
57 
 
58 
/* The type stack.  */
59 
 
60 
struct pr_stack
61 
{
62 
  /* Next element on the stack.  */
63 
  struct pr_stack *next;
64 
  /* This element.  */
65 
  char *type;
66 
  /* Current visibility of fields if this is a class.  */
67 
  enum debug_visibility visibility;
68 
  /* Name of the current method we are handling.  */
69 
  const char *method;
70 
  /* The following are used only by the tags code (tg_).  */
71 
  /* Type for the container (struct, union, class, union class).  */
72 
  const char *flavor;
73 
  /* A comma separated list of parent classes.  */
74 
  char *parents;
75 
  /* How many parents contains parents.  */
76 
  int num_parents;
77 
};
78 
 
79 
static void indent (struct pr_handle *);
80 
static bfd_boolean push_type (struct pr_handle *, const char *);
81 
static bfd_boolean prepend_type (struct pr_handle *, const char *);
82 
static bfd_boolean append_type (struct pr_handle *, const char *);
83 
static bfd_boolean substitute_type (struct pr_handle *, const char *);
84 
static bfd_boolean indent_type (struct pr_handle *);
85 
static char *pop_type (struct pr_handle *);
86 
static void print_vma (bfd_vma, char *, bfd_boolean, bfd_boolean);
87 
static bfd_boolean pr_fix_visibility
88 
  (struct pr_handle *, enum debug_visibility);
89 
static bfd_boolean pr_start_compilation_unit (void *, const char *);
90 
static bfd_boolean pr_start_source (void *, const char *);
91 
static bfd_boolean pr_empty_type (void *);
92 
static bfd_boolean pr_void_type (void *);
93 
static bfd_boolean pr_int_type (void *, unsigned int, bfd_boolean);
94 
static bfd_boolean pr_float_type (void *, unsigned int);
95 
static bfd_boolean pr_complex_type (void *, unsigned int);
96 
static bfd_boolean pr_bool_type (void *, unsigned int);
97 
static bfd_boolean pr_enum_type
98 
  (void *, const char *, const char **, bfd_signed_vma *);
99 
static bfd_boolean pr_pointer_type (void *);
100 
static bfd_boolean pr_function_type (void *, int, bfd_boolean);
101 
static bfd_boolean pr_reference_type (void *);
102 
static bfd_boolean pr_range_type (void *, bfd_signed_vma, bfd_signed_vma);
103 
static bfd_boolean pr_array_type
104 
  (void *, bfd_signed_vma, bfd_signed_vma, bfd_boolean);
105 
static bfd_boolean pr_set_type (void *, bfd_boolean);
106 
static bfd_boolean pr_offset_type (void *);
107 
static bfd_boolean pr_method_type (void *, bfd_boolean, int, bfd_boolean);
108 
static bfd_boolean pr_const_type (void *);
109 
static bfd_boolean pr_volatile_type (void *);
110 
static bfd_boolean pr_start_struct_type
111 
  (void *, const char *, unsigned int, bfd_boolean, unsigned int);
112 
static bfd_boolean pr_struct_field
113 
  (void *, const char *, bfd_vma, bfd_vma, enum debug_visibility);
114 
static bfd_boolean pr_end_struct_type (void *);
115 
static bfd_boolean pr_start_class_type
116 
  (void *, const char *, unsigned int, bfd_boolean, unsigned int,
117 
   bfd_boolean, bfd_boolean);
118 
static bfd_boolean pr_class_static_member
119 
  (void *, const char *, const char *, enum debug_visibility);
120 
static bfd_boolean pr_class_baseclass
121 
  (void *, bfd_vma, bfd_boolean, enum debug_visibility);
122 
static bfd_boolean pr_class_start_method (void *, const char *);
123 
static bfd_boolean pr_class_method_variant
124 
  (void *, const char *, enum debug_visibility, bfd_boolean, bfd_boolean,
125 
   bfd_vma, bfd_boolean);
126 
static bfd_boolean pr_class_static_method_variant
127 
  (void *, const char *, enum debug_visibility, bfd_boolean, bfd_boolean);
128 
static bfd_boolean pr_class_end_method (void *);
129 
static bfd_boolean pr_end_class_type (void *);
130 
static bfd_boolean pr_typedef_type (void *, const char *);
131 
static bfd_boolean pr_tag_type
132 
  (void *, const char *, unsigned int, enum debug_type_kind);
133 
static bfd_boolean pr_typdef (void *, const char *);
134 
static bfd_boolean pr_tag (void *, const char *);
135 
static bfd_boolean pr_int_constant (void *, const char *, bfd_vma);
136 
static bfd_boolean pr_float_constant (void *, const char *, double);
137 
static bfd_boolean pr_typed_constant (void *, const char *, bfd_vma);
138 
static bfd_boolean pr_variable
139 
  (void *, const char *, enum debug_var_kind, bfd_vma);
140 
static bfd_boolean pr_start_function (void *, const char *, bfd_boolean);
141 
static bfd_boolean pr_function_parameter
142 
  (void *, const char *, enum debug_parm_kind, bfd_vma);
143 
static bfd_boolean pr_start_block (void *, bfd_vma);
144 
static bfd_boolean pr_end_block (void *, bfd_vma);
145 
static bfd_boolean pr_end_function (void *);
146 
static bfd_boolean pr_lineno (void *, const char *, unsigned long, bfd_vma);
147 
static bfd_boolean append_parent (struct pr_handle *, const char *);
148 
/* Only used by tg_ code.  */
149 
static bfd_boolean tg_fix_visibility
150 
  (struct pr_handle *, enum debug_visibility);
151 
static void find_address_in_section (bfd *, asection *, void *);
152 
static void translate_addresses (bfd *, char *, FILE *, asymbol **);
153 
static const char *visibility_name (enum debug_visibility);
154 
/* Tags style replacements.  */
155 
static bfd_boolean tg_start_compilation_unit (void *, const char *);
156 
static bfd_boolean tg_start_source (void *, const char *);
157 
static bfd_boolean tg_enum_type
158 
  (void *, const char *, const char **, bfd_signed_vma *);
159 
static bfd_boolean tg_start_struct_type
160 
  (void *, const char *, unsigned int, bfd_boolean, unsigned int);
161 
static bfd_boolean pr_struct_field
162 
  (void *, const char *, bfd_vma, bfd_vma, enum debug_visibility);
163 
static bfd_boolean tg_struct_field
164 
  (void *, const char *, bfd_vma, bfd_vma, enum debug_visibility);
165 
static bfd_boolean tg_struct_field
166 
  (void *, const char *, bfd_vma, bfd_vma, enum debug_visibility);
167 
static bfd_boolean tg_end_struct_type (void *);
168 
static bfd_boolean tg_start_class_type
169 
  (void *, const char *, unsigned int, bfd_boolean, unsigned int, bfd_boolean, bfd_boolean);
170 
static bfd_boolean tg_class_static_member
171 
  (void *, const char *, const char *, enum debug_visibility);
172 
static bfd_boolean tg_class_baseclass
173 
  (void *, bfd_vma, bfd_boolean, enum debug_visibility);
174 
static bfd_boolean tg_class_method_variant
175 
  (void *, const char *, enum debug_visibility, bfd_boolean, bfd_boolean, bfd_vma, bfd_boolean);
176 
static bfd_boolean tg_class_static_method_variant
177 
  (void *, const char *, enum debug_visibility, bfd_boolean, bfd_boolean);
178 
static bfd_boolean tg_end_class_type (void *);
179 
static bfd_boolean tg_tag_type
180 
  (void *, const char *, unsigned int, enum debug_type_kind);
181 
static bfd_boolean tg_typdef (void *, const char *);
182 
static bfd_boolean tg_tag (void *, const char *);
183 
static bfd_boolean tg_int_constant (void *, const char *, bfd_vma);
184 
static bfd_boolean tg_float_constant (void *, const char *, double);
185 
static bfd_boolean tg_typed_constant (void *, const char *, bfd_vma);
186 
static bfd_boolean tg_variable
187 
  (void *, const char *, enum debug_var_kind, bfd_vma);
188 
static bfd_boolean tg_start_function (void *, const char *, bfd_boolean);
189 
static bfd_boolean tg_function_parameter
190 
  (void *, const char *, enum debug_parm_kind, bfd_vma);
191 
static bfd_boolean tg_start_block (void *, bfd_vma);
192 
static bfd_boolean tg_end_block (void *, bfd_vma);
193 
static bfd_boolean tg_lineno (void *, const char *, unsigned long, bfd_vma);
194 
 
195 
static const struct debug_write_fns pr_fns =
196 
{
197 
  pr_start_compilation_unit,
198 
  pr_start_source,
199 
  pr_empty_type,
200 
  pr_void_type,
201 
  pr_int_type,
202 
  pr_float_type,
203 
  pr_complex_type,
204 
  pr_bool_type,
205 
  pr_enum_type,
206 
  pr_pointer_type,
207 
  pr_function_type,
208 
  pr_reference_type,
209 
  pr_range_type,
210 
  pr_array_type,
211 
  pr_set_type,
212 
  pr_offset_type,
213 
  pr_method_type,
214 
  pr_const_type,
215 
  pr_volatile_type,
216 
  pr_start_struct_type,
217 
  pr_struct_field,
218 
  pr_end_struct_type,
219 
  pr_start_class_type,
220 
  pr_class_static_member,
221 
  pr_class_baseclass,
222 
  pr_class_start_method,
223 
  pr_class_method_variant,
224 
  pr_class_static_method_variant,
225 
  pr_class_end_method,
226 
  pr_end_class_type,
227 
  pr_typedef_type,
228 
  pr_tag_type,
229 
  pr_typdef,
230 
  pr_tag,
231 
  pr_int_constant,
232 
  pr_float_constant,
233 
  pr_typed_constant,
234 
  pr_variable,
235 
  pr_start_function,
236 
  pr_function_parameter,
237 
  pr_start_block,
238 
  pr_end_block,
239 
  pr_end_function,
240 
  pr_lineno
241 
};
242 
 
243 
static const struct debug_write_fns tg_fns =
244 
{
245 
  tg_start_compilation_unit,
246 
  tg_start_source,
247 
  pr_empty_type,                /* Same, push_type.  */
248 
  pr_void_type,                 /* Same, push_type.  */
249 
  pr_int_type,                  /* Same, push_type.  */
250 
  pr_float_type,                /* Same, push_type.  */
251 
  pr_complex_type,              /* Same, push_type.  */
252 
  pr_bool_type,                 /* Same, push_type.  */
253 
  tg_enum_type,
254 
  pr_pointer_type,              /* Same, changes to pointer.  */
255 
  pr_function_type,             /* Same, push_type.  */
256 
  pr_reference_type,            /* Same, changes to reference.  */
257 
  pr_range_type,                /* FIXME: What's that?.  */
258 
  pr_array_type,                /* Same, push_type.  */
259 
  pr_set_type,                  /* FIXME: What's that?.  */
260 
  pr_offset_type,               /* FIXME: What's that?.  */
261 
  pr_method_type,               /* Same.  */
262 
  pr_const_type,                /* Same, changes to const.  */
263 
  pr_volatile_type,             /* Same, changes to volatile.  */
264 
  tg_start_struct_type,
265 
  tg_struct_field,
266 
  tg_end_struct_type,
267 
  tg_start_class_type,
268 
  tg_class_static_member,
269 
  tg_class_baseclass,
270 
  pr_class_start_method,        /* Same, remembers that's a method.  */
271 
  tg_class_method_variant,
272 
  tg_class_static_method_variant,
273 
  pr_class_end_method,          /* Same, forgets that's a method.  */
274 
  tg_end_class_type,
275 
  pr_typedef_type,              /* Same, just push type.  */
276 
  tg_tag_type,
277 
  tg_typdef,
278 
  tg_tag,
279 
  tg_int_constant,              /* Untested.  */
280 
  tg_float_constant,            /* Untested.  */
281 
  tg_typed_constant,            /* Untested.  */
282 
  tg_variable,
283 
  tg_start_function,
284 
  tg_function_parameter,
285 
  tg_start_block,
286 
  tg_end_block,
287 
  pr_end_function,              /* Same, does nothing.  */
288 
  tg_lineno
289 
};
290 
 
291 
/* Print out the generic debugging information recorded in dhandle.  */
292 
 
293 
bfd_boolean
294 
print_debugging_info (FILE *f, void *dhandle, bfd *abfd, asymbol **syms,
295 
                      void *demangler, bfd_boolean as_tags)
296 
{
297 
  struct pr_handle info;
298 
 
299 
  info.f = f;
300 
  info.indent = 0;
301 
  info.stack = NULL;
302 
  info.parameter = 0;
303 
  info.filename = NULL;
304 
  info.abfd = abfd;
305 
  info.syms = syms;
306 
  info.demangler = (char * (*)(struct bfd *, const char *, int)) demangler;
307 
 
308 
  if (as_tags)
309 
    {
310 
      fputs ("!_TAG_FILE_FORMAT\t2\t/extended format/\n", f);
311 
      fputs ("!_TAG_FILE_SORTED\t0\t/0=unsorted, 1=sorted/\n", f);
312 
      fputs ("!_TAG_PROGRAM_AUTHOR\tIan Lance Taylor, Salvador E. Tropea and others\t//\n", f);
313 
      fputs ("!_TAG_PROGRAM_NAME\tobjdump\t/From GNU binutils/\n", f);
314 
    }
315 
 
316 
  return as_tags ? debug_write (dhandle, &tg_fns, (void *) & info)
317 
    : debug_write (dhandle, &pr_fns, (void *) & info);
318 
}
319 
 
320 
/* Indent to the current indentation level.  */
321 
 
322 
static void
323 
indent (struct pr_handle *info)
324 
{
325 
  unsigned int i;
326 
 
327 
  for (i = 0; i < info->indent; i++)
328 
    putc (' ', info->f);
329 
}
330 
 
331 
/* Push a type on the type stack.  */
332 
 
333 
static bfd_boolean
334 
push_type (struct pr_handle *info, const char *type)
335 
{
336 
  struct pr_stack *n;
337 
 
338 
  if (type == NULL)
339 
    return FALSE;
340 
 
341 
  n = (struct pr_stack *) xmalloc (sizeof *n);
342 
  memset (n, 0, sizeof *n);
343 
 
344 
  n->type = xstrdup (type);
345 
  n->visibility = DEBUG_VISIBILITY_IGNORE;
346 
  n->method = NULL;
347 
  n->next = info->stack;
348 
  info->stack = n;
349 
 
350 
  return TRUE;
351 
}
352 
 
353 
/* Prepend a string onto the type on the top of the type stack.  */
354 
 
355 
static bfd_boolean
356 
prepend_type (struct pr_handle *info, const char *s)
357 
{
358 
  char *n;
359 
 
360 
  assert (info->stack != NULL);
361 
 
362 
  n = (char *) xmalloc (strlen (s) + strlen (info->stack->type) + 1);
363 
  sprintf (n, "%s%s", s, info->stack->type);
364 
  free (info->stack->type);
365 
  info->stack->type = n;
366 
 
367 
  return TRUE;
368 
}
369 
 
370 
/* Append a string to the type on the top of the type stack.  */
371 
 
372 
static bfd_boolean
373 
append_type (struct pr_handle *info, const char *s)
374 
{
375 
  unsigned int len;
376 
 
377 
  if (s == NULL)
378 
    return FALSE;
379 
 
380 
  assert (info->stack != NULL);
381 
 
382 
  len = strlen (info->stack->type);
383 
  info->stack->type = (char *) xrealloc (info->stack->type,
384 
                                         len + strlen (s) + 1);
385 
  strcpy (info->stack->type + len, s);
386 
 
387 
  return TRUE;
388 
}
389 
 
390 
/* Append a string to the parents on the top of the type stack.  */
391 
 
392 
static bfd_boolean
393 
append_parent (struct pr_handle *info, const char *s)
394 
{
395 
  unsigned int len;
396 
 
397 
  if (s == NULL)
398 
    return FALSE;
399 
 
400 
  assert (info->stack != NULL);
401 
 
402 
  len = info->stack->parents ? strlen (info->stack->parents) : 0;
403 
  info->stack->parents = (char *) xrealloc (info->stack->parents,
404 
                                            len + strlen (s) + 1);
405 
  strcpy (info->stack->parents + len, s);
406 
 
407 
  return TRUE;
408 
}
409 
 
410 
/* We use an underscore to indicate where the name should go in a type
411 
   string.  This function substitutes a string for the underscore.  If
412 
   there is no underscore, the name follows the type.  */
413 
 
414 
static bfd_boolean
415 
substitute_type (struct pr_handle *info, const char *s)
416 
{
417 
  char *u;
418 
 
419 
  assert (info->stack != NULL);
420 
 
421 
  u = strchr (info->stack->type, '|');
422 
  if (u != NULL)
423 
    {
424 
      char *n;
425 
 
426 
      n = (char *) xmalloc (strlen (info->stack->type) + strlen (s));
427 
 
428 
      memcpy (n, info->stack->type, u - info->stack->type);
429 
      strcpy (n + (u - info->stack->type), s);
430 
      strcat (n, u + 1);
431 
 
432 
      free (info->stack->type);
433 
      info->stack->type = n;
434 
 
435 
      return TRUE;
436 
    }
437 
 
438 
  if (strchr (s, '|') != NULL
439 
      && (strchr (info->stack->type, '{') != NULL
440 
          || strchr (info->stack->type, '(') != NULL))
441 
    {
442 
      if (! prepend_type (info, "(")
443 
          || ! append_type (info, ")"))
444 
        return FALSE;
445 
    }
446 
 
447 
  if (*s == '\0')
448 
    return TRUE;
449 
 
450 
  return (append_type (info, " ")
451 
          && append_type (info, s));
452 
}
453 
 
454 
/* Indent the type at the top of the stack by appending spaces.  */
455 
 
456 
static bfd_boolean
457 
indent_type (struct pr_handle *info)
458 
{
459 
  unsigned int i;
460 
 
461 
  for (i = 0; i < info->indent; i++)
462 
    {
463 
      if (! append_type (info, " "))
464 
        return FALSE;
465 
    }
466 
 
467 
  return TRUE;
468 
}
469 
 
470 
/* Pop a type from the type stack.  */
471 
 
472 
static char *
473 
pop_type (struct pr_handle *info)
474 
{
475 
  struct pr_stack *o;
476 
  char *ret;
477 
 
478 
  assert (info->stack != NULL);
479 
 
480 
  o = info->stack;
481 
  info->stack = o->next;
482 
  ret = o->type;
483 
  free (o);
484 
 
485 
  return ret;
486 
}
487 
 
488 
/* Print a VMA value into a string.  */
489 
 
490 
static void
491 
print_vma (bfd_vma vma, char *buf, bfd_boolean unsignedp, bfd_boolean hexp)
492 
{
493 
  if (sizeof (vma) <= sizeof (unsigned long))
494 
    {
495 
      if (hexp)
496 
        sprintf (buf, "0x%lx", (unsigned long) vma);
497 
      else if (unsignedp)
498 
        sprintf (buf, "%lu", (unsigned long) vma);
499 
      else
500 
        sprintf (buf, "%ld", (long) vma);
501 
    }
502 
#if BFD_HOST_64BIT_LONG_LONG
503 
  else if (sizeof (vma) <= sizeof (unsigned long long))
504 
    {
505 
#ifndef __MSVCRT__
506 
      if (hexp)
507 
        sprintf (buf, "0x%llx", (unsigned long long) vma);
508 
      else if (unsignedp)
509 
        sprintf (buf, "%llu", (unsigned long long) vma);
510 
      else
511 
        sprintf (buf, "%lld", (long long) vma);
512 
#else
513 
      if (hexp)
514 
        sprintf (buf, "0x%I64x", (unsigned long long) vma);
515 
      else if (unsignedp)
516 
        sprintf (buf, "%I64u", (unsigned long long) vma);
517 
      else
518 
        sprintf (buf, "%I64d", (long long) vma);
519 
#endif
520 
    }
521 
#endif
522 
  else
523 
    {
524 
      buf[0] = '0';
525 
      buf[1] = 'x';
526 
      sprintf_vma (buf + 2, vma);
527 
    }
528 
}
529 
 
530 
/* Start a new compilation unit.  */
531 
 
532 
static bfd_boolean
533 
pr_start_compilation_unit (void *p, const char *filename)
534 
{
535 
  struct pr_handle *info = (struct pr_handle *) p;
536 
 
537 
  assert (info->indent == 0);
538 
 
539 
  fprintf (info->f, "%s:\n", filename);
540 
 
541 
  return TRUE;
542 
}
543 
 
544 
/* Start a source file within a compilation unit.  */
545 
 
546 
static bfd_boolean
547 
pr_start_source (void *p, const char *filename)
548 
{
549 
  struct pr_handle *info = (struct pr_handle *) p;
550 
 
551 
  assert (info->indent == 0);
552 
 
553 
  fprintf (info->f, " %s:\n", filename);
554 
 
555 
  return TRUE;
556 
}
557 
 
558 
/* Push an empty type onto the type stack.  */
559 
 
560 
static bfd_boolean
561 
pr_empty_type (void *p)
562 
{
563 
  struct pr_handle *info = (struct pr_handle *) p;
564 
 
565 
  return push_type (info, "<undefined>");
566 
}
567 
 
568 
/* Push a void type onto the type stack.  */
569 
 
570 
static bfd_boolean
571 
pr_void_type (void *p)
572 
{
573 
  struct pr_handle *info = (struct pr_handle *) p;
574 
 
575 
  return push_type (info, "void");
576 
}
577 
 
578 
/* Push an integer type onto the type stack.  */
579 
 
580 
static bfd_boolean
581 
pr_int_type (void *p, unsigned int size, bfd_boolean unsignedp)
582 
{
583 
  struct pr_handle *info = (struct pr_handle *) p;
584 
  char ab[10];
585 
 
586 
  sprintf (ab, "%sint%d", unsignedp ? "u" : "", size * 8);
587 
  return push_type (info, ab);
588 
}
589 
 
590 
/* Push a floating type onto the type stack.  */
591 
 
592 
static bfd_boolean
593 
pr_float_type (void *p, unsigned int size)
594 
{
595 
  struct pr_handle *info = (struct pr_handle *) p;
596 
  char ab[10];
597 
 
598 
  if (size == 4)
599 
    return push_type (info, "float");
600 
  else if (size == 8)
601 
    return push_type (info, "double");
602 
 
603 
  sprintf (ab, "float%d", size * 8);
604 
  return push_type (info, ab);
605 
}
606 
 
607 
/* Push a complex type onto the type stack.  */
608 
 
609 
static bfd_boolean
610 
pr_complex_type (void *p, unsigned int size)
611 
{
612 
  struct pr_handle *info = (struct pr_handle *) p;
613 
 
614 
  if (! pr_float_type (p, size))
615 
    return FALSE;
616 
 
617 
  return prepend_type (info, "complex ");
618 
}
619 
 
620 
/* Push a bfd_boolean type onto the type stack.  */
621 
 
622 
static bfd_boolean
623 
pr_bool_type (void *p, unsigned int size)
624 
{
625 
  struct pr_handle *info = (struct pr_handle *) p;
626 
  char ab[10];
627 
 
628 
  sprintf (ab, "bool%d", size * 8);
629 
 
630 
  return push_type (info, ab);
631 
}
632 
 
633 
/* Push an enum type onto the type stack.  */
634 
 
635 
static bfd_boolean
636 
pr_enum_type (void *p, const char *tag, const char **names,
637 
              bfd_signed_vma *values)
638 
{
639 
  struct pr_handle *info = (struct pr_handle *) p;
640 
  unsigned int i;
641 
  bfd_signed_vma val;
642 
 
643 
  if (! push_type (info, "enum "))
644 
    return FALSE;
645 
  if (tag != NULL)
646 
    {
647 
      if (! append_type (info, tag)
648 
          || ! append_type (info, " "))
649 
        return FALSE;
650 
    }
651 
  if (! append_type (info, "{ "))
652 
    return FALSE;
653 
 
654 
  if (names == NULL)
655 
    {
656 
      if (! append_type (info, "/* undefined */"))
657 
        return FALSE;
658 
    }
659 
  else
660 
    {
661 
      val = 0;
662 
      for (i = 0; names[i] != NULL; i++)
663 
        {
664 
          if (i > 0)
665 
            {
666 
              if (! append_type (info, ", "))
667 
                return FALSE;
668 
            }
669 
 
670 
          if (! append_type (info, names[i]))
671 
            return FALSE;
672 
 
673 
          if (values[i] != val)
674 
            {
675 
              char ab[20];
676 
 
677 
              print_vma (values[i], ab, FALSE, FALSE);
678 
              if (! append_type (info, " = ")
679 
                  || ! append_type (info, ab))
680 
                return FALSE;
681 
              val = values[i];
682 
            }
683 
 
684 
          ++val;
685 
        }
686 
    }
687 
 
688 
  return append_type (info, " }");
689 
}
690 
 
691 
/* Turn the top type on the stack into a pointer.  */
692 
 
693 
static bfd_boolean
694 
pr_pointer_type (void *p)
695 
{
696 
  struct pr_handle *info = (struct pr_handle *) p;
697 
  char *s;
698 
 
699 
  assert (info->stack != NULL);
700 
 
701 
  s = strchr (info->stack->type, '|');
702 
  if (s != NULL && s[1] == '[')
703 
    return substitute_type (info, "(*|)");
704 
  return substitute_type (info, "*|");
705 
}
706 
 
707 
/* Turn the top type on the stack into a function returning that type.  */
708 
 
709 
static bfd_boolean
710 
pr_function_type (void *p, int argcount, bfd_boolean varargs)
711 
{
712 
  struct pr_handle *info = (struct pr_handle *) p;
713 
  char **arg_types;
714 
  unsigned int len;
715 
  char *s;
716 
 
717 
  assert (info->stack != NULL);
718 
 
719 
  len = 10;
720 
 
721 
  if (argcount <= 0)
722 
    {
723 
      arg_types = NULL;
724 
      len += 15;
725 
    }
726 
  else
727 
    {
728 
      int i;
729 
 
730 
      arg_types = (char **) xmalloc (argcount * sizeof *arg_types);
731 
      for (i = argcount - 1; i >= 0; i--)
732 
        {
733 
          if (! substitute_type (info, ""))
734 
            return FALSE;
735 
          arg_types[i] = pop_type (info);
736 
          if (arg_types[i] == NULL)
737 
            return FALSE;
738 
          len += strlen (arg_types[i]) + 2;
739 
        }
740 
      if (varargs)
741 
        len += 5;
742 
    }
743 
 
744 
  /* Now the return type is on the top of the stack.  */
745 
 
746 
  s = (char *) xmalloc (len);
747 
  LITSTRCPY (s, "(|) (");
748 
 
749 
  if (argcount < 0)
750 
    strcat (s, "/* unknown */");
751 
  else
752 
    {
753 
      int i;
754 
 
755 
      for (i = 0; i < argcount; i++)
756 
        {
757 
          if (i > 0)
758 
            strcat (s, ", ");
759 
          strcat (s, arg_types[i]);
760 
        }
761 
      if (varargs)
762 
        {
763 
          if (i > 0)
764 
            strcat (s, ", ");
765 
          strcat (s, "...");
766 
        }
767 
      if (argcount > 0)
768 
        free (arg_types);
769 
    }
770 
 
771 
  strcat (s, ")");
772 
 
773 
  if (! substitute_type (info, s))
774 
    return FALSE;
775 
 
776 
  free (s);
777 
 
778 
  return TRUE;
779 
}
780 
 
781 
/* Turn the top type on the stack into a reference to that type.  */
782 
 
783 
static bfd_boolean
784 
pr_reference_type (void *p)
785 
{
786 
  struct pr_handle *info = (struct pr_handle *) p;
787 
 
788 
  assert (info->stack != NULL);
789 
 
790 
  return substitute_type (info, "&|");
791 
}
792 
 
793 
/* Make a range type.  */
794 
 
795 
static bfd_boolean
796 
pr_range_type (void *p, bfd_signed_vma lower, bfd_signed_vma upper)
797 
{
798 
  struct pr_handle *info = (struct pr_handle *) p;
799 
  char abl[20], abu[20];
800 
 
801 
  assert (info->stack != NULL);
802 
 
803 
  if (! substitute_type (info, ""))
804 
    return FALSE;
805 
 
806 
  print_vma (lower, abl, FALSE, FALSE);
807 
  print_vma (upper, abu, FALSE, FALSE);
808 
 
809 
  return (prepend_type (info, "range (")
810 
          && append_type (info, "):")
811 
          && append_type (info, abl)
812 
          && append_type (info, ":")
813 
          && append_type (info, abu));
814 
}
815 
 
816 
/* Make an array type.  */
817 
 
818 
static bfd_boolean
819 
pr_array_type (void *p, bfd_signed_vma lower, bfd_signed_vma upper,
820 
               bfd_boolean stringp)
821 
{
822 
  struct pr_handle *info = (struct pr_handle *) p;
823 
  char *range_type;
824 
  char abl[20], abu[20], ab[50];
825 
 
826 
  range_type = pop_type (info);
827 
  if (range_type == NULL)
828 
    return FALSE;
829 
 
830 
  if (lower == 0)
831 
    {
832 
      if (upper == -1)
833 
        sprintf (ab, "|[]");
834 
      else
835 
        {
836 
          print_vma (upper + 1, abu, FALSE, FALSE);
837 
          sprintf (ab, "|[%s]", abu);
838 
        }
839 
    }
840 
  else
841 
    {
842 
      print_vma (lower, abl, FALSE, FALSE);
843 
      print_vma (upper, abu, FALSE, FALSE);
844 
      sprintf (ab, "|[%s:%s]", abl, abu);
845 
    }
846 
 
847 
  if (! substitute_type (info, ab))
848 
    return FALSE;
849 
 
850 
  if (strcmp (range_type, "int") != 0)
851 
    {
852 
      if (! append_type (info, ":")
853 
          || ! append_type (info, range_type))
854 
        return FALSE;
855 
    }
856 
 
857 
  if (stringp)
858 
    {
859 
      if (! append_type (info, " /* string */"))
860 
        return FALSE;
861 
    }
862 
 
863 
  return TRUE;
864 
}
865 
 
866 
/* Make a set type.  */
867 
 
868 
static bfd_boolean
869 
pr_set_type (void *p, bfd_boolean bitstringp)
870 
{
871 
  struct pr_handle *info = (struct pr_handle *) p;
872 
 
873 
  if (! substitute_type (info, ""))
874 
    return FALSE;
875 
 
876 
  if (! prepend_type (info, "set { ")
877 
      || ! append_type (info, " }"))
878 
    return FALSE;
879 
 
880 
  if (bitstringp)
881 
    {
882 
      if (! append_type (info, "/* bitstring */"))
883 
        return FALSE;
884 
    }
885 
 
886 
  return TRUE;
887 
}
888 
 
889 
/* Make an offset type.  */
890 
 
891 
static bfd_boolean
892 
pr_offset_type (void *p)
893 
{
894 
  struct pr_handle *info = (struct pr_handle *) p;
895 
  char *t;
896 
 
897 
  if (! substitute_type (info, ""))
898 
    return FALSE;
899 
 
900 
  t = pop_type (info);
901 
  if (t == NULL)
902 
    return FALSE;
903 
 
904 
  return (substitute_type (info, "")
905 
          && prepend_type (info, " ")
906 
          && prepend_type (info, t)
907 
          && append_type (info, "::|"));
908 
}
909 
 
910 
/* Make a method type.  */
911 
 
912 
static bfd_boolean
913 
pr_method_type (void *p, bfd_boolean domain, int argcount, bfd_boolean varargs)
914 
{
915 
  struct pr_handle *info = (struct pr_handle *) p;
916 
  unsigned int len;
917 
  char *domain_type;
918 
  char **arg_types;
919 
  char *s;
920 
 
921 
  len = 10;
922 
 
923 
  if (! domain)
924 
    domain_type = NULL;
925 
  else
926 
    {
927 
      if (! substitute_type (info, ""))
928 
        return FALSE;
929 
      domain_type = pop_type (info);
930 
      if (domain_type == NULL)
931 
        return FALSE;
932 
      if (CONST_STRNEQ (domain_type, "class ")
933 
          && strchr (domain_type + sizeof "class " - 1, ' ') == NULL)
934 
        domain_type += sizeof "class " - 1;
935 
      else if (CONST_STRNEQ (domain_type, "union class ")
936 
               && (strchr (domain_type + sizeof "union class " - 1, ' ')
937 
                   == NULL))
938 
        domain_type += sizeof "union class " - 1;
939 
      len += strlen (domain_type);
940 
    }
941 
 
942 
  if (argcount <= 0)
943 
    {
944 
      arg_types = NULL;
945 
      len += 15;
946 
    }
947 
  else
948 
    {
949 
      int i;
950 
 
951 
      arg_types = (char **) xmalloc (argcount * sizeof *arg_types);
952 
      for (i = argcount - 1; i >= 0; i--)
953 
        {
954 
          if (! substitute_type (info, ""))
955 
            return FALSE;
956 
          arg_types[i] = pop_type (info);
957 
          if (arg_types[i] == NULL)
958 
            return FALSE;
959 
          len += strlen (arg_types[i]) + 2;
960 
        }
961 
      if (varargs)
962 
        len += 5;
963 
    }
964 
 
965 
  /* Now the return type is on the top of the stack.  */
966 
 
967 
  s = (char *) xmalloc (len);
968 
  if (! domain)
969 
    *s = '\0';
970 
  else
971 
    strcpy (s, domain_type);
972 
  strcat (s, "::| (");
973 
 
974 
  if (argcount < 0)
975 
    strcat (s, "/* unknown */");
976 
  else
977 
    {
978 
      int i;
979 
 
980 
      for (i = 0; i < argcount; i++)
981 
        {
982 
          if (i > 0)
983 
            strcat (s, ", ");
984 
          strcat (s, arg_types[i]);
985 
        }
986 
      if (varargs)
987 
        {
988 
          if (i > 0)
989 
            strcat (s, ", ");
990 
          strcat (s, "...");
991 
        }
992 
      if (argcount > 0)
993 
        free (arg_types);
994 
    }
995 
 
996 
  strcat (s, ")");
997 
 
998 
  if (! substitute_type (info, s))
999 
    return FALSE;
1000 
 
1001 
  free (s);
1002 
 
1003 
  return TRUE;
1004 
}
1005 
 
1006 
/* Make a const qualified type.  */
1007 
 
1008 
static bfd_boolean
1009 
pr_const_type (void *p)
1010 
{
1011 
  struct pr_handle *info = (struct pr_handle *) p;
1012 
 
1013 
  return substitute_type (info, "const |");
1014 
}
1015 
 
1016 
/* Make a volatile qualified type.  */
1017 
 
1018 
static bfd_boolean
1019 
pr_volatile_type (void *p)
1020 
{
1021 
  struct pr_handle *info = (struct pr_handle *) p;
1022 
 
1023 
  return substitute_type (info, "volatile |");
1024 
}
1025 
 
1026 
/* Start accumulating a struct type.  */
1027 
 
1028 
static bfd_boolean
1029 
pr_start_struct_type (void *p, const char *tag, unsigned int id,
1030 
                      bfd_boolean structp, unsigned int size)
1031 
{
1032 
  struct pr_handle *info = (struct pr_handle *) p;
1033 
 
1034 
  info->indent += 2;
1035 
 
1036 
  if (! push_type (info, structp ? "struct " : "union "))
1037 
    return FALSE;
1038 
  if (tag != NULL)
1039 
    {
1040 
      if (! append_type (info, tag))
1041 
        return FALSE;
1042 
    }
1043 
  else
1044 
    {
1045 
      char idbuf[20];
1046 
 
1047 
      sprintf (idbuf, "%%anon%u", id);
1048 
      if (! append_type (info, idbuf))
1049 
        return FALSE;
1050 
    }
1051 
 
1052 
  if (! append_type (info, " {"))
1053 
    return FALSE;
1054 
  if (size != 0 || tag != NULL)
1055 
    {
1056 
      char ab[30];
1057 
 
1058 
      if (! append_type (info, " /*"))
1059 
        return FALSE;
1060 
 
1061 
      if (size != 0)
1062 
        {
1063 
          sprintf (ab, " size %u", size);
1064 
          if (! append_type (info, ab))
1065 
            return FALSE;
1066 
        }
1067 
      if (tag != NULL)
1068 
        {
1069 
          sprintf (ab, " id %u", id);
1070 
          if (! append_type (info, ab))
1071 
            return FALSE;
1072 
        }
1073 
      if (! append_type (info, " */"))
1074 
        return FALSE;
1075 
    }
1076 
  if (! append_type (info, "\n"))
1077 
    return FALSE;
1078 
 
1079 
  info->stack->visibility = DEBUG_VISIBILITY_PUBLIC;
1080 
 
1081 
  return indent_type (info);
1082 
}
1083 
 
1084 
/* Output the visibility of a field in a struct.  */
1085 
 
1086 
static bfd_boolean
1087 
pr_fix_visibility (struct pr_handle *info, enum debug_visibility visibility)
1088 
{
1089 
  const char *s = NULL;
1090 
  char *t;
1091 
  unsigned int len;
1092 
 
1093 
  assert (info->stack != NULL);
1094 
 
1095 
  if (info->stack->visibility == visibility)
1096 
    return TRUE;
1097 
 
1098 
  switch (visibility)
1099 
    {
1100 
    case DEBUG_VISIBILITY_PUBLIC:
1101 
      s = "public";
1102 
      break;
1103 
    case DEBUG_VISIBILITY_PRIVATE:
1104 
      s = "private";
1105 
      break;
1106 
    case DEBUG_VISIBILITY_PROTECTED:
1107 
      s = "protected";
1108 
      break;
1109 
    case DEBUG_VISIBILITY_IGNORE:
1110 
      s = "/* ignore */";
1111 
      break;
1112 
    default:
1113 
      abort ();
1114 
      return FALSE;
1115 
    }
1116 
 
1117 
  /* Trim off a trailing space in the struct string, to make the
1118 
     output look a bit better, then stick on the visibility string.  */
1119 
 
1120 
  t = info->stack->type;
1121 
  len = strlen (t);
1122 
  assert (t[len - 1] == ' ');
1123 
  t[len - 1] = '\0';
1124 
 
1125 
  if (! append_type (info, s)
1126 
      || ! append_type (info, ":\n")
1127 
      || ! indent_type (info))
1128 
    return FALSE;
1129 
 
1130 
  info->stack->visibility = visibility;
1131 
 
1132 
  return TRUE;
1133 
}
1134 
 
1135 
/* Add a field to a struct type.  */
1136 
 
1137 
static bfd_boolean
1138 
pr_struct_field (void *p, const char *name, bfd_vma bitpos, bfd_vma bitsize,
1139 
                 enum debug_visibility visibility)
1140 
{
1141 
  struct pr_handle *info = (struct pr_handle *) p;
1142 
  char ab[20];
1143 
  char *t;
1144 
 
1145 
  if (! substitute_type (info, name))
1146 
    return FALSE;
1147 
 
1148 
  if (! append_type (info, "; /* "))
1149 
    return FALSE;
1150 
 
1151 
  if (bitsize != 0)
1152 
    {
1153 
      print_vma (bitsize, ab, TRUE, FALSE);
1154 
      if (! append_type (info, "bitsize ")
1155 
          || ! append_type (info, ab)
1156 
          || ! append_type (info, ", "))
1157 
        return FALSE;
1158 
    }
1159 
 
1160 
  print_vma (bitpos, ab, TRUE, FALSE);
1161 
  if (! append_type (info, "bitpos ")
1162 
      || ! append_type (info, ab)
1163 
      || ! append_type (info, " */\n")
1164 
      || ! indent_type (info))
1165 
    return FALSE;
1166 
 
1167 
  t = pop_type (info);
1168 
  if (t == NULL)
1169 
    return FALSE;
1170 
 
1171 
  if (! pr_fix_visibility (info, visibility))
1172 
    return FALSE;
1173 
 
1174 
  return append_type (info, t);
1175 
}
1176 
 
1177 
/* Finish a struct type.  */
1178 
 
1179 
static bfd_boolean
1180 
pr_end_struct_type (void *p)
1181 
{
1182 
  struct pr_handle *info = (struct pr_handle *) p;
1183 
  char *s;
1184 
 
1185 
  assert (info->stack != NULL);
1186 
  assert (info->indent >= 2);
1187 
 
1188 
  info->indent -= 2;
1189 
 
1190 
  /* Change the trailing indentation to have a close brace.  */
1191 
  s = info->stack->type + strlen (info->stack->type) - 2;
1192 
  assert (s[0] == ' ' && s[1] == ' ' && s[2] == '\0');
1193 
 
1194 
  *s++ = '}';
1195 
  *s = '\0';
1196 
 
1197 
  return TRUE;
1198 
}
1199 
 
1200 
/* Start a class type.  */
1201 
 
1202 
static bfd_boolean
1203 
pr_start_class_type (void *p, const char *tag, unsigned int id,
1204 
                     bfd_boolean structp, unsigned int size,
1205 
                     bfd_boolean vptr, bfd_boolean ownvptr)
1206 
{
1207 
  struct pr_handle *info = (struct pr_handle *) p;
1208 
  char *tv = NULL;
1209 
 
1210 
  info->indent += 2;
1211 
 
1212 
  if (vptr && ! ownvptr)
1213 
    {
1214 
      tv = pop_type (info);
1215 
      if (tv == NULL)
1216 
        return FALSE;
1217 
    }
1218 
 
1219 
  if (! push_type (info, structp ? "class " : "union class "))
1220 
    return FALSE;
1221 
  if (tag != NULL)
1222 
    {
1223 
      if (! append_type (info, tag))
1224 
        return FALSE;
1225 
    }
1226 
  else
1227 
    {
1228 
      char idbuf[20];
1229 
 
1230 
      sprintf (idbuf, "%%anon%u", id);
1231 
      if (! append_type (info, idbuf))
1232 
        return FALSE;
1233 
    }
1234 
 
1235 
  if (! append_type (info, " {"))
1236 
    return FALSE;
1237 
  if (size != 0 || vptr || ownvptr || tag != NULL)
1238 
    {
1239 
      if (! append_type (info, " /*"))
1240 
        return FALSE;
1241 
 
1242 
      if (size != 0)
1243 
        {
1244 
          char ab[20];
1245 
 
1246 
          sprintf (ab, "%u", size);
1247 
          if (! append_type (info, " size ")
1248 
              || ! append_type (info, ab))
1249 
            return FALSE;
1250 
        }
1251 
 
1252 
      if (vptr)
1253 
        {
1254 
          if (! append_type (info, " vtable "))
1255 
            return FALSE;
1256 
          if (ownvptr)
1257 
            {
1258 
              if (! append_type (info, "self "))
1259 
                return FALSE;
1260 
            }
1261 
          else
1262 
            {
1263 
              if (! append_type (info, tv)
1264 
                  || ! append_type (info, " "))
1265 
                return FALSE;
1266 
            }
1267 
        }
1268 
 
1269 
      if (tag != NULL)
1270 
        {
1271 
          char ab[30];
1272 
 
1273 
          sprintf (ab, " id %u", id);
1274 
          if (! append_type (info, ab))
1275 
            return FALSE;
1276 
        }
1277 
 
1278 
      if (! append_type (info, " */"))
1279 
        return FALSE;
1280 
    }
1281 
 
1282 
  info->stack->visibility = DEBUG_VISIBILITY_PRIVATE;
1283 
 
1284 
  return (append_type (info, "\n")
1285 
          && indent_type (info));
1286 
}
1287 
 
1288 
/* Add a static member to a class.  */
1289 
 
1290 
static bfd_boolean
1291 
pr_class_static_member (void *p, const char *name, const char *physname,
1292 
                        enum debug_visibility visibility)
1293 
{
1294 
  struct pr_handle *info = (struct pr_handle *) p;
1295 
  char *t;
1296 
 
1297 
  if (! substitute_type (info, name))
1298 
    return FALSE;
1299 
 
1300 
  if (! prepend_type (info, "static ")
1301 
      || ! append_type (info, "; /* ")
1302 
      || ! append_type (info, physname)
1303 
      || ! append_type (info, " */\n")
1304 
      || ! indent_type (info))
1305 
    return FALSE;
1306 
 
1307 
  t = pop_type (info);
1308 
  if (t == NULL)
1309 
    return FALSE;
1310 
 
1311 
  if (! pr_fix_visibility (info, visibility))
1312 
    return FALSE;
1313 
 
1314 
  return append_type (info, t);
1315 
}
1316 
 
1317 
/* Add a base class to a class.  */
1318 
 
1319 
static bfd_boolean
1320 
pr_class_baseclass (void *p, bfd_vma bitpos, bfd_boolean is_virtual,
1321 
                    enum debug_visibility visibility)
1322 
{
1323 
  struct pr_handle *info = (struct pr_handle *) p;
1324 
  char *t;
1325 
  const char *prefix;
1326 
  char ab[20];
1327 
  char *s, *l, *n;
1328 
 
1329 
  assert (info->stack != NULL && info->stack->next != NULL);
1330 
 
1331 
  if (! substitute_type (info, ""))
1332 
    return FALSE;
1333 
 
1334 
  t = pop_type (info);
1335 
  if (t == NULL)
1336 
    return FALSE;
1337 
 
1338 
  if (CONST_STRNEQ (t, "class "))
1339 
    t += sizeof "class " - 1;
1340 
 
1341 
  /* Push it back on to take advantage of the prepend_type and
1342 
     append_type routines.  */
1343 
  if (! push_type (info, t))
1344 
    return FALSE;
1345 
 
1346 
  if (is_virtual)
1347 
    {
1348 
      if (! prepend_type (info, "virtual "))
1349 
        return FALSE;
1350 
    }
1351 
 
1352 
  switch (visibility)
1353 
    {
1354 
    case DEBUG_VISIBILITY_PUBLIC:
1355 
      prefix = "public ";
1356 
      break;
1357 
    case DEBUG_VISIBILITY_PROTECTED:
1358 
      prefix = "protected ";
1359 
      break;
1360 
    case DEBUG_VISIBILITY_PRIVATE:
1361 
      prefix = "private ";
1362 
      break;
1363 
    default:
1364 
      prefix = "/* unknown visibility */ ";
1365 
      break;
1366 
    }
1367 
 
1368 
  if (! prepend_type (info, prefix))
1369 
    return FALSE;
1370 
 
1371 
  if (bitpos != 0)
1372 
    {
1373 
      print_vma (bitpos, ab, TRUE, FALSE);
1374 
      if (! append_type (info, " /* bitpos ")
1375 
          || ! append_type (info, ab)
1376 
          || ! append_type (info, " */"))
1377 
        return FALSE;
1378 
    }
1379 
 
1380 
  /* Now the top of the stack is something like "public A / * bitpos
1381 
     10 * /".  The next element on the stack is something like "class
1382 
     xx { / * size 8 * /\n...".  We want to substitute the top of the
1383 
     stack in before the {.  */
1384 
  s = strchr (info->stack->next->type, '{');
1385 
  assert (s != NULL);
1386 
  --s;
1387 
 
1388 
  /* If there is already a ':', then we already have a baseclass, and
1389 
     we must append this one after a comma.  */
1390 
  for (l = info->stack->next->type; l != s; l++)
1391 
    if (*l == ':')
1392 
      break;
1393 
  if (! prepend_type (info, l == s ? " : " : ", "))
1394 
    return FALSE;
1395 
 
1396 
  t = pop_type (info);
1397 
  if (t == NULL)
1398 
    return FALSE;
1399 
 
1400 
  n = (char *) xmalloc (strlen (info->stack->type) + strlen (t) + 1);
1401 
  memcpy (n, info->stack->type, s - info->stack->type);
1402 
  strcpy (n + (s - info->stack->type), t);
1403 
  strcat (n, s);
1404 
 
1405 
  free (info->stack->type);
1406 
  info->stack->type = n;
1407 
 
1408 
  free (t);
1409 
 
1410 
  return TRUE;
1411 
}
1412 
 
1413 
/* Start adding a method to a class.  */
1414 
 
1415 
static bfd_boolean
1416 
pr_class_start_method (void *p, const char *name)
1417 
{
1418 
  struct pr_handle *info = (struct pr_handle *) p;
1419 
 
1420 
  assert (info->stack != NULL);
1421 
  info->stack->method = name;
1422 
  return TRUE;
1423 
}
1424 
 
1425 
/* Add a variant to a method.  */
1426 
 
1427 
static bfd_boolean
1428 
pr_class_method_variant (void *p, const char *physname,
1429 
                         enum debug_visibility visibility,
1430 
                         bfd_boolean constp, bfd_boolean volatilep,
1431 
                         bfd_vma voffset, bfd_boolean context)
1432 
{
1433 
  struct pr_handle *info = (struct pr_handle *) p;
1434 
  char *method_type;
1435 
  char *context_type;
1436 
 
1437 
  assert (info->stack != NULL);
1438 
  assert (info->stack->next != NULL);
1439 
 
1440 
  /* Put the const and volatile qualifiers on the type.  */
1441 
  if (volatilep)
1442 
    {
1443 
      if (! append_type (info, " volatile"))
1444 
        return FALSE;
1445 
    }
1446 
  if (constp)
1447 
    {
1448 
      if (! append_type (info, " const"))
1449 
        return FALSE;
1450 
    }
1451 
 
1452 
  /* Stick the name of the method into its type.  */
1453 
  if (! substitute_type (info,
1454 
                         (context
1455 
                          ? info->stack->next->next->method
1456 
                          : info->stack->next->method)))
1457 
    return FALSE;
1458 
 
1459 
  /* Get the type.  */
1460 
  method_type = pop_type (info);
1461 
  if (method_type == NULL)
1462 
    return FALSE;
1463 
 
1464 
  /* Pull off the context type if there is one.  */
1465 
  if (! context)
1466 
    context_type = NULL;
1467 
  else
1468 
    {
1469 
      context_type = pop_type (info);
1470 
      if (context_type == NULL)
1471 
        return FALSE;
1472 
    }
1473 
 
1474 
  /* Now the top of the stack is the class.  */
1475 
 
1476 
  if (! pr_fix_visibility (info, visibility))
1477 
    return FALSE;
1478 
 
1479 
  if (! append_type (info, method_type)
1480 
      || ! append_type (info, " /* ")
1481 
      || ! append_type (info, physname)
1482 
      || ! append_type (info, " "))
1483 
    return FALSE;
1484 
  if (context || voffset != 0)
1485 
    {
1486 
      char ab[20];
1487 
 
1488 
      if (context)
1489 
        {
1490 
          if (! append_type (info, "context ")
1491 
              || ! append_type (info, context_type)
1492 
              || ! append_type (info, " "))
1493 
            return FALSE;
1494 
        }
1495 
      print_vma (voffset, ab, TRUE, FALSE);
1496 
      if (! append_type (info, "voffset ")
1497 
          || ! append_type (info, ab))
1498 
        return FALSE;
1499 
    }
1500 
 
1501 
  return (append_type (info, " */;\n")
1502 
          && indent_type (info));
1503 
}
1504 
 
1505 
/* Add a static variant to a method.  */
1506 
 
1507 
static bfd_boolean
1508 
pr_class_static_method_variant (void *p, const char *physname,
1509 
                                enum debug_visibility visibility,
1510 
                                bfd_boolean constp, bfd_boolean volatilep)
1511 
{
1512 
  struct pr_handle *info = (struct pr_handle *) p;
1513 
  char *method_type;
1514 
 
1515 
  assert (info->stack != NULL);
1516 
  assert (info->stack->next != NULL);
1517 
  assert (info->stack->next->method != NULL);
1518 
 
1519 
  /* Put the const and volatile qualifiers on the type.  */
1520 
  if (volatilep)
1521 
    {
1522 
      if (! append_type (info, " volatile"))
1523 
        return FALSE;
1524 
    }
1525 
  if (constp)
1526 
    {
1527 
      if (! append_type (info, " const"))
1528 
        return FALSE;
1529 
    }
1530 
 
1531 
  /* Mark it as static.  */
1532 
  if (! prepend_type (info, "static "))
1533 
    return FALSE;
1534 
 
1535 
  /* Stick the name of the method into its type.  */
1536 
  if (! substitute_type (info, info->stack->next->method))
1537 
    return FALSE;
1538 
 
1539 
  /* Get the type.  */
1540 
  method_type = pop_type (info);
1541 
  if (method_type == NULL)
1542 
    return FALSE;
1543 
 
1544 
  /* Now the top of the stack is the class.  */
1545 
 
1546 
  if (! pr_fix_visibility (info, visibility))
1547 
    return FALSE;
1548 
 
1549 
  return (append_type (info, method_type)
1550 
          && append_type (info, " /* ")
1551 
          && append_type (info, physname)
1552 
          && append_type (info, " */;\n")
1553 
          && indent_type (info));
1554 
}
1555 
 
1556 
/* Finish up a method.  */
1557 
 
1558 
static bfd_boolean
1559 
pr_class_end_method (void *p)
1560 
{
1561 
  struct pr_handle *info = (struct pr_handle *) p;
1562 
 
1563 
  info->stack->method = NULL;
1564 
  return TRUE;
1565 
}
1566 
 
1567 
/* Finish up a class.  */
1568 
 
1569 
static bfd_boolean
1570 
pr_end_class_type (void *p)
1571 
{
1572 
  return pr_end_struct_type (p);
1573 
}
1574 
 
1575 
/* Push a type on the stack using a typedef name.  */
1576 
 
1577 
static bfd_boolean
1578 
pr_typedef_type (void *p, const char *name)
1579 
{
1580 
  struct pr_handle *info = (struct pr_handle *) p;
1581 
 
1582 
  return push_type (info, name);
1583 
}
1584 
 
1585 
/* Push a type on the stack using a tag name.  */
1586 
 
1587 
static bfd_boolean
1588 
pr_tag_type (void *p, const char *name, unsigned int id,
1589 
             enum debug_type_kind kind)
1590 
{
1591 
  struct pr_handle *info = (struct pr_handle *) p;
1592 
  const char *t, *tag;
1593 
  char idbuf[20];
1594 
 
1595 
  switch (kind)
1596 
    {
1597 
    case DEBUG_KIND_STRUCT:
1598 
      t = "struct ";
1599 
      break;
1600 
    case DEBUG_KIND_UNION:
1601 
      t = "union ";
1602 
      break;
1603 
    case DEBUG_KIND_ENUM:
1604 
      t = "enum ";
1605 
      break;
1606 
    case DEBUG_KIND_CLASS:
1607 
      t = "class ";
1608 
      break;
1609 
    case DEBUG_KIND_UNION_CLASS:
1610 
      t = "union class ";
1611 
      break;
1612 
    default:
1613 
      abort ();
1614 
      return FALSE;
1615 
    }
1616 
 
1617 
  if (! push_type (info, t))
1618 
    return FALSE;
1619 
  if (name != NULL)
1620 
    tag = name;
1621 
  else
1622 
    {
1623 
      sprintf (idbuf, "%%anon%u", id);
1624 
      tag = idbuf;
1625 
    }
1626 
 
1627 
  if (! append_type (info, tag))
1628 
    return FALSE;
1629 
  if (name != NULL && kind != DEBUG_KIND_ENUM)
1630 
    {
1631 
      sprintf (idbuf, " /* id %u */", id);
1632 
      if (! append_type (info, idbuf))
1633 
        return FALSE;
1634 
    }
1635 
 
1636 
  return TRUE;
1637 
}
1638 
 
1639 
/* Output a typedef.  */
1640 
 
1641 
static bfd_boolean
1642 
pr_typdef (void *p, const char *name)
1643 
{
1644 
  struct pr_handle *info = (struct pr_handle *) p;
1645 
  char *s;
1646 
 
1647 
  if (! substitute_type (info, name))
1648 
    return FALSE;
1649 
 
1650 
  s = pop_type (info);
1651 
  if (s == NULL)
1652 
    return FALSE;
1653 
 
1654 
  indent (info);
1655 
  fprintf (info->f, "typedef %s;\n", s);
1656 
 
1657 
  free (s);
1658 
 
1659 
  return TRUE;
1660 
}
1661 
 
1662 
/* Output a tag.  The tag should already be in the string on the
1663 
   stack, so all we have to do here is print it out.  */
1664 
 
1665 
static bfd_boolean
1666 
pr_tag (void *p, const char *name ATTRIBUTE_UNUSED)
1667 
{
1668 
  struct pr_handle *info = (struct pr_handle *) p;
1669 
  char *t;
1670 
 
1671 
  t = pop_type (info);
1672 
  if (t == NULL)
1673 
    return FALSE;
1674 
 
1675 
  indent (info);
1676 
  fprintf (info->f, "%s;\n", t);
1677 
 
1678 
  free (t);
1679 
 
1680 
  return TRUE;
1681 
}
1682 
 
1683 
/* Output an integer constant.  */
1684 
 
1685 
static bfd_boolean
1686 
pr_int_constant (void *p, const char *name, bfd_vma val)
1687 
{
1688 
  struct pr_handle *info = (struct pr_handle *) p;
1689 
  char ab[20];
1690 
 
1691 
  indent (info);
1692 
  print_vma (val, ab, FALSE, FALSE);
1693 
  fprintf (info->f, "const int %s = %s;\n", name, ab);
1694 
  return TRUE;
1695 
}
1696 
 
1697 
/* Output a floating point constant.  */
1698 
 
1699 
static bfd_boolean
1700 
pr_float_constant (void *p, const char *name, double val)
1701 
{
1702 
  struct pr_handle *info = (struct pr_handle *) p;
1703 
 
1704 
  indent (info);
1705 
  fprintf (info->f, "const double %s = %g;\n", name, val);
1706 
  return TRUE;
1707 
}
1708 
 
1709 
/* Output a typed constant.  */
1710 
 
1711 
static bfd_boolean
1712 
pr_typed_constant (void *p, const char *name, bfd_vma val)
1713 
{
1714 
  struct pr_handle *info = (struct pr_handle *) p;
1715 
  char *t;
1716 
  char ab[20];
1717 
 
1718 
  t = pop_type (info);
1719 
  if (t == NULL)
1720 
    return FALSE;
1721 
 
1722 
  indent (info);
1723 
  print_vma (val, ab, FALSE, FALSE);
1724 
  fprintf (info->f, "const %s %s = %s;\n", t, name, ab);
1725 
 
1726 
  free (t);
1727 
 
1728 
  return TRUE;
1729 
}
1730 
 
1731 
/* Output a variable.  */
1732 
 
1733 
static bfd_boolean
1734 
pr_variable (void *p, const char *name, enum debug_var_kind kind,
1735 
             bfd_vma val)
1736 
{
1737 
  struct pr_handle *info = (struct pr_handle *) p;
1738 
  char *t;
1739 
  char ab[20];
1740 
 
1741 
  if (! substitute_type (info, name))
1742 
    return FALSE;
1743 
 
1744 
  t = pop_type (info);
1745 
  if (t == NULL)
1746 
    return FALSE;
1747 
 
1748 
  indent (info);
1749 
  switch (kind)
1750 
    {
1751 
    case DEBUG_STATIC:
1752 
    case DEBUG_LOCAL_STATIC:
1753 
      fprintf (info->f, "static ");
1754 
      break;
1755 
    case DEBUG_REGISTER:
1756 
      fprintf (info->f, "register ");
1757 
      break;
1758 
    default:
1759 
      break;
1760 
    }
1761 
  print_vma (val, ab, TRUE, TRUE);
1762 
  fprintf (info->f, "%s /* %s */;\n", t, ab);
1763 
 
1764 
  free (t);
1765 
 
1766 
  return TRUE;
1767 
}
1768 
 
1769 
/* Start outputting a function.  */
1770 
 
1771 
static bfd_boolean
1772 
pr_start_function (void *p, const char *name, bfd_boolean global)
1773 
{
1774 
  struct pr_handle *info = (struct pr_handle *) p;
1775 
  char *t;
1776 
 
1777 
  if (! substitute_type (info, name))
1778 
    return FALSE;
1779 
 
1780 
  t = pop_type (info);
1781 
  if (t == NULL)
1782 
    return FALSE;
1783 
 
1784 
  indent (info);
1785 
  if (! global)
1786 
    fprintf (info->f, "static ");
1787 
  fprintf (info->f, "%s (", t);
1788 
 
1789 
  info->parameter = 1;
1790 
 
1791 
  return TRUE;
1792 
}
1793 
 
1794 
/* Output a function parameter.  */
1795 
 
1796 
static bfd_boolean
1797 
pr_function_parameter (void *p, const char *name,
1798 
                       enum debug_parm_kind kind, bfd_vma val)
1799 
{
1800 
  struct pr_handle *info = (struct pr_handle *) p;
1801 
  char *t;
1802 
  char ab[20];
1803 
 
1804 
  if (kind == DEBUG_PARM_REFERENCE
1805 
      || kind == DEBUG_PARM_REF_REG)
1806 
    {
1807 
      if (! pr_reference_type (p))
1808 
        return FALSE;
1809 
    }
1810 
 
1811 
  if (! substitute_type (info, name))
1812 
    return FALSE;
1813 
 
1814 
  t = pop_type (info);
1815 
  if (t == NULL)
1816 
    return FALSE;
1817 
 
1818 
  if (info->parameter != 1)
1819 
    fprintf (info->f, ", ");
1820 
 
1821 
  if (kind == DEBUG_PARM_REG || kind == DEBUG_PARM_REF_REG)
1822 
    fprintf (info->f, "register ");
1823 
 
1824 
  print_vma (val, ab, TRUE, TRUE);
1825 
  fprintf (info->f, "%s /* %s */", t, ab);
1826 
 
1827 
  free (t);
1828 
 
1829 
  ++info->parameter;
1830 
 
1831 
  return TRUE;
1832 
}
1833 
 
1834 
/* Start writing out a block.  */
1835 
 
1836 
static bfd_boolean
1837 
pr_start_block (void *p, bfd_vma addr)
1838 
{
1839 
  struct pr_handle *info = (struct pr_handle *) p;
1840 
  char ab[20];
1841 
 
1842 
  if (info->parameter > 0)
1843 
    {
1844 
      fprintf (info->f, ")\n");
1845 
      info->parameter = 0;
1846 
    }
1847 
 
1848 
  indent (info);
1849 
  print_vma (addr, ab, TRUE, TRUE);
1850 
  fprintf (info->f, "{ /* %s */\n", ab);
1851 
 
1852 
  info->indent += 2;
1853 
 
1854 
  return TRUE;
1855 
}
1856 
 
1857 
/* Write out line number information.  */
1858 
 
1859 
static bfd_boolean
1860 
pr_lineno (void *p, const char *filename, unsigned long lineno, bfd_vma addr)
1861 
{
1862 
  struct pr_handle *info = (struct pr_handle *) p;
1863 
  char ab[20];
1864 
 
1865 
  indent (info);
1866 
  print_vma (addr, ab, TRUE, TRUE);
1867 
  fprintf (info->f, "/* file %s line %lu addr %s */\n", filename, lineno, ab);
1868 
 
1869 
  return TRUE;
1870 
}
1871 
 
1872 
/* Finish writing out a block.  */
1873 
 
1874 
static bfd_boolean
1875 
pr_end_block (void *p, bfd_vma addr)
1876 
{
1877 
  struct pr_handle *info = (struct pr_handle *) p;
1878 
  char ab[20];
1879 
 
1880 
  info->indent -= 2;
1881 
 
1882 
  indent (info);
1883 
  print_vma (addr, ab, TRUE, TRUE);
1884 
  fprintf (info->f, "} /* %s */\n", ab);
1885 
 
1886 
  return TRUE;
1887 
}
1888 
 
1889 
/* Finish writing out a function.  */
1890 
 
1891 
static bfd_boolean
1892 
pr_end_function (void *p ATTRIBUTE_UNUSED)
1893 
{
1894 
  return TRUE;
1895 
}
1896 
 
1897 
/* Tags style generation functions start here.  */
1898 
 
1899 
/* Variables for address to line translation.  */
1900 
static bfd_vma pc;
1901 
static const char *filename;
1902 
static const char *functionname;
1903 
static unsigned int line;
1904 
static bfd_boolean found;
1905 
 
1906 
/* Look for an address in a section.  This is called via
1907 
   bfd_map_over_sections.  */
1908 
 
1909 
static void
1910 
find_address_in_section (bfd *abfd, asection *section, void *data)
1911 
{
1912 
  bfd_vma vma;
1913 
  bfd_size_type size;
1914 
  asymbol **syms = (asymbol **) data;
1915 
 
1916 
  if (found)
1917 
    return;
1918 
 
1919 
  if ((bfd_get_section_flags (abfd, section) & SEC_ALLOC) == 0)
1920 
    return;
1921 
 
1922 
  vma = bfd_get_section_vma (abfd, section);
1923 
  if (pc < vma)
1924 
    return;
1925 
 
1926 
  size = bfd_get_section_size (section);
1927 
  if (pc >= vma + size)
1928 
    return;
1929 
 
1930 
  found = bfd_find_nearest_line (abfd, section, syms, pc - vma,
1931 
                                 &filename, &functionname, &line);
1932 
}
1933 
 
1934 
static void
1935 
translate_addresses (bfd *abfd, char *addr_hex, FILE *f, asymbol **syms)
1936 
{
1937 
  pc = bfd_scan_vma (addr_hex, NULL, 16);
1938 
  found = FALSE;
1939 
  bfd_map_over_sections (abfd, find_address_in_section, syms);
1940 
 
1941 
  if (! found)
1942 
    fprintf (f, "??");
1943 
  else
1944 
    fprintf (f, "%u", line);
1945 
}
1946 
 
1947 
/* Start a new compilation unit.  */
1948 
 
1949 
static bfd_boolean
1950 
tg_start_compilation_unit (void * p, const char *filename ATTRIBUTE_UNUSED)
1951 
{
1952 
  struct pr_handle *info = (struct pr_handle *) p;
1953 
 
1954 
  free (info->filename);
1955 
  /* Should it be relative? best way to do it here?.  */
1956 
  info->filename = strdup (filename);
1957 
 
1958 
  return TRUE;
1959 
}
1960 
 
1961 
/* Start a source file within a compilation unit.  */
1962 
 
1963 
static bfd_boolean
1964 
tg_start_source (void *p, const char *filename)
1965 
{
1966 
  struct pr_handle *info = (struct pr_handle *) p;
1967 
 
1968 
  free (info->filename);
1969 
  /* Should it be relative? best way to do it here?.  */
1970 
  info->filename = strdup (filename);
1971 
 
1972 
  return TRUE;
1973 
}
1974 
 
1975 
/* Push an enum type onto the type stack.  */
1976 
 
1977 
static bfd_boolean
1978 
tg_enum_type (void *p, const char *tag, const char **names,
1979 
              bfd_signed_vma *values)
1980 
{
1981 
  struct pr_handle *info = (struct pr_handle *) p;
1982 
  unsigned int i;
1983 
  const char *name;
1984 
  char ab[20];
1985 
 
1986 
  if (! pr_enum_type (p, tag, names, values))
1987 
    return FALSE;
1988 
 
1989 
  name = tag ? tag : "unknown";
1990 
  /* Generate an entry for the enum.  */
1991 
  if (tag)
1992 
    fprintf (info->f, "%s\t%s\t0;\"\tkind:e\ttype:%s\n", tag,
1993 
             info->filename, info->stack->type);
1994 
 
1995 
  /* Generate entries for the values.  */
1996 
  if (names != NULL)
1997 
    {
1998 
      for (i = 0; names[i] != NULL; i++)
1999 
        {
2000 
          print_vma (values[i], ab, FALSE, FALSE);
2001 
          fprintf (info->f, "%s\t%s\t0;\"\tkind:g\tenum:%s\tvalue:%s\n",
2002 
                   names[i], info->filename, name, ab);
2003 
        }
2004 
    }
2005 
 
2006 
  return TRUE;
2007 
}
2008 
 
2009 
/* Start accumulating a struct type.  */
2010 
 
2011 
static bfd_boolean
2012 
tg_start_struct_type (void *p, const char *tag, unsigned int id,
2013 
                      bfd_boolean structp,
2014 
                      unsigned int size ATTRIBUTE_UNUSED)
2015 
{
2016 
  struct pr_handle *info = (struct pr_handle *) p;
2017 
  const char *name;
2018 
  char idbuf[20];
2019 
 
2020 
  if (tag != NULL)
2021 
    name = tag;
2022 
  else
2023 
    {
2024 
      name = idbuf;
2025 
      sprintf (idbuf, "%%anon%u", id);
2026 
    }
2027 
 
2028 
  if (! push_type (info, name))
2029 
    return FALSE;
2030 
 
2031 
  info->stack->flavor = structp ? "struct" : "union";
2032 
 
2033 
  fprintf (info->f, "%s\t%s\t0;\"\tkind:%c\n", name, info->filename,
2034 
           info->stack->flavor[0]);
2035 
 
2036 
  info->stack->visibility = DEBUG_VISIBILITY_PUBLIC;
2037 
 
2038 
  return indent_type (info);
2039 
}
2040 
 
2041 
/* Output the visibility of a field in a struct.  */
2042 
 
2043 
static bfd_boolean
2044 
tg_fix_visibility (struct pr_handle *info, enum debug_visibility visibility)
2045 
{
2046 
  assert (info->stack != NULL);
2047 
 
2048 
  if (info->stack->visibility == visibility)
2049 
    return TRUE;
2050 
 
2051 
  assert (info->stack->visibility != DEBUG_VISIBILITY_IGNORE);
2052 
 
2053 
  info->stack->visibility = visibility;
2054 
 
2055 
  return TRUE;
2056 
}
2057 
 
2058 
/* Add a field to a struct type.  */
2059 
 
2060 
static bfd_boolean
2061 
tg_struct_field (void *p, const char *name, bfd_vma bitpos ATTRIBUTE_UNUSED,
2062 
                 bfd_vma bitsize ATTRIBUTE_UNUSED,
2063 
                 enum debug_visibility visibility)
2064 
{
2065 
  struct pr_handle *info = (struct pr_handle *) p;
2066 
  char *t;
2067 
 
2068 
  t = pop_type (info);
2069 
  if (t == NULL)
2070 
    return FALSE;
2071 
 
2072 
  if (! tg_fix_visibility (info, visibility))
2073 
    return FALSE;
2074 
 
2075 
  /* It happens, a bug? */
2076 
  if (! name[0])
2077 
    return TRUE;
2078 
 
2079 
  fprintf (info->f, "%s\t%s\t0;\"\tkind:m\ttype:%s\t%s:%s\taccess:%s\n",
2080 
           name, info->filename, t, info->stack->flavor, info->stack->type,
2081 
           visibility_name (visibility));
2082 
 
2083 
  return TRUE;
2084 
}
2085 
 
2086 
/* Finish a struct type.  */
2087 
 
2088 
static bfd_boolean
2089 
tg_end_struct_type (void *p ATTRIBUTE_UNUSED)
2090 
{
2091 
  assert (((struct pr_handle *) p)->stack != NULL);
2092 
 
2093 
  return TRUE;
2094 
}
2095 
 
2096 
/* Start a class type.  */
2097 
 
2098 
static bfd_boolean
2099 
tg_start_class_type (void *p, const char *tag, unsigned int id,
2100 
                     bfd_boolean structp, unsigned int size,
2101 
                     bfd_boolean vptr, bfd_boolean ownvptr)
2102 
{
2103 
  struct pr_handle *info = (struct pr_handle *) p;
2104 
  char *tv = NULL;
2105 
  const char *name;
2106 
 
2107 
  info->indent += 2;
2108 
 
2109 
  if (vptr && ! ownvptr)
2110 
    {
2111 
      tv = pop_type (info);
2112 
      if (tv == NULL)
2113 
        return FALSE;
2114 
    }
2115 
 
2116 
  if (tag != NULL)
2117 
    name = tag;
2118 
  else
2119 
    {
2120 
      char idbuf[20];
2121 
 
2122 
      sprintf (idbuf, "%%anon%u", id);
2123 
      name = idbuf;
2124 
    }
2125 
 
2126 
  if (! push_type (info, name))
2127 
    return FALSE;
2128 
 
2129 
  info->stack->flavor = structp ? "class" : "union class";
2130 
  info->stack->parents = NULL;
2131 
  info->stack->num_parents = 0;
2132 
 
2133 
  if (size != 0 || vptr || ownvptr || tag != NULL)
2134 
    {
2135 
      if (vptr)
2136 
        {
2137 
          if (! append_type (info, " vtable "))
2138 
            return FALSE;
2139 
          if (ownvptr)
2140 
            {
2141 
              if (! append_type (info, "self "))
2142 
                return FALSE;
2143 
            }
2144 
          else
2145 
            {
2146 
              if (! append_type (info, tv)
2147 
                  || ! append_type (info, " "))
2148 
                return FALSE;
2149 
            }
2150 
        }
2151 
    }
2152 
 
2153 
  info->stack->visibility = DEBUG_VISIBILITY_PRIVATE;
2154 
 
2155 
  return TRUE;
2156 
}
2157 
 
2158 
/* Add a static member to a class.  */
2159 
 
2160 
static bfd_boolean
2161 
tg_class_static_member (void *p, const char *name,
2162 
                        const char *physname ATTRIBUTE_UNUSED,
2163 
                        enum debug_visibility visibility)
2164 
{
2165 
  struct pr_handle *info = (struct pr_handle *) p;
2166 
  char *t;
2167 
  int len_var, len_class;
2168 
  char *full_name;
2169 
 
2170 
  len_var = strlen (name);
2171 
  len_class = strlen (info->stack->next->type);
2172 
  full_name = (char *) xmalloc (len_var + len_class + 3);
2173 
  if (! full_name)
2174 
    return FALSE;
2175 
  sprintf (full_name, "%s::%s", info->stack->next->type, name);
2176 
 
2177 
  if (! substitute_type (info, full_name))
2178 
    return FALSE;
2179 
 
2180 
  if (! prepend_type (info, "static "))
2181 
    return FALSE;
2182 
 
2183 
  t = pop_type (info);
2184 
  if (t == NULL)
2185 
    return FALSE;
2186 
 
2187 
  if (! tg_fix_visibility (info, visibility))
2188 
    return FALSE;
2189 
 
2190 
  fprintf (info->f, "%s\t%s\t0;\"\tkind:x\ttype:%s\tclass:%s\taccess:%s\n",
2191 
           name, info->filename, t, info->stack->type,
2192 
           visibility_name (visibility));
2193 
  free (t);
2194 
  free (full_name);
2195 
 
2196 
  return TRUE;
2197 
}
2198 
 
2199 
/* Add a base class to a class.  */
2200 
 
2201 
static bfd_boolean
2202 
tg_class_baseclass (void *p, bfd_vma bitpos ATTRIBUTE_UNUSED,
2203 
                    bfd_boolean is_virtual, enum debug_visibility visibility)
2204 
{
2205 
  struct pr_handle *info = (struct pr_handle *) p;
2206 
  char *t;
2207 
  const char *prefix;
2208 
 
2209 
  assert (info->stack != NULL && info->stack->next != NULL);
2210 
 
2211 
  t = pop_type (info);
2212 
  if (t == NULL)
2213 
    return FALSE;
2214 
 
2215 
  if (CONST_STRNEQ (t, "class "))
2216 
    t += sizeof "class " - 1;
2217 
 
2218 
  /* Push it back on to take advantage of the prepend_type and
2219 
     append_type routines.  */
2220 
  if (! push_type (info, t))
2221 
    return FALSE;
2222 
 
2223 
  if (is_virtual)
2224 
    {
2225 
      if (! prepend_type (info, "virtual "))
2226 
        return FALSE;
2227 
    }
2228 
 
2229 
  switch (visibility)
2230 
    {
2231 
    case DEBUG_VISIBILITY_PUBLIC:
2232 
      prefix = "public ";
2233 
      break;
2234 
    case DEBUG_VISIBILITY_PROTECTED:
2235 
      prefix = "protected ";
2236 
      break;
2237 
    case DEBUG_VISIBILITY_PRIVATE:
2238 
      prefix = "private ";
2239 
      break;
2240 
    default:
2241 
      prefix = "/* unknown visibility */ ";
2242 
      break;
2243 
    }
2244 
 
2245 
  if (! prepend_type (info, prefix))
2246 
    return FALSE;
2247 
 
2248 
  t = pop_type (info);
2249 
  if (t == NULL)
2250 
    return FALSE;
2251 
 
2252 
  if (info->stack->num_parents && ! append_parent (info, ", "))
2253 
    return FALSE;
2254 
 
2255 
  if (! append_parent (info, t))
2256 
    return FALSE;
2257 
  info->stack->num_parents++;
2258 
 
2259 
  free (t);
2260 
 
2261 
  return TRUE;
2262 
}
2263 
 
2264 
/* Add a variant to a method.  */
2265 
 
2266 
static bfd_boolean
2267 
tg_class_method_variant (void *p, const char *physname ATTRIBUTE_UNUSED,
2268 
                         enum debug_visibility visibility,
2269 
                         bfd_boolean constp, bfd_boolean volatilep,
2270 
                         bfd_vma voffset ATTRIBUTE_UNUSED,
2271 
                         bfd_boolean context)
2272 
{
2273 
  struct pr_handle *info = (struct pr_handle *) p;
2274 
  char *method_type;
2275 
  char *context_type;
2276 
  char *method_name;
2277 
 
2278 
  assert (info->stack != NULL);
2279 
  assert (info->stack->next != NULL);
2280 
 
2281 
  /* Put the const and volatile qualifiers on the type.  */
2282 
  if (volatilep)
2283 
    {
2284 
      if (! append_type (info, " volatile"))
2285 
        return FALSE;
2286 
    }
2287 
  if (constp)
2288 
    {
2289 
      if (! append_type (info, " const"))
2290 
        return FALSE;
2291 
    }
2292 
 
2293 
  method_name = strdup (context ? info->stack->next->next->method
2294 
                        : info->stack->next->method);
2295 
 
2296 
  /* Stick the name of the method into its type.  */
2297 
  if (! substitute_type (info, method_name))
2298 
    return FALSE;
2299 
 
2300 
  /* Get the type.  */
2301 
  method_type = pop_type (info);
2302 
  if (method_type == NULL)
2303 
    return FALSE;
2304 
 
2305 
  /* Pull off the context type if there is one.  */
2306 
  if (! context)
2307 
    context_type = NULL;
2308 
  else
2309 
    {
2310 
      context_type = pop_type (info);
2311 
      if (context_type == NULL)
2312 
        return FALSE;
2313 
    }
2314 
 
2315 
  /* Now the top of the stack is the class.  */
2316 
  if (! tg_fix_visibility (info, visibility))
2317 
    return FALSE;
2318 
 
2319 
  fprintf (info->f, "%s\t%s\t0;\"\tkind:p\ttype:%s\tclass:%s\n",
2320 
           method_name, info->filename, method_type, info->stack->type);
2321 
  free (method_type);
2322 
  free (method_name);
2323 
  free (context_type);
2324 
 
2325 
  return TRUE;
2326 
}
2327 
 
2328 
/* Add a static variant to a method.  */
2329 
 
2330 
static bfd_boolean
2331 
tg_class_static_method_variant (void *p,
2332 
                                const char *physname ATTRIBUTE_UNUSED,
2333 
                                enum debug_visibility visibility,
2334 
                                bfd_boolean constp, bfd_boolean volatilep)
2335 
{
2336 
  struct pr_handle *info = (struct pr_handle *) p;
2337 
  char *method_type;
2338 
  char *method_name;
2339 
 
2340 
  assert (info->stack != NULL);
2341 
  assert (info->stack->next != NULL);
2342 
  assert (info->stack->next->method != NULL);
2343 
 
2344 
  /* Put the const and volatile qualifiers on the type.  */
2345 
  if (volatilep)
2346 
    {
2347 
      if (! append_type (info, " volatile"))
2348 
        return FALSE;
2349 
    }
2350 
  if (constp)
2351 
    {
2352 
      if (! append_type (info, " const"))
2353 
        return FALSE;
2354 
    }
2355 
 
2356 
  /* Mark it as static.  */
2357 
  if (! prepend_type (info, "static "))
2358 
    return FALSE;
2359 
 
2360 
  method_name = strdup (info->stack->next->method);
2361 
  /* Stick the name of the method into its type.  */
2362 
  if (! substitute_type (info, info->stack->next->method))
2363 
    return FALSE;
2364 
 
2365 
  /* Get the type.  */
2366 
  method_type = pop_type (info);
2367 
  if (method_type == NULL)
2368 
    return FALSE;
2369 
 
2370 
  /* Now the top of the stack is the class.  */
2371 
  if (! tg_fix_visibility (info, visibility))
2372 
    return FALSE;
2373 
 
2374 
  fprintf (info->f, "%s\t%s\t0;\"\tkind:p\ttype:%s\tclass:%s\taccess:%s\n",
2375 
           method_name, info->filename, method_type, info->stack->type,
2376 
           visibility_name (visibility));
2377 
  free (method_type);
2378 
  free (method_name);
2379 
 
2380 
  return TRUE;
2381 
}
2382 
 
2383 
/* Finish up a class.  */
2384 
 
2385 
static bfd_boolean
2386 
tg_end_class_type (void *p)
2387 
{
2388 
  struct pr_handle *info = (struct pr_handle *) p;
2389 
 
2390 
  fprintf (info->f, "%s\t%s\t0;\"\tkind:c\ttype:%s", info->stack->type,
2391 
           info->filename, info->stack->flavor);
2392 
  if (info->stack->num_parents)
2393 
    {
2394 
      fprintf  (info->f, "\tinherits:%s", info->stack->parents);
2395 
      free (info->stack->parents);
2396 
    }
2397 
  fputc ('\n', info->f);
2398 
 
2399 
  return tg_end_struct_type (p);
2400 
}
2401 
 
2402 
/* Push a type on the stack using a tag name.  */
2403 
 
2404 
static bfd_boolean
2405 
tg_tag_type (void *p, const char *name, unsigned int id,
2406 
             enum debug_type_kind kind)
2407 
{
2408 
  struct pr_handle *info = (struct pr_handle *) p;
2409 
  const char *t, *tag;
2410 
  char idbuf[20];
2411 
 
2412 
  switch (kind)
2413 
    {
2414 
    case DEBUG_KIND_STRUCT:
2415 
      t = "struct ";
2416 
      break;
2417 
    case DEBUG_KIND_UNION:
2418 
      t = "union ";
2419 
      break;
2420 
    case DEBUG_KIND_ENUM:
2421 
      t = "enum ";
2422 
      break;
2423 
    case DEBUG_KIND_CLASS:
2424 
      t = "class ";
2425 
      break;
2426 
    case DEBUG_KIND_UNION_CLASS:
2427 
      t = "union class ";
2428 
      break;
2429 
    default:
2430 
      abort ();
2431 
      return FALSE;
2432 
    }
2433 
 
2434 
  if (! push_type (info, t))
2435 
    return FALSE;
2436 
  if (name != NULL)
2437 
    tag = name;
2438 
  else
2439 
    {
2440 
      sprintf (idbuf, "%%anon%u", id);
2441 
      tag = idbuf;
2442 
    }
2443 
 
2444 
  if (! append_type (info, tag))
2445 
    return FALSE;
2446 
 
2447 
  return TRUE;
2448 
}
2449 
 
2450 
/* Output a typedef.  */
2451 
 
2452 
static bfd_boolean
2453 
tg_typdef (void *p, const char *name)
2454 
{
2455 
  struct pr_handle *info = (struct pr_handle *) p;
2456 
  char *s;
2457 
 
2458 
  s = pop_type (info);
2459 
  if (s == NULL)
2460 
    return FALSE;
2461 
 
2462 
  fprintf (info->f, "%s\t%s\t0;\"\tkind:t\ttype:%s\n", name,
2463 
           info->filename, s);
2464 
 
2465 
  free (s);
2466 
 
2467 
  return TRUE;
2468 
}
2469 
 
2470 
/* Output a tag.  The tag should already be in the string on the
2471 
   stack, so all we have to do here is print it out.  */
2472 
 
2473 
static bfd_boolean
2474 
tg_tag (void *p ATTRIBUTE_UNUSED, const char *name ATTRIBUTE_UNUSED)
2475 
{
2476 
  struct pr_handle *info = (struct pr_handle *) p;
2477 
  char *t;
2478 
 
2479 
  t = pop_type (info);
2480 
  if (t == NULL)
2481 
    return FALSE;
2482 
  free (t);
2483 
 
2484 
  return TRUE;
2485 
}
2486 
 
2487 
/* Output an integer constant.  */
2488 
 
2489 
static bfd_boolean
2490 
tg_int_constant (void *p, const char *name, bfd_vma val)
2491 
{
2492 
  struct pr_handle *info = (struct pr_handle *) p;
2493 
  char ab[20];
2494 
 
2495 
  indent (info);
2496 
  print_vma (val, ab, FALSE, FALSE);
2497 
  fprintf (info->f, "%s\t%s\t0;\"\tkind:v\ttype:const int\tvalue:%s\n",
2498 
           name, info->filename, ab);
2499 
  return TRUE;
2500 
}
2501 
 
2502 
/* Output a floating point constant.  */
2503 
 
2504 
static bfd_boolean
2505 
tg_float_constant (void *p, const char *name, double val)
2506 
{
2507 
  struct pr_handle *info = (struct pr_handle *) p;
2508 
 
2509 
  indent (info);
2510 
  fprintf (info->f, "%s\t%s\t0;\"\tkind:v\ttype:const double\tvalue:%g\n",
2511 
           name, info->filename, val);
2512 
  return TRUE;
2513 
}
2514 
 
2515 
/* Output a typed constant.  */
2516 
 
2517 
static bfd_boolean
2518 
tg_typed_constant (void *p, const char *name, bfd_vma val)
2519 
{
2520 
  struct pr_handle *info = (struct pr_handle *) p;
2521 
  char *t;
2522 
  char ab[20];
2523 
 
2524 
  t = pop_type (info);
2525 
  if (t == NULL)
2526 
    return FALSE;
2527 
 
2528 
  indent (info);
2529 
  print_vma (val, ab, FALSE, FALSE);
2530 
  fprintf (info->f, "%s\t%s\t0;\"\tkind:v\ttype:const %s\tvalue:%s\n",
2531 
           name, info->filename, t, ab);
2532 
 
2533 
  free (t);
2534 
 
2535 
  return TRUE;
2536 
}
2537 
 
2538 
/* Output a variable.  */
2539 
 
2540 
static bfd_boolean
2541 
tg_variable (void *p, const char *name, enum debug_var_kind kind,
2542 
             bfd_vma val ATTRIBUTE_UNUSED)
2543 
{
2544 
  struct pr_handle *info = (struct pr_handle *) p;
2545 
  char *t, *dname, *from_class;
2546 
 
2547 
  t = pop_type (info);
2548 
  if (t == NULL)
2549 
    return FALSE;
2550 
 
2551 
  dname = NULL;
2552 
  if (info->demangler)
2553 
    dname = info->demangler (info->abfd, name, DMGL_ANSI | DMGL_PARAMS);
2554 
 
2555 
  from_class = NULL;
2556 
  if (dname != NULL)
2557 
    {
2558 
      char *sep;
2559 
      sep = strstr (dname, "::");
2560 
      if (sep)
2561 
        {
2562 
          *sep = 0;
2563 
          name = sep + 2;
2564 
          from_class = dname;
2565 
        }
2566 
      else
2567 
        /* Obscure types as vts and type_info nodes.  */
2568 
        name = dname;
2569 
    }
2570 
 
2571 
  fprintf (info->f, "%s\t%s\t0;\"\tkind:v\ttype:%s", name, info->filename, t);
2572 
 
2573 
  switch (kind)
2574 
    {
2575 
    case DEBUG_STATIC:
2576 
    case DEBUG_LOCAL_STATIC:
2577 
      fprintf (info->f, "\tfile:");
2578 
      break;
2579 
    case DEBUG_REGISTER:
2580 
      fprintf (info->f, "\tregister:");
2581 
      break;
2582 
    default:
2583 
      break;
2584 
    }
2585 
 
2586 
  if (from_class)
2587 
    fprintf (info->f, "\tclass:%s", from_class);
2588 
 
2589 
  if (dname)
2590 
    free (dname);
2591 
 
2592 
  fprintf (info->f, "\n");
2593 
 
2594 
  free (t);
2595 
 
2596 
  return TRUE;
2597 
}
2598 
 
2599 
/* Start outputting a function.  */
2600 
 
2601 
static bfd_boolean
2602 
tg_start_function (void *p, const char *name, bfd_boolean global)
2603 
{
2604 
  struct pr_handle *info = (struct pr_handle *) p;
2605 
  char *dname;
2606 
 
2607 
  if (! global)
2608 
    info->stack->flavor = "static";
2609 
  else
2610 
    info->stack->flavor = NULL;
2611 
 
2612 
  dname = NULL;
2613 
  if (info->demangler)
2614 
    dname = info->demangler (info->abfd, name, DMGL_ANSI | DMGL_PARAMS);
2615 
 
2616 
  if (! substitute_type (info, dname ? dname : name))
2617 
    return FALSE;
2618 
 
2619 
  info->stack->method = NULL;
2620 
  if (dname != NULL)
2621 
    {
2622 
      char *sep;
2623 
      sep = strstr (dname, "::");
2624 
      if (sep)
2625 
        {
2626 
          info->stack->method = dname;
2627 
          *sep = 0;
2628 
          name = sep + 2;
2629 
        }
2630 
      else
2631 
        {
2632 
          info->stack->method = "";
2633 
          name = dname;
2634 
        }
2635 
      sep = strchr (name, '(');
2636 
      if (sep)
2637 
        *sep = 0;
2638 
      /* Obscure functions as type_info function.  */
2639 
    }
2640 
 
2641 
  info->stack->parents = strdup (name);
2642 
 
2643 
  if (! info->stack->method && ! append_type (info, "("))
2644 
    return FALSE;
2645 
 
2646 
  info->parameter = 1;
2647 
 
2648 
  return TRUE;
2649 
}
2650 
 
2651 
/* Output a function parameter.  */
2652 
 
2653 
static bfd_boolean
2654 
tg_function_parameter (void *p, const char *name, enum debug_parm_kind kind,
2655 
                       bfd_vma val ATTRIBUTE_UNUSED)
2656 
{
2657 
  struct pr_handle *info = (struct pr_handle *) p;
2658 
  char *t;
2659 
 
2660 
  if (kind == DEBUG_PARM_REFERENCE
2661 
      || kind == DEBUG_PARM_REF_REG)
2662 
    {
2663 
      if (! pr_reference_type (p))
2664 
        return FALSE;
2665 
    }
2666 
 
2667 
  if (! substitute_type (info, name))
2668 
    return FALSE;
2669 
 
2670 
  t = pop_type (info);
2671 
  if (t == NULL)
2672 
    return FALSE;
2673 
 
2674 
  if (! info->stack->method)
2675 
    {
2676 
      if (info->parameter != 1 && ! append_type (info, ", "))
2677 
        return FALSE;
2678 
 
2679 
      if (kind == DEBUG_PARM_REG || kind == DEBUG_PARM_REF_REG)
2680 
        if (! append_type (info, "register "))
2681 
          return FALSE;
2682 
 
2683 
      if (! append_type (info, t))
2684 
        return FALSE;
2685 
    }
2686 
 
2687 
  free (t);
2688 
 
2689 
  ++info->parameter;
2690 
 
2691 
  return TRUE;
2692 
}
2693 
 
2694 
/* Start writing out a block.  */
2695 
 
2696 
static bfd_boolean
2697 
tg_start_block (void *p, bfd_vma addr)
2698 
{
2699 
  struct pr_handle *info = (struct pr_handle *) p;
2700 
  char ab[20], kind, *partof;
2701 
  char *t;
2702 
  bfd_boolean local;
2703 
 
2704 
  if (info->parameter > 0)
2705 
    {
2706 
      info->parameter = 0;
2707 
 
2708 
      /* Delayed name.  */
2709 
      fprintf (info->f, "%s\t%s\t", info->stack->parents, info->filename);
2710 
      free (info->stack->parents);
2711 
 
2712 
      print_vma (addr, ab, TRUE, TRUE);
2713 
      translate_addresses (info->abfd, ab, info->f, info->syms);
2714 
      local = info->stack->flavor != NULL;
2715 
      if (info->stack->method && *info->stack->method)
2716 
        {
2717 
          kind = 'm';
2718 
          partof = (char *) info->stack->method;
2719 
        }
2720 
      else
2721 
        {
2722 
          kind = 'f';
2723 
          partof = NULL;
2724 
          if (! info->stack->method && ! append_type (info, ")"))
2725 
            return FALSE;
2726 
        }
2727 
      t = pop_type (info);
2728 
      if (t == NULL)
2729 
        return FALSE;
2730 
      fprintf (info->f, ";\"\tkind:%c\ttype:%s", kind, t);
2731 
      if (local)
2732 
        fputs ("\tfile:", info->f);
2733 
      if (partof)
2734 
        {
2735 
          fprintf (info->f, "\tclass:%s", partof);
2736 
          free (partof);
2737 
        }
2738 
      fputc ('\n', info->f);
2739 
    }
2740 
 
2741 
  return TRUE;
2742 
}
2743 
 
2744 
/* Write out line number information.  */
2745 
 
2746 
static bfd_boolean
2747 
tg_lineno (void *p ATTRIBUTE_UNUSED, const char *filename ATTRIBUTE_UNUSED,
2748 
           unsigned long lineno ATTRIBUTE_UNUSED,
2749 
           bfd_vma addr ATTRIBUTE_UNUSED)
2750 
{
2751 
  return TRUE;
2752 
}
2753 
 
2754 
/* Finish writing out a block.  */
2755 
 
2756 
static bfd_boolean
2757 
tg_end_block (void *p ATTRIBUTE_UNUSED, bfd_vma addr ATTRIBUTE_UNUSED)
2758 
{
2759 
  return TRUE;
2760 
}
2761 
 
2762 
/* Convert the visibility value into a human readable name.  */
2763 
 
2764 
static const char *
2765 
visibility_name (enum debug_visibility visibility)
2766 
{
2767 
  const char *s;
2768 
 
2769 
  switch (visibility)
2770 
    {
2771 
    case DEBUG_VISIBILITY_PUBLIC:
2772 
      s = "public";
2773 
      break;
2774 
    case DEBUG_VISIBILITY_PRIVATE:
2775 
      s = "private";
2776 
      break;
2777 
    case DEBUG_VISIBILITY_PROTECTED:
2778 
      s = "protected";
2779 
      break;
2780 
    case DEBUG_VISIBILITY_IGNORE:
2781 
      s = "/* ignore */";
2782 
      break;
2783 
    default:
2784 
      abort ();
2785 
      return FALSE;
2786 
    }
2787 
  return s;
2788 
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.