gdb/ada-valprint.c

   1 /* Support for printing Ada values for GDB, the GNU debugger.
   2
   3    Copyright (C) 1986-2014 Free Software Foundation, Inc.
   4
   5    This file is part of GDB.
   6
   7    This program is free software; you can redistribute it and/or modify
   8    it under the terms of the GNU General Public License as published by
   9    the Free Software Foundation; either version 3 of the License, or
  10    (at your option) any later version.
  11
  12    This program is distributed in the hope that it will be useful,
  13    but WITHOUT ANY WARRANTY; without even the implied warranty of
  14    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15    GNU General Public License for more details.
  16
  17    You should have received a copy of the GNU General Public License
  18    along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
  19
  20 #include "defs.h"
  21 #include <ctype.h>
  22 #include <string.h>
  23 #include "symtab.h"
  24 #include "gdbtypes.h"
  25 #include "expression.h"
  26 #include "value.h"
  27 #include "demangle.h"
  28 #include "valprint.h"
  29 #include "language.h"
  30 #include "annotate.h"
  31 #include "ada-lang.h"
  32 #include "c-lang.h"
  33 #include "infcall.h"
  34 #include "exceptions.h"
  35 #include "objfiles.h"
  36
  37 static int print_field_values (struct type *, const gdb_byte *,
  38                                int,
  39                                struct ui_file *, int,
  40                                const struct value *,
  41                                const struct value_print_options *,
  42                                int, struct type *, int);
  43 \f
  44
  45 /* Make TYPE unsigned if its range of values includes no negatives.  */
  46 static void
  47 adjust_type_signedness (struct type *type)
  48 {
  49   if (type != NULL && TYPE_CODE (type) == TYPE_CODE_RANGE
  50       && TYPE_LOW_BOUND (type) >= 0)
  51     TYPE_UNSIGNED (type) = 1;
  52 }
  53
  54 /* Assuming TYPE is a simple array type, prints its lower bound on STREAM,
  55    if non-standard (i.e., other than 1 for numbers, other than lower bound
  56    of index type for enumerated type).  Returns 1 if something printed,
  57    otherwise 0.  */
  58
  59 static int
  60 print_optional_low_bound (struct ui_file *stream, struct type *type,
  61                           const struct value_print_options *options)
  62 {
  63   struct type *index_type;
  64   LONGEST low_bound;
  65   LONGEST high_bound;
  66
  67   if (options->print_array_indexes)
  68     return 0;
  69
  70   if (!get_array_bounds (type, &low_bound, &high_bound))
  71     return 0;
  72
  73   /* If this is an empty array, then don't print the lower bound.
  74      That would be confusing, because we would print the lower bound,
  75      followed by... nothing!  */
  76   if (low_bound > high_bound)
  77     return 0;
  78
  79   index_type = TYPE_INDEX_TYPE (type);
  80
  81   if (TYPE_CODE (index_type) == TYPE_CODE_RANGE)
  82     {
  83       /* We need to know what the base type is, in order to do the
  84          appropriate check below.  Otherwise, if this is a subrange
  85          of an enumerated type, where the underlying value of the
  86          first element is typically 0, we might test the low bound
  87          against the wrong value.  */
  88       index_type = TYPE_TARGET_TYPE (index_type);
  89     }
  90
  91   switch (TYPE_CODE (index_type))
  92     {
  93     case TYPE_CODE_BOOL:
  94       if (low_bound == 0)
  95         return 0;
  96       break;
  97     case TYPE_CODE_ENUM:
  98       if (low_bound == TYPE_FIELD_ENUMVAL (index_type, 0))
  99         return 0;
 100       break;
 101     case TYPE_CODE_UNDEF:
 102       index_type = NULL;
 103       /* FALL THROUGH */
 104     default:
 105       if (low_bound == 1)
 106         return 0;
 107       break;
 108     }
 109
 110   ada_print_scalar (index_type, low_bound, stream);
 111   fprintf_filtered (stream, " => ");
 112   return 1;
 113 }
 114
 115 /*  Version of val_print_array_elements for GNAT-style packed arrays.
 116     Prints elements of packed array of type TYPE at bit offset
 117     BITOFFSET from VALADDR on STREAM.  Formats according to OPTIONS and
 118     separates with commas.  RECURSE is the recursion (nesting) level.
 119     TYPE must have been decoded (as by ada_coerce_to_simple_array).  */
 120
 121 static void
 122 val_print_packed_array_elements (struct type *type, const gdb_byte *valaddr,
 123                                  int offset,
 124                                  int bitoffset, struct ui_file *stream,
 125                                  int recurse,
 126                                  const struct value *val,
 127                                  const struct value_print_options *options)
 128 {
 129   unsigned int i;
 130   unsigned int things_printed = 0;
 131   unsigned len;
 132   struct type *elttype, *index_type;
 133   unsigned eltlen;
 134   unsigned long bitsize = TYPE_FIELD_BITSIZE (type, 0);
 135   struct value *mark = value_mark ();
 136   LONGEST low = 0;
 137
 138   elttype = TYPE_TARGET_TYPE (type);
 139   eltlen = TYPE_LENGTH (check_typedef (elttype));
 140   index_type = TYPE_INDEX_TYPE (type);
 141
 142   {
 143     LONGEST high;
 144
 145     if (get_discrete_bounds (index_type, &low, &high) < 0)
 146       len = 1;
 147     else
 148       len = high - low + 1;
 149   }
 150
 151   i = 0;
 152   annotate_array_section_begin (i, elttype);
 153
 154   while (i < len && things_printed < options->print_max)
 155     {
 156       struct value *v0, *v1;
 157       int i0;
 158
 159       if (i != 0)
 160         {
 161           if (options->prettyformat_arrays)
 162             {
 163               fprintf_filtered (stream, ",\n");
 164               print_spaces_filtered (2 + 2 * recurse, stream);
 165             }
 166           else
 167             {
 168               fprintf_filtered (stream, ", ");
 169             }
 170         }
 171       wrap_here (n_spaces (2 + 2 * recurse));
 172       maybe_print_array_index (index_type, i + low, stream, options);
 173
 174       i0 = i;
 175       v0 = ada_value_primitive_packed_val (NULL, valaddr + offset,
 176                                            (i0 * bitsize) / HOST_CHAR_BIT,
 177                                            (i0 * bitsize) % HOST_CHAR_BIT,
 178                                            bitsize, elttype);
 179       while (1)
 180         {
 181           i += 1;
 182           if (i >= len)
 183             break;
 184           v1 = ada_value_primitive_packed_val (NULL, valaddr + offset,
 185                                                (i * bitsize) / HOST_CHAR_BIT,
 186                                                (i * bitsize) % HOST_CHAR_BIT,
 187                                                bitsize, elttype);
 188           if (!value_available_contents_eq (v0, value_embedded_offset (v0),
 189                                             v1, value_embedded_offset (v1),
 190                                             eltlen))
 191             break;
 192         }
 193
 194       if (i - i0 > options->repeat_count_threshold)
 195         {
 196           struct value_print_options opts = *options;
 197
 198           opts.deref_ref = 0;
 199           val_print (elttype, value_contents_for_printing (v0),
 200                      value_embedded_offset (v0), 0, stream,
 201                      recurse + 1, v0, &opts, current_language);
 202           annotate_elt_rep (i - i0);
 203           fprintf_filtered (stream, _(" <repeats %u times>"), i - i0);
 204           annotate_elt_rep_end ();
 205
 206         }
 207       else
 208         {
 209           int j;
 210           struct value_print_options opts = *options;
 211
 212           opts.deref_ref = 0;
 213           for (j = i0; j < i; j += 1)
 214             {
 215               if (j > i0)
 216                 {
 217                   if (options->prettyformat_arrays)
 218                     {
 219                       fprintf_filtered (stream, ",\n");
 220                       print_spaces_filtered (2 + 2 * recurse, stream);
 221                     }
 222                   else
 223                     {
 224                       fprintf_filtered (stream, ", ");
 225                     }
 226                   wrap_here (n_spaces (2 + 2 * recurse));
 227                   maybe_print_array_index (index_type, j + low,
 228                                            stream, options);
 229                 }
 230               val_print (elttype, value_contents_for_printing (v0),
 231                          value_embedded_offset (v0), 0, stream,
 232                          recurse + 1, v0, &opts, current_language);
 233               annotate_elt ();
 234             }
 235         }
 236       things_printed += i - i0;
 237     }
 238   annotate_array_section_end ();
 239   if (i < len)
 240     {
 241       fprintf_filtered (stream, "...");
 242     }
 243
 244   value_free_to_mark (mark);
 245 }
 246
 247 static struct type *
 248 printable_val_type (struct type *type, const gdb_byte *valaddr)
 249 {
 250   return ada_to_fixed_type (ada_aligned_type (type), valaddr, 0, NULL, 1);
 251 }
 252
 253 /* Print the character C on STREAM as part of the contents of a literal
 254    string whose delimiter is QUOTER.  TYPE_LEN is the length in bytes
 255    of the character.  */
 256
 257 void
 258 ada_emit_char (int c, struct type *type, struct ui_file *stream,
 259                int quoter, int type_len)
 260 {
 261   /* If this character fits in the normal ASCII range, and is
 262      a printable character, then print the character as if it was
 263      an ASCII character, even if this is a wide character.
 264      The UCHAR_MAX check is necessary because the isascii function
 265      requires that its argument have a value of an unsigned char,
 266      or EOF (EOF is obviously not printable).  */
 267   if (c <= UCHAR_MAX && isascii (c) && isprint (c))
 268     {
 269       if (c == quoter && c == '"')
 270         fprintf_filtered (stream, "\"\"");
 271       else
 272         fprintf_filtered (stream, "%c", c);
 273     }
 274   else
 275     fprintf_filtered (stream, "[\"%0*x\"]", type_len * 2, c);
 276 }
 277
 278 /* Character #I of STRING, given that TYPE_LEN is the size in bytes
 279    of a character.  */
 280
 281 static int
 282 char_at (const gdb_byte *string, int i, int type_len,
 283          enum bfd_endian byte_order)
 284 {
 285   if (type_len == 1)
 286     return string[i];
 287   else
 288     return (int) extract_unsigned_integer (string + type_len * i,
 289                                            type_len, byte_order);
 290 }
 291
 292 /* Wrapper around memcpy to make it legal argument to ui_file_put.  */
 293 static void
 294 ui_memcpy (void *dest, const char *buffer, long len)
 295 {
 296   memcpy (dest, buffer, (size_t) len);
 297   ((char *) dest)[len] = '\0';
 298 }
 299
 300 /* Print a floating-point value of type TYPE, pointed to in GDB by
 301    VALADDR, on STREAM.  Use Ada formatting conventions: there must be
 302    a decimal point, and at least one digit before and after the
 303    point.  We use GNAT format for NaNs and infinities.  */
 304 static void
 305 ada_print_floating (const gdb_byte *valaddr, struct type *type,
 306                     struct ui_file *stream)
 307 {
 308   char buffer[64];
 309   char *s, *result;
 310   struct ui_file *tmp_stream = mem_fileopen ();
 311   struct cleanup *cleanups = make_cleanup_ui_file_delete (tmp_stream);
 312
 313   print_floating (valaddr, type, tmp_stream);
 314   ui_file_put (tmp_stream, ui_memcpy, buffer);
 315   do_cleanups (cleanups);
 316
 317   result = buffer;
 318
 319   /* Modify for Ada rules.  */
 320
 321   s = strstr (result, "inf");
 322   if (s == NULL)
 323     s = strstr (result, "Inf");
 324   if (s == NULL)
 325     s = strstr (result, "INF");
 326   if (s != NULL)
 327     strcpy (s, "Inf");
 328
 329   if (s == NULL)
 330     {
 331       s = strstr (result, "nan");
 332       if (s == NULL)
 333         s = strstr (result, "NaN");
 334       if (s == NULL)
 335         s = strstr (result, "Nan");
 336       if (s != NULL)
 337         {
 338           s[0] = s[2] = 'N';
 339           if (result[0] == '-')
 340             result += 1;
 341         }
 342     }
 343
 344   if (s == NULL && strchr (result, '.') == NULL)
 345     {
 346       s = strchr (result, 'e');
 347       if (s == NULL)
 348         fprintf_filtered (stream, "%s.0", result);
 349       else
 350         fprintf_filtered (stream, "%.*s.0%s", (int) (s-result), result, s);
 351       return;
 352     }
 353   fprintf_filtered (stream, "%s", result);
 354 }
 355
 356 void
 357 ada_printchar (int c, struct type *type, struct ui_file *stream)
 358 {
 359   fputs_filtered ("'", stream);
 360   ada_emit_char (c, type, stream, '\'', TYPE_LENGTH (type));
 361   fputs_filtered ("'", stream);
 362 }
 363
 364 /* [From print_type_scalar in typeprint.c].   Print VAL on STREAM in a
 365    form appropriate for TYPE, if non-NULL.  If TYPE is NULL, print VAL
 366    like a default signed integer.  */
 367
 368 void
 369 ada_print_scalar (struct type *type, LONGEST val, struct ui_file *stream)
 370 {
 371   unsigned int i;
 372   unsigned len;
 373
 374   if (!type)
 375     {
 376       print_longest (stream, 'd', 0, val);
 377       return;
 378     }
 379
 380   type = ada_check_typedef (type);
 381
 382   switch (TYPE_CODE (type))
 383     {
 384
 385     case TYPE_CODE_ENUM:
 386       len = TYPE_NFIELDS (type);
 387       for (i = 0; i < len; i++)
 388         {
 389           if (TYPE_FIELD_ENUMVAL (type, i) == val)
 390             {
 391               break;
 392             }
 393         }
 394       if (i < len)
 395         {
 396           fputs_filtered (ada_enum_name (TYPE_FIELD_NAME (type, i)), stream);
 397         }
 398       else
 399         {
 400           print_longest (stream, 'd', 0, val);
 401         }
 402       break;
 403
 404     case TYPE_CODE_INT:
 405       print_longest (stream, TYPE_UNSIGNED (type) ? 'u' : 'd', 0, val);
 406       break;
 407
 408     case TYPE_CODE_CHAR:
 409       LA_PRINT_CHAR (val, type, stream);
 410       break;
 411
 412     case TYPE_CODE_BOOL:
 413       fprintf_filtered (stream, val ? "true" : "false");
 414       break;
 415
 416     case TYPE_CODE_RANGE:
 417       ada_print_scalar (TYPE_TARGET_TYPE (type), val, stream);
 418       return;
 419
 420     case TYPE_CODE_UNDEF:
 421     case TYPE_CODE_PTR:
 422     case TYPE_CODE_ARRAY:
 423     case TYPE_CODE_STRUCT:
 424     case TYPE_CODE_UNION:
 425     case TYPE_CODE_FUNC:
 426     case TYPE_CODE_FLT:
 427     case TYPE_CODE_VOID:
 428     case TYPE_CODE_SET:
 429     case TYPE_CODE_STRING:
 430     case TYPE_CODE_ERROR:
 431     case TYPE_CODE_MEMBERPTR:
 432     case TYPE_CODE_METHODPTR:
 433     case TYPE_CODE_METHOD:
 434     case TYPE_CODE_REF:
 435       warning (_("internal error: unhandled type in ada_print_scalar"));
 436       break;
 437
 438     default:
 439       error (_("Invalid type code in symbol table."));
 440     }
 441   gdb_flush (stream);
 442 }
 443
 444 /* Print the character string STRING, printing at most LENGTH characters.
 445    Printing stops early if the number hits print_max; repeat counts
 446    are printed as appropriate.  Print ellipses at the end if we
 447    had to stop before printing LENGTH characters, or if FORCE_ELLIPSES.
 448    TYPE_LEN is the length (1 or 2) of the character type.  */
 449
 450 static void
 451 printstr (struct ui_file *stream, struct type *elttype, const gdb_byte *string,
 452           unsigned int length, int force_ellipses, int type_len,
 453           const struct value_print_options *options)
 454 {
 455   enum bfd_endian byte_order = gdbarch_byte_order (get_type_arch (elttype));
 456   unsigned int i;
 457   unsigned int things_printed = 0;
 458   int in_quotes = 0;
 459   int need_comma = 0;
 460
 461   if (length == 0)
 462     {
 463       fputs_filtered ("\"\"", stream);
 464       return;
 465     }
 466
 467   for (i = 0; i < length && things_printed < options->print_max; i += 1)
 468     {
 469       /* Position of the character we are examining
 470          to see whether it is repeated.  */
 471       unsigned int rep1;
 472       /* Number of repetitions we have detected so far.  */
 473       unsigned int reps;
 474
 475       QUIT;
 476
 477       if (need_comma)
 478         {
 479           fputs_filtered (", ", stream);
 480           need_comma = 0;
 481         }
 482
 483       rep1 = i + 1;
 484       reps = 1;
 485       while (rep1 < length
 486              && char_at (string, rep1, type_len, byte_order)
 487                 == char_at (string, i, type_len, byte_order))
 488         {
 489           rep1 += 1;
 490           reps += 1;
 491         }
 492
 493       if (reps > options->repeat_count_threshold)
 494         {
 495           if (in_quotes)
 496             {
 497               fputs_filtered ("\", ", stream);
 498               in_quotes = 0;
 499             }
 500           fputs_filtered ("'", stream);
 501           ada_emit_char (char_at (string, i, type_len, byte_order),
 502                          elttype, stream, '\'', type_len);
 503           fputs_filtered ("'", stream);
 504           fprintf_filtered (stream, _(" <repeats %u times>"), reps);
 505           i = rep1 - 1;
 506           things_printed += options->repeat_count_threshold;
 507           need_comma = 1;
 508         }
 509       else
 510         {
 511           if (!in_quotes)
 512             {
 513               fputs_filtered ("\"", stream);
 514               in_quotes = 1;
 515             }
 516           ada_emit_char (char_at (string, i, type_len, byte_order),
 517                          elttype, stream, '"', type_len);
 518           things_printed += 1;
 519         }
 520     }
 521
 522   /* Terminate the quotes if necessary.  */
 523   if (in_quotes)
 524     fputs_filtered ("\"", stream);
 525
 526   if (force_ellipses || i < length)
 527     fputs_filtered ("...", stream);
 528 }
 529
 530 void
 531 ada_printstr (struct ui_file *stream, struct type *type,
 532               const gdb_byte *string, unsigned int length,
 533               const char *encoding, int force_ellipses,
 534               const struct value_print_options *options)
 535 {
 536   printstr (stream, type, string, length, force_ellipses, TYPE_LENGTH (type),
 537             options);
 538 }
 539
 540
 541 /* Assuming TYPE is a simple array, print the value of this array located
 542    at VALADDR + OFFSET.  See ada_val_print for a description of the various
 543    parameters of this function; they are identical.  */
 544
 545 static void
 546 ada_val_print_array (struct type *type, const gdb_byte *valaddr,
 547                      int offset, CORE_ADDR address,
 548                      struct ui_file *stream, int recurse,
 549                      const struct value *val,
 550                      const struct value_print_options *options)
 551 {
 552   /* For an array of chars, print with string syntax.  */
 553   if (ada_is_string_type (type)
 554       && (options->format == 0 || options->format == 's'))
 555     {
 556       enum bfd_endian byte_order = gdbarch_byte_order (get_type_arch (type));
 557       struct type *elttype = TYPE_TARGET_TYPE (type);
 558       unsigned int eltlen;
 559       unsigned int len;
 560
 561       /* We know that ELTTYPE cannot possibly be null, because we found
 562          that TYPE is a string-like type.  Similarly, the size of ELTTYPE
 563          should also be non-null, since it's a character-like type.  */
 564       gdb_assert (elttype != NULL);
 565       gdb_assert (TYPE_LENGTH (elttype) != 0);
 566
 567       eltlen = TYPE_LENGTH (elttype);
 568       len = TYPE_LENGTH (type) / eltlen;
 569
 570       if (options->prettyformat_arrays)
 571         print_spaces_filtered (2 + 2 * recurse, stream);
 572
 573       /* If requested, look for the first null char and only print
 574          elements up to it.  */
 575       if (options->stop_print_at_null)
 576         {
 577           int temp_len;
 578
 579           /* Look for a NULL char.  */
 580           for (temp_len = 0;
 581                (temp_len < len
 582                 && temp_len < options->print_max
 583                 && char_at (valaddr + offset,
 584                             temp_len, eltlen, byte_order) != 0);
 585                temp_len += 1);
 586           len = temp_len;
 587         }
 588
 589       printstr (stream, elttype, valaddr + offset, len, 0, eltlen, options);
 590     }
 591   else
 592     {
 593       fprintf_filtered (stream, "(");
 594       print_optional_low_bound (stream, type, options);
 595       if (TYPE_FIELD_BITSIZE (type, 0) > 0)
 596         val_print_packed_array_elements (type, valaddr, offset,
 597                                          0, stream, recurse, val, options);
 598       else
 599         val_print_array_elements (type, valaddr, offset, address,
 600                                   stream, recurse, val, options, 0);
 601       fprintf_filtered (stream, ")");
 602     }
 603 }
 604
 605 static int
 606 print_variant_part (struct type *type, int field_num,
 607                     const gdb_byte *valaddr, int offset,
 608                     struct ui_file *stream, int recurse,
 609                     const struct value *val,
 610                     const struct value_print_options *options,
 611                     int comma_needed,
 612                     struct type *outer_type, int outer_offset)
 613 {
 614   struct type *var_type = TYPE_FIELD_TYPE (type, field_num);
 615   int which = ada_which_variant_applies (var_type, outer_type,
 616                                          valaddr + outer_offset);
 617
 618   if (which < 0)
 619     return 0;
 620   else
 621     return print_field_values
 622       (TYPE_FIELD_TYPE (var_type, which),
 623        valaddr,
 624        offset + TYPE_FIELD_BITPOS (type, field_num) / HOST_CHAR_BIT
 625        + TYPE_FIELD_BITPOS (var_type, which) / HOST_CHAR_BIT,
 626        stream, recurse, val, options,
 627        comma_needed, outer_type, outer_offset);
 628 }
 629
 630 /* Print out fields of value at VALADDR + OFFSET having structure type TYPE.
 631
 632    TYPE, VALADDR, OFFSET, STREAM, RECURSE, and OPTIONS have the same
 633    meanings as in ada_print_value and ada_val_print.
 634
 635    OUTER_TYPE and OUTER_OFFSET give type and address of enclosing
 636    record (used to get discriminant values when printing variant
 637    parts).
 638
 639    COMMA_NEEDED is 1 if fields have been printed at the current recursion
 640    level, so that a comma is needed before any field printed by this
 641    call.
 642
 643    Returns 1 if COMMA_NEEDED or any fields were printed.  */
 644
 645 static int
 646 print_field_values (struct type *type, const gdb_byte *valaddr,
 647                     int offset, struct ui_file *stream, int recurse,
 648                     const struct value *val,
 649                     const struct value_print_options *options,
 650                     int comma_needed,
 651                     struct type *outer_type, int outer_offset)
 652 {
 653   int i, len;
 654
 655   len = TYPE_NFIELDS (type);
 656
 657   for (i = 0; i < len; i += 1)
 658     {
 659       if (ada_is_ignored_field (type, i))
 660         continue;
 661
 662       if (ada_is_wrapper_field (type, i))
 663         {
 664           comma_needed =
 665             print_field_values (TYPE_FIELD_TYPE (type, i),
 666                                 valaddr,
 667                                 (offset
 668                                  + TYPE_FIELD_BITPOS (type, i) / HOST_CHAR_BIT),
 669                                 stream, recurse, val, options,
 670                                 comma_needed, type, offset);
 671           continue;
 672         }
 673       else if (ada_is_variant_part (type, i))
 674         {
 675           comma_needed =
 676             print_variant_part (type, i, valaddr,
 677                                 offset, stream, recurse, val,
 678                                 options, comma_needed,
 679                                 outer_type, outer_offset);
 680           continue;
 681         }
 682
 683       if (comma_needed)
 684         fprintf_filtered (stream, ", ");
 685       comma_needed = 1;
 686
 687       if (options->prettyformat)
 688         {
 689           fprintf_filtered (stream, "\n");
 690           print_spaces_filtered (2 + 2 * recurse, stream);
 691         }
 692       else
 693         {
 694           wrap_here (n_spaces (2 + 2 * recurse));
 695         }
 696
 697       annotate_field_begin (TYPE_FIELD_TYPE (type, i));
 698       fprintf_filtered (stream, "%.*s",
 699                         ada_name_prefix_len (TYPE_FIELD_NAME (type, i)),
 700                         TYPE_FIELD_NAME (type, i));
 701       annotate_field_name_end ();
 702       fputs_filtered (" => ", stream);
 703       annotate_field_value ();
 704
 705       if (TYPE_FIELD_PACKED (type, i))
 706         {
 707           struct value *v;
 708
 709           /* Bitfields require special handling, especially due to byte
 710              order problems.  */
 711           if (HAVE_CPLUS_STRUCT (type) && TYPE_FIELD_IGNORE (type, i))
 712             {
 713               fputs_filtered (_("<optimized out or zero length>"), stream);
 714             }
 715           else
 716             {
 717               int bit_pos = TYPE_FIELD_BITPOS (type, i);
 718               int bit_size = TYPE_FIELD_BITSIZE (type, i);
 719               struct value_print_options opts;
 720
 721               adjust_type_signedness (TYPE_FIELD_TYPE (type, i));
 722               v = ada_value_primitive_packed_val
 723                     (NULL, valaddr,
 724                      offset + bit_pos / HOST_CHAR_BIT,
 725                      bit_pos % HOST_CHAR_BIT,
 726                      bit_size, TYPE_FIELD_TYPE (type, i));
 727               opts = *options;
 728               opts.deref_ref = 0;
 729               val_print (TYPE_FIELD_TYPE (type, i),
 730                          value_contents_for_printing (v),
 731                          value_embedded_offset (v), 0,
 732                          stream, recurse + 1, v,
 733                          &opts, current_language);
 734             }
 735         }
 736       else
 737         {
 738           struct value_print_options opts = *options;
 739
 740           opts.deref_ref = 0;
 741           ada_val_print (TYPE_FIELD_TYPE (type, i),
 742                          valaddr,
 743                          (offset
 744                           + TYPE_FIELD_BITPOS (type, i) / HOST_CHAR_BIT),
 745                          0, stream, recurse + 1, val, &opts);
 746         }
 747       annotate_field_end ();
 748     }
 749
 750   return comma_needed;
 751 }
 752
 753 static void
 754 print_record (struct type *type, const gdb_byte *valaddr,
 755               int offset,
 756               struct ui_file *stream, int recurse,
 757               const struct value *val,
 758               const struct value_print_options *options)
 759 {
 760   type = ada_check_typedef (type);
 761
 762   fprintf_filtered (stream, "(");
 763
 764   if (print_field_values (type, valaddr, offset,
 765                           stream, recurse, val, options,
 766                           0, type, offset) != 0 && options->prettyformat)
 767     {
 768       fprintf_filtered (stream, "\n");
 769       print_spaces_filtered (2 * recurse, stream);
 770     }
 771
 772   fprintf_filtered (stream, ")");
 773 }
 774
 775 /* See the comment on ada_val_print.  This function differs in that it
 776    does not catch evaluation errors (leaving that to ada_val_print).  */
 777
 778 static void
 779 ada_val_print_1 (struct type *type, const gdb_byte *valaddr,
 780                  int offset, CORE_ADDR address,
 781                  struct ui_file *stream, int recurse,
 782                  const struct value *original_value,
 783                  const struct value_print_options *options,
 784                  const struct language_defn *language)
 785 {
 786   int i;
 787   struct type *elttype;
 788   int offset_aligned;
 789
 790   type = ada_check_typedef (type);
 791
 792   if (ada_is_array_descriptor_type (type)
 793       || (ada_is_constrained_packed_array_type (type)
 794           && TYPE_CODE (type) != TYPE_CODE_PTR))
 795     {
 796       struct value *mark = value_mark ();
 797       struct value *val;
 798
 799       val = value_from_contents_and_address (type, valaddr + offset, address);
 800       /* If this is a reference, coerce it now.  This helps taking care
 801          of the case where ADDRESS is meaningless because original_value
 802          was not an lval.  */
 803       val = coerce_ref (val);
 804       if (TYPE_CODE (type) == TYPE_CODE_TYPEDEF)  /* array access type.  */
 805         val = ada_coerce_to_simple_array_ptr (val);
 806       else
 807         val = ada_coerce_to_simple_array (val);
 808       if (val == NULL)
 809         {
 810           gdb_assert (TYPE_CODE (type) == TYPE_CODE_TYPEDEF);
 811           fprintf_filtered (stream, "0x0");
 812         }
 813       else
 814         val_print (value_type (val), value_contents_for_printing (val),
 815                    value_embedded_offset (val), value_address (val),
 816                    stream, recurse, val, options, language);
 817       value_free_to_mark (mark);
 818       return;
 819     }
 820
 821   offset_aligned = offset + ada_aligned_value_addr (type, valaddr) - valaddr;
 822   type = printable_val_type (type, valaddr + offset_aligned);
 823
 824   switch (TYPE_CODE (type))
 825     {
 826     default:
 827       val_print (type, valaddr, offset, address, stream, recurse,
 828                  original_value, options, language_def (language_c));
 829       break;
 830
 831     case TYPE_CODE_PTR:
 832       {
 833         val_print (type, valaddr, offset, address, stream, recurse,
 834                    original_value, options, language_def (language_c));
 835
 836         if (ada_is_tag_type (type))
 837           {
 838             struct value *val =
 839               value_from_contents_and_address (type,
 840                                                valaddr + offset_aligned,
 841                                                address + offset_aligned);
 842             const char *name = ada_tag_name (val);
 843
 844             if (name != NULL)
 845               fprintf_filtered (stream, " (%s)", name);
 846           }
 847         return;
 848       }
 849
 850     case TYPE_CODE_INT:
 851     case TYPE_CODE_RANGE:
 852       if (ada_is_fixed_point_type (type))
 853         {
 854           LONGEST v = unpack_long (type, valaddr + offset_aligned);
 855
 856           fprintf_filtered (stream, TYPE_LENGTH (type) < 4 ? "%.11g" : "%.17g",
 857                             (double) ada_fixed_to_float (type, v));
 858           return;
 859         }
 860       else if (TYPE_CODE (type) == TYPE_CODE_RANGE)
 861         {
 862           struct type *target_type = TYPE_TARGET_TYPE (type);
 863
 864           if (TYPE_LENGTH (type) != TYPE_LENGTH (target_type))
 865             {
 866               /* Obscure case of range type that has different length from
 867                  its base type.  Perform a conversion, or we will get a
 868                  nonsense value.  Actually, we could use the same
 869                  code regardless of lengths; I'm just avoiding a cast.  */
 870               struct value *v1
 871                 = value_from_contents_and_address (type, valaddr + offset, 0);
 872               struct value *v = value_cast (target_type, v1);
 873
 874               val_print (target_type, value_contents_for_printing (v),
 875                          value_embedded_offset (v), 0, stream,
 876                          recurse + 1, v, options, language);
 877             }
 878           else
 879             val_print (TYPE_TARGET_TYPE (type), valaddr, offset,
 880                        address, stream, recurse, original_value,
 881                        options, language);
 882           return;
 883         }
 884       else
 885         {
 886           int format = (options->format ? options->format
 887                         : options->output_format);
 888
 889           if (format)
 890             {
 891               struct value_print_options opts = *options;
 892
 893               opts.format = format;
 894               val_print_scalar_formatted (type, valaddr, offset_aligned,
 895                                           original_value, &opts, 0, stream);
 896             }
 897           else if (ada_is_system_address_type (type))
 898             {
 899               /* FIXME: We want to print System.Address variables using
 900                  the same format as for any access type.  But for some
 901                  reason GNAT encodes the System.Address type as an int,
 902                  so we have to work-around this deficiency by handling
 903                  System.Address values as a special case.  */
 904
 905               struct gdbarch *gdbarch = get_type_arch (type);
 906               struct type *ptr_type = builtin_type (gdbarch)->builtin_data_ptr;
 907               CORE_ADDR addr = extract_typed_address (valaddr + offset_aligned,
 908                                                       ptr_type);
 909
 910               fprintf_filtered (stream, "(");
 911               type_print (type, "", stream, -1);
 912               fprintf_filtered (stream, ") ");
 913               fputs_filtered (paddress (gdbarch, addr), stream);
 914             }
 915           else
 916             {
 917               val_print_type_code_int (type, valaddr + offset_aligned, stream);
 918               if (ada_is_character_type (type))
 919                 {
 920                   LONGEST c;
 921
 922                   fputs_filtered (" ", stream);
 923                   c = unpack_long (type, valaddr + offset_aligned);
 924                   ada_printchar (c, type, stream);
 925                 }
 926             }
 927           return;
 928         }
 929
 930     case TYPE_CODE_ENUM:
 931       {
 932         unsigned int len;
 933         LONGEST val;
 934
 935         if (options->format)
 936           {
 937             val_print_scalar_formatted (type, valaddr, offset_aligned,
 938                                         original_value, options, 0, stream);
 939             break;
 940           }
 941         len = TYPE_NFIELDS (type);
 942         val = unpack_long (type, valaddr + offset_aligned);
 943         for (i = 0; i < len; i++)
 944           {
 945             QUIT;
 946             if (val == TYPE_FIELD_ENUMVAL (type, i))
 947               {
 948                 break;
 949               }
 950           }
 951         if (i < len)
 952           {
 953             const char *name = ada_enum_name (TYPE_FIELD_NAME (type, i));
 954
 955             if (name[0] == '\'')
 956               fprintf_filtered (stream, "%ld %s", (long) val, name);
 957             else
 958               fputs_filtered (name, stream);
 959           }
 960         else
 961           {
 962             print_longest (stream, 'd', 0, val);
 963           }
 964         break;
 965       }
 966
 967     case TYPE_CODE_FLT:
 968       if (options->format)
 969         {
 970           val_print (type, valaddr, offset, address, stream, recurse,
 971                      original_value, options, language_def (language_c));
 972           return;
 973         }
 974       else
 975         ada_print_floating (valaddr + offset, type, stream);
 976       break;
 977
 978     case TYPE_CODE_UNION:
 979     case TYPE_CODE_STRUCT:
 980       if (ada_is_bogus_array_descriptor (type))
 981         {
 982           fprintf_filtered (stream, "(...?)");
 983           return;
 984         }
 985       else
 986         {
 987           print_record (type, valaddr, offset_aligned,
 988                         stream, recurse, original_value, options);
 989           return;
 990         }
 991
 992     case TYPE_CODE_ARRAY:
 993       ada_val_print_array (type, valaddr, offset_aligned,
 994                            address, stream, recurse, original_value,
 995                            options);
 996       return;
 997
 998     case TYPE_CODE_REF:
 999       /* For references, the debugger is expected to print the value as
1000          an address if DEREF_REF is null.  But printing an address in place
1001          of the object value would be confusing to an Ada programmer.
1002          So, for Ada values, we print the actual dereferenced value
1003          regardless.  */
1004       elttype = check_typedef (TYPE_TARGET_TYPE (type));
1005
1006       if (TYPE_CODE (elttype) != TYPE_CODE_UNDEF)
1007         {
1008           CORE_ADDR deref_val_int;
1009           struct value *deref_val;
1010
1011           deref_val = coerce_ref_if_computed (original_value);
1012           if (deref_val)
1013             {
1014               if (ada_is_tagged_type (value_type (deref_val), 1))
1015                 deref_val = ada_tag_value_at_base_address (deref_val);
1016
1017               common_val_print (deref_val, stream, recurse + 1, options,
1018                                 current_language);
1019               break;
1020             }
1021
1022           deref_val_int = unpack_pointer (type, valaddr + offset_aligned);
1023           if (deref_val_int != 0)
1024             {
1025               deref_val =
1026                 ada_value_ind (value_from_pointer
1027                                (lookup_pointer_type (elttype),
1028                                 deref_val_int));
1029
1030               if (ada_is_tagged_type (value_type (deref_val), 1))
1031                 deref_val = ada_tag_value_at_base_address (deref_val);
1032
1033               val_print (value_type (deref_val),
1034                          value_contents_for_printing (deref_val),
1035                          value_embedded_offset (deref_val),
1036                          value_address (deref_val), stream, recurse + 1,
1037                          deref_val, options, current_language);
1038             }
1039           else
1040             fputs_filtered ("(null)", stream);
1041         }
1042       else
1043         fputs_filtered ("???", stream);
1044
1045       break;
1046     }
1047   gdb_flush (stream);
1048 }
1049
1050 /* See val_print for a description of the various parameters of this
1051    function; they are identical.  */
1052
1053 void
1054 ada_val_print (struct type *type, const gdb_byte *valaddr,
1055                int embedded_offset, CORE_ADDR address,
1056                struct ui_file *stream, int recurse,
1057                const struct value *val,
1058                const struct value_print_options *options)
1059 {
1060   volatile struct gdb_exception except;
1061
1062   /* XXX: this catches QUIT/ctrl-c as well.  Isn't that busted?  */
1063   TRY_CATCH (except, RETURN_MASK_ALL)
1064     {
1065       ada_val_print_1 (type, valaddr, embedded_offset, address,
1066                        stream, recurse, val, options,
1067                        current_language);
1068     }
1069 }
1070
1071 void
1072 ada_value_print (struct value *val0, struct ui_file *stream,
1073                  const struct value_print_options *options)
1074 {
1075   struct value *val = ada_to_fixed_value (val0);
1076   CORE_ADDR address = value_address (val);
1077   struct type *type = ada_check_typedef (value_type (val));
1078   struct value_print_options opts;
1079
1080   /* If it is a pointer, indicate what it points to.  */
1081   if (TYPE_CODE (type) == TYPE_CODE_PTR)
1082     {
1083       /* Hack:  don't print (char *) for char strings.  Their
1084          type is indicated by the quoted string anyway.  */
1085       if (TYPE_LENGTH (TYPE_TARGET_TYPE (type)) != sizeof (char)
1086           || TYPE_CODE (TYPE_TARGET_TYPE (type)) != TYPE_CODE_INT
1087           || TYPE_UNSIGNED (TYPE_TARGET_TYPE (type)))
1088         {
1089           fprintf_filtered (stream, "(");
1090           type_print (type, "", stream, -1);
1091           fprintf_filtered (stream, ") ");
1092         }
1093     }
1094   else if (ada_is_array_descriptor_type (type))
1095     {
1096       /* We do not print the type description unless TYPE is an array
1097          access type (this is encoded by the compiler as a typedef to
1098          a fat pointer - hence the check against TYPE_CODE_TYPEDEF).  */
1099       if (TYPE_CODE (type) == TYPE_CODE_TYPEDEF)
1100         {
1101           fprintf_filtered (stream, "(");
1102           type_print (type, "", stream, -1);
1103           fprintf_filtered (stream, ") ");
1104         }
1105     }
1106   else if (ada_is_bogus_array_descriptor (type))
1107     {
1108       fprintf_filtered (stream, "(");
1109       type_print (type, "", stream, -1);
1110       fprintf_filtered (stream, ") (...?)");
1111       return;
1112     }
1113
1114   opts = *options;
1115   opts.deref_ref = 1;
1116   val_print (type, value_contents_for_printing (val),
1117              value_embedded_offset (val), address,
1118              stream, 0, val, &opts, current_language);
1119 }