gdb/valprint.c

   1 /* Print values for GDB, the GNU debugger.
   2    Copyright 1986, 1988, 1989, 1991 Free Software Foundation, Inc.
   3
   4 This file is part of GDB.
   5
   6 This program is free software; you can redistribute it and/or modify
   7 it under the terms of the GNU General Public License as published by
   8 the Free Software Foundation; either version 2 of the License, or
   9 (at your option) any later version.
  10
  11 This program is distributed in the hope that it will be useful,
  12 but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 GNU General Public License for more details.
  15
  16 You should have received a copy of the GNU General Public License
  17 along with this program; if not, write to the Free Software
  18 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
  19
  20 #include <stdio.h>
  21 #include <string.h>
  22 #include "defs.h"
  23 #include "symtab.h"
  24 #include "value.h"
  25 #include "gdbcore.h"
  26 #include "gdbcmd.h"
  27 #include "target.h"
  28 #include "obstack.h"
  29 #include "language.h"
  30
  31 #include <errno.h>
  32 extern int sys_nerr;
  33 extern char *sys_errlist[];
  34
  35 extern void print_scalar_formatted();   /* printcmd.c */
  36 extern void print_address_demangle();   /* printcmd.c */
  37 extern int demangle;    /* whether to print C++ syms raw or source-form */
  38
  39 /* Maximum number of chars to print for a string pointer value
  40    or vector contents, or UINT_MAX for no limit.  */
  41
  42 static unsigned int print_max;
  43
  44 static void type_print_varspec_suffix ();
  45 static void type_print_varspec_prefix ();
  46 static void type_print_base ();
  47 static void type_print_method_args ();
  48
  49 /* Default input and output radixes, and output format letter.  */
  50
  51 unsigned input_radix = 10;
  52 unsigned output_radix = 10;
  53 int output_format = 0;
  54
  55
  56 char **unsigned_type_table;
  57 char **signed_type_table;
  58 char **float_type_table;
  59
  60
  61 /* Print repeat counts if there are more than this
  62    many repetitions of an element in an array.  */
  63 #define REPEAT_COUNT_THRESHOLD  10
  64
  65 /* Define a mess of print controls.  */
  66
  67 int prettyprint;        /* Controls pretty printing of structures */
  68 int vtblprint;          /* Controls printing of vtbl's */
  69 int unionprint;         /* Controls printing of nested unions.  */
  70 int arrayprint;         /* Controls pretty printing of arrays.  */
  71 int addressprint;       /* Controls pretty printing of addresses.  */
  72 int objectprint;        /* Controls looking up an object's derived type
  73                            using what we find in its vtables.  */
  74
  75 struct obstack dont_print_obstack;
  76
  77 static void cplus_val_print ();
  78 \f
  79 /* Print the character string STRING, printing at most LENGTH characters.
  80    Printing stops early if the number hits print_max; repeat counts
  81    are printed as appropriate.  Print ellipses at the end if we
  82    had to stop before printing LENGTH characters, or if FORCE_ELLIPSES.  */
  83
  84 void
  85 print_string (stream, string, length, force_ellipses)
  86      FILE *stream;
  87      char *string;
  88      unsigned int length;
  89      int force_ellipses;
  90 {
  91   register unsigned int i;
  92   unsigned int things_printed = 0;
  93   int in_quotes = 0;
  94   int need_comma = 0;
  95   extern int inspect_it;
  96
  97   if (length == 0)
  98     {
  99       fputs_filtered ("\"\"", stdout);
 100       return;
 101     }
 102
 103   for (i = 0; i < length && things_printed < print_max; ++i)
 104     {
 105       /* Position of the character we are examining
 106          to see whether it is repeated.  */
 107       unsigned int rep1;
 108       /* Number of repetitions we have detected so far.  */
 109       unsigned int reps;
 110
 111       QUIT;
 112
 113       if (need_comma)
 114         {
 115           fputs_filtered (", ", stream);
 116           need_comma = 0;
 117         }
 118
 119       rep1 = i + 1;
 120       reps = 1;
 121       while (rep1 < length && string[rep1] == string[i])
 122         {
 123           ++rep1;
 124           ++reps;
 125         }
 126
 127       if (reps > REPEAT_COUNT_THRESHOLD)
 128         {
 129           if (in_quotes)
 130             {
 131               if (inspect_it)
 132                 fputs_filtered ("\\\", ", stream);
 133               else
 134                 fputs_filtered ("\", ", stream);
 135               in_quotes = 0;
 136             }
 137           fputs_filtered ("'", stream);
 138           printchar (string[i], stream, '\'');
 139           fprintf_filtered (stream, "' <repeats %u times>", reps);
 140           i = rep1 - 1;
 141           things_printed += REPEAT_COUNT_THRESHOLD;
 142           need_comma = 1;
 143         }
 144       else
 145         {
 146           if (!in_quotes)
 147             {
 148               if (inspect_it)
 149                 fputs_filtered ("\\\"", stream);
 150               else
 151                 fputs_filtered ("\"", stream);
 152               in_quotes = 1;
 153             }
 154           printchar (string[i], stream, '"');
 155           ++things_printed;
 156         }
 157     }
 158
 159   /* Terminate the quotes if necessary.  */
 160   if (in_quotes)
 161     {
 162       if (inspect_it)
 163         fputs_filtered ("\\\"", stream);
 164       else
 165         fputs_filtered ("\"", stream);
 166     }
 167
 168   if (force_ellipses || i < length)
 169     fputs_filtered ("...", stream);
 170 }
 171
 172 /* Print a floating point value of type TYPE, pointed to in GDB by VALADDR,
 173    on STREAM.  */
 174
 175 void
 176 print_floating (valaddr, type, stream)
 177      char *valaddr;
 178      struct type *type;
 179      FILE *stream;
 180 {
 181   double doub;
 182   int inv;
 183   unsigned len = TYPE_LENGTH (type);
 184
 185 #if defined (IEEE_FLOAT)
 186
 187   /* Check for NaN's.  Note that this code does not depend on us being
 188      on an IEEE conforming system.  It only depends on the target
 189      machine using IEEE representation.  This means (a)
 190      cross-debugging works right, and (2) IEEE_FLOAT can (and should)
 191      be defined for systems like the 68881, which uses IEEE
 192      representation, but is not IEEE conforming.  */
 193
 194   {
 195     long low, high;
 196     /* Is the sign bit 0?  */
 197     int nonnegative;
 198     /* Is it is a NaN (i.e. the exponent is all ones and
 199        the fraction is nonzero)?  */
 200     int is_nan;
 201
 202     if (len == sizeof (float))
 203       {
 204         /* It's single precision. */
 205         bcopy (valaddr, &low, sizeof (low));
 206         /* target -> host.  */
 207         SWAP_TARGET_AND_HOST (&low, sizeof (float));
 208         nonnegative = low >= 0;
 209         is_nan = ((((low >> 23) & 0xFF) == 0xFF)
 210                   && 0 != (low & 0x7FFFFF));
 211         low &= 0x7fffff;
 212         high = 0;
 213       }
 214     else
 215       {
 216         /* It's double precision.  Get the high and low words.  */
 217
 218 #if TARGET_BYTE_ORDER == BIG_ENDIAN
 219           bcopy (valaddr+4, &low,  sizeof (low));
 220           bcopy (valaddr+0, &high, sizeof (high));
 221 #else
 222           bcopy (valaddr+0, &low,  sizeof (low));
 223           bcopy (valaddr+4, &high, sizeof (high));
 224 #endif
 225           SWAP_TARGET_AND_HOST (&low, sizeof (low));
 226           SWAP_TARGET_AND_HOST (&high, sizeof (high));
 227           nonnegative = high >= 0;
 228           is_nan = (((high >> 20) & 0x7ff) == 0x7ff
 229                     && ! ((((high & 0xfffff) == 0)) && (low == 0)));
 230           high &= 0xfffff;
 231         }
 232
 233     if (is_nan)
 234       {
 235         /* The meaning of the sign and fraction is not defined by IEEE.
 236            But the user might know what they mean.  For example, they
 237            (in an implementation-defined manner) distinguish between
 238            signaling and quiet NaN's.  */
 239         if (high)
 240           fprintf_filtered (stream, "-NaN(0x%lx%.8lx)" + nonnegative,
 241                             high, low);
 242         else
 243           fprintf_filtered (stream, "-NaN(0x%lx)" + nonnegative, low);
 244         return;
 245       }
 246   }
 247 #endif /* IEEE_FLOAT.  */
 248
 249   doub = unpack_double (type, valaddr, &inv);
 250   if (inv)
 251     fprintf_filtered (stream, "<invalid float value>");
 252   else
 253     fprintf_filtered (stream, len <= sizeof(float) ? "%.9g" : "%.17g", doub);
 254 }
 255
 256 /* VALADDR points to an integer of LEN bytes.  Print it in hex on stream.  */
 257 static void
 258 print_hex_chars (stream, valaddr, len)
 259      FILE *stream;
 260      unsigned char *valaddr;
 261      unsigned len;
 262 {
 263   unsigned char *p;
 264
 265   fprintf_filtered (stream, "0x");
 266 #if TARGET_BYTE_ORDER == BIG_ENDIAN
 267   for (p = valaddr;
 268        p < valaddr + len;
 269        p++)
 270 #else /* Little endian.  */
 271   for (p = valaddr + len - 1;
 272        p >= valaddr;
 273        p--)
 274 #endif
 275     {
 276       fprintf_filtered (stream, "%02x", *p);
 277     }
 278 }
 279 \f
 280 /* Print the value VAL in C-ish syntax on stream STREAM.
 281    FORMAT is a format-letter, or 0 for print in natural format of data type.
 282    If the object printed is a string pointer, returns
 283    the number of string bytes printed.  */
 284
 285 int
 286 value_print (val, stream, format, pretty)
 287      value val;
 288      FILE *stream;
 289      char format;
 290      enum val_prettyprint pretty;
 291 {
 292   register unsigned int i, n, typelen;
 293
 294   if (val == 0)
 295     {
 296       printf_filtered ("<address of value unknown>");
 297       return 0;
 298     }
 299   if (VALUE_OPTIMIZED_OUT (val))
 300     {
 301       printf_filtered ("<value optimized out>");
 302       return 0;
 303     }
 304
 305   /* A "repeated" value really contains several values in a row.
 306      They are made by the @ operator.
 307      Print such values as if they were arrays.  */
 308
 309   else if (VALUE_REPEATED (val))
 310     {
 311       n = VALUE_REPETITIONS (val);
 312       typelen = TYPE_LENGTH (VALUE_TYPE (val));
 313       fprintf_filtered (stream, "{");
 314       /* Print arrays of characters using string syntax.  */
 315       if (typelen == 1 && TYPE_CODE (VALUE_TYPE (val)) == TYPE_CODE_INT
 316           && format == 0)
 317         print_string (stream, VALUE_CONTENTS (val), n, 0);
 318       else
 319         {
 320           unsigned int things_printed = 0;
 321
 322           for (i = 0; i < n && things_printed < print_max; i++)
 323             {
 324               /* Position of the array element we are examining to see
 325                  whether it is repeated.  */
 326               unsigned int rep1;
 327               /* Number of repetitions we have detected so far.  */
 328               unsigned int reps;
 329
 330               if (i != 0)
 331                 fprintf_filtered (stream, ", ");
 332               wrap_here ("");
 333
 334               rep1 = i + 1;
 335               reps = 1;
 336               while (rep1 < n
 337                      && !bcmp (VALUE_CONTENTS (val) + typelen * i,
 338                                VALUE_CONTENTS (val) + typelen * rep1, typelen))
 339                 {
 340                   ++reps;
 341                   ++rep1;
 342                 }
 343
 344               if (reps > REPEAT_COUNT_THRESHOLD)
 345                 {
 346                   val_print (VALUE_TYPE (val),
 347                              VALUE_CONTENTS (val) + typelen * i,
 348                              VALUE_ADDRESS (val) + typelen * i,
 349                              stream, format, 1, 0, pretty);
 350                   fprintf (stream, " <repeats %u times>", reps);
 351                   i = rep1 - 1;
 352                   things_printed += REPEAT_COUNT_THRESHOLD;
 353                 }
 354               else
 355                 {
 356                   val_print (VALUE_TYPE (val),
 357                              VALUE_CONTENTS (val) + typelen * i,
 358                              VALUE_ADDRESS (val) + typelen * i,
 359                              stream, format, 1, 0, pretty);
 360                   things_printed++;
 361                 }
 362             }
 363           if (i < n)
 364             fprintf_filtered (stream, "...");
 365         }
 366       fprintf_filtered (stream, "}");
 367       return n * typelen;
 368     }
 369   else
 370     {
 371       struct type *type = VALUE_TYPE (val);
 372
 373       /* If it is a pointer, indicate what it points to.
 374
 375          Print type also if it is a reference.
 376
 377          C++: if it is a member pointer, we will take care
 378          of that when we print it.  */
 379       if (TYPE_CODE (type) == TYPE_CODE_PTR
 380           || TYPE_CODE (type) == TYPE_CODE_REF)
 381         {
 382           /* Hack:  remove (char *) for char strings.  Their
 383              type is indicated by the quoted string anyway. */
 384           if (TYPE_CODE (type) == TYPE_CODE_PTR
 385               && TYPE_LENGTH (TYPE_TARGET_TYPE (type)) == sizeof(char)
 386               && TYPE_CODE (TYPE_TARGET_TYPE (type)) == TYPE_CODE_INT
 387               && !TYPE_UNSIGNED (TYPE_TARGET_TYPE (type)))
 388             {
 389                 /* Print nothing */
 390             }
 391           else
 392             {
 393               fprintf_filtered (stream, "(");
 394               type_print (type, "", stream, -1);
 395               fprintf_filtered (stream, ") ");
 396             }
 397         }
 398       return val_print (type, VALUE_CONTENTS (val),
 399                         VALUE_ADDRESS (val), stream, format, 1, 0, pretty);
 400     }
 401 }
 402
 403 /* Return truth value for assertion that TYPE is of the type
 404    "pointer to virtual function".  */
 405 static int
 406 is_vtbl_ptr_type(type)
 407      struct type *type;
 408 {
 409   char *typename = type_name_no_tag (type);
 410   static const char vtbl_ptr_name[] =
 411     { CPLUS_MARKER,'v','t','b','l','_','p','t','r','_','t','y','p','e', 0 };
 412
 413   return (typename != NULL && !strcmp(typename, vtbl_ptr_name));
 414 }
 415
 416 /* Return truth value for the assertion that TYPE is of the type
 417    "pointer to virtual function table".  */
 418 static int
 419 is_vtbl_member(type)
 420      struct type *type;
 421 {
 422   if (TYPE_CODE (type) == TYPE_CODE_PTR)
 423     type = TYPE_TARGET_TYPE (type);
 424   else
 425     return 0;
 426
 427   if (TYPE_CODE (type) == TYPE_CODE_ARRAY
 428       && TYPE_CODE (TYPE_TARGET_TYPE (type)) == TYPE_CODE_STRUCT)
 429     /* Virtual functions tables are full of pointers to virtual functions.  */
 430     return is_vtbl_ptr_type (TYPE_TARGET_TYPE (type));
 431   return 0;
 432 }
 433 \f
 434 /* Mutually recursive subroutines of cplus_val_print and val_print to print out
 435    a structure's fields: val_print_fields and cplus_val_print.
 436
 437    TYPE, VALADDR, STREAM, RECURSE, and PRETTY have the
 438    same meanings as in cplus_val_print and val_print.
 439
 440    DONT_PRINT is an array of baseclass types that we
 441    should not print, or zero if called from top level.  */
 442 static void
 443 val_print_fields (type, valaddr, stream, format, recurse, pretty, dont_print)
 444      struct type *type;
 445      char *valaddr;
 446      FILE *stream;
 447      char format;
 448      int recurse;
 449      enum val_prettyprint pretty;
 450      struct type **dont_print;
 451 {
 452   int i, len, n_baseclasses;
 453
 454   check_stub_type (type);
 455
 456   fprintf_filtered (stream, "{");
 457   len = TYPE_NFIELDS (type);
 458   n_baseclasses = TYPE_N_BASECLASSES (type);
 459
 460   /* Print out baseclasses such that we don't print
 461      duplicates of virtual baseclasses.  */
 462   if (n_baseclasses > 0)
 463     cplus_val_print (type, valaddr, stream, format, recurse+1, pretty, dont_print);
 464
 465   if (!len && n_baseclasses == 1)
 466     fprintf_filtered (stream, "<No data fields>");
 467   else
 468     {
 469       extern int inspect_it;
 470       int fields_seen = 0;
 471
 472       for (i = n_baseclasses; i < len; i++)
 473         {
 474           /* Check if static field */
 475           if (TYPE_FIELD_STATIC (type, i))
 476             continue;
 477           if (fields_seen)
 478             fprintf_filtered (stream, ", ");
 479           else if (n_baseclasses > 0)
 480             {
 481               fprintf_filtered (stream, "\n");
 482               print_spaces_filtered (2 + 2 * recurse, stream);
 483               fputs_filtered ("members of ", stream);
 484               fputs_filtered (type_name_no_tag (type), stream);
 485               fputs_filtered (": ", stream);
 486             }
 487           fields_seen = 1;
 488
 489           if (pretty)
 490             {
 491               fprintf_filtered (stream, "\n");
 492               print_spaces_filtered (2 + 2 * recurse, stream);
 493             }
 494           else
 495             {
 496               wrap_here (n_spaces (2 + 2 * recurse));
 497             }
 498           if (inspect_it)
 499             {
 500               if (TYPE_CODE (TYPE_FIELD_TYPE (type, i)) == TYPE_CODE_PTR)
 501                 fputs_filtered ("\"( ptr \"", stream);
 502               else
 503                 fputs_filtered ("\"( nodef \"", stream);
 504               fputs_filtered (TYPE_FIELD_NAME (type, i), stream);
 505               fputs_filtered ("\" \"", stream);
 506               fputs_filtered (TYPE_FIELD_NAME (type, i), stream);
 507               fputs_filtered ("\") \"", stream);
 508             }
 509           else
 510             {
 511               fputs_filtered (TYPE_FIELD_NAME (type, i), stream);
 512               fputs_filtered (" = ", stream);
 513             }
 514           if (TYPE_FIELD_PACKED (type, i))
 515             {
 516               value v;
 517
 518               /* Bitfields require special handling, especially due to byte
 519                  order problems.  */
 520               v = value_from_longest (TYPE_FIELD_TYPE (type, i),
 521                                    unpack_field_as_long (type, valaddr, i));
 522
 523               val_print (TYPE_FIELD_TYPE (type, i), VALUE_CONTENTS (v), 0,
 524                          stream, format, 0, recurse + 1, pretty);
 525             }
 526           else
 527             {
 528               val_print (TYPE_FIELD_TYPE (type, i),
 529                          valaddr + TYPE_FIELD_BITPOS (type, i) / 8,
 530                          0, stream, format, 0, recurse + 1, pretty);
 531             }
 532         }
 533       if (pretty)
 534         {
 535           fprintf_filtered (stream, "\n");
 536           print_spaces_filtered (2 * recurse, stream);
 537         }
 538     }
 539   fprintf_filtered (stream, "}");
 540 }
 541
 542 /* Special val_print routine to avoid printing multiple copies of virtual
 543    baseclasses.  */
 544
 545 static void
 546 cplus_val_print (type, valaddr, stream, format, recurse, pretty, dont_print)
 547      struct type *type;
 548      char *valaddr;
 549      FILE *stream;
 550      char format;
 551      int recurse;
 552      enum val_prettyprint pretty;
 553      struct type **dont_print;
 554 {
 555   struct obstack tmp_obstack;
 556   struct type **last_dont_print
 557     = (struct type **)obstack_next_free (&dont_print_obstack);
 558   int i, n_baseclasses = TYPE_N_BASECLASSES (type);
 559
 560   if (dont_print == 0)
 561     {
 562       /* If we're at top level, carve out a completely fresh
 563          chunk of the obstack and use that until this particular
 564          invocation returns.  */
 565       tmp_obstack = dont_print_obstack;
 566       /* Bump up the high-water mark.  Now alpha is omega.  */
 567       obstack_finish (&dont_print_obstack);
 568     }
 569
 570   for (i = 0; i < n_baseclasses; i++)
 571     {
 572       char *baddr;
 573       int err;
 574
 575       if (BASETYPE_VIA_VIRTUAL (type, i))
 576         {
 577           struct type **first_dont_print
 578             = (struct type **)obstack_base (&dont_print_obstack);
 579
 580           int j = (struct type **)obstack_next_free (&dont_print_obstack)
 581             - first_dont_print;
 582
 583           while (--j >= 0)
 584             if (TYPE_BASECLASS (type, i) == first_dont_print[j])
 585               goto flush_it;
 586
 587           obstack_ptr_grow (&dont_print_obstack, TYPE_BASECLASS (type, i));
 588         }
 589
 590       baddr = baseclass_addr (type, i, valaddr, 0, &err);
 591       if (err == 0 && baddr == 0)
 592         error ("could not find virtual baseclass `%s'\n",
 593                type_name_no_tag (TYPE_BASECLASS (type, i)));
 594
 595       fprintf_filtered (stream, "\n");
 596       if (pretty)
 597         print_spaces_filtered (2 + 2 * recurse, stream);
 598       fputs_filtered ("<", stream);
 599       fputs_filtered (type_name_no_tag (TYPE_BASECLASS (type, i)), stream);
 600       fputs_filtered ("> = ", stream);
 601       if (err != 0)
 602         fprintf_filtered (stream, "<invalid address 0x%x>", baddr);
 603       else
 604         val_print_fields (TYPE_BASECLASS (type, i), baddr, stream, format,
 605                           recurse, pretty,
 606                           (struct type **)obstack_base (&dont_print_obstack));
 607     flush_it:
 608       ;
 609     }
 610
 611   if (dont_print == 0)
 612     {
 613       /* Free the space used to deal with the printing
 614          of this type from top level.  */
 615       obstack_free (&dont_print_obstack, last_dont_print);
 616       /* Reset watermark so that we can continue protecting
 617          ourselves from whatever we were protecting ourselves.  */
 618       dont_print_obstack = tmp_obstack;
 619     }
 620 }
 621
 622 /* Print data of type TYPE located at VALADDR (within GDB),
 623    which came from the inferior at address ADDRESS,
 624    onto stdio stream STREAM according to FORMAT
 625    (a letter or 0 for natural format).  The data at VALADDR
 626    is in target byte order.
 627
 628    If the data are a string pointer, returns the number of
 629    sting characters printed.
 630
 631    if DEREF_REF is nonzero, then dereference references,
 632    otherwise just print them like pointers.
 633
 634    The PRETTY parameter controls prettyprinting.  */
 635
 636 int
 637 val_print (type, valaddr, address, stream, format,
 638            deref_ref, recurse, pretty)
 639      struct type *type;
 640      char *valaddr;
 641      CORE_ADDR address;
 642      FILE *stream;
 643      char format;
 644      int deref_ref;
 645      int recurse;
 646      enum val_prettyprint pretty;
 647 {
 648   register unsigned int i;
 649   unsigned len;
 650   struct type *elttype;
 651   unsigned eltlen;
 652   LONGEST val;
 653   unsigned char c;
 654
 655   if (pretty == Val_pretty_default)
 656     {
 657       pretty = prettyprint ? Val_prettyprint : Val_no_prettyprint;
 658     }
 659
 660   QUIT;
 661
 662   check_stub_type (type);
 663
 664   if (TYPE_FLAGS (type) & TYPE_FLAG_STUB)
 665     {
 666       fprintf_filtered (stream, "<unknown struct>");
 667       fflush (stream);
 668       return 0;
 669     }
 670
 671   switch (TYPE_CODE (type))
 672     {
 673     case TYPE_CODE_ARRAY:
 674       if (TYPE_LENGTH (type) > 0
 675           && TYPE_LENGTH (TYPE_TARGET_TYPE (type)) > 0)
 676         {
 677           elttype = TYPE_TARGET_TYPE (type);
 678           eltlen = TYPE_LENGTH (elttype);
 679           len = TYPE_LENGTH (type) / eltlen;
 680           if (arrayprint)
 681             print_spaces_filtered (2 + 2 * recurse, stream);
 682           fprintf_filtered (stream, "{");
 683           /* For an array of chars, print with string syntax.  */
 684           if (eltlen == 1 && TYPE_CODE (elttype) == TYPE_CODE_INT
 685               && (format == 0 || format == 's') )
 686             print_string (stream, valaddr, len, 0);
 687           else
 688             {
 689               unsigned int things_printed = 0;
 690
 691               /* If this is a virtual function table, print the 0th
 692                  entry specially, and the rest of the members normally.  */
 693               if (is_vtbl_ptr_type (elttype))
 694                 {
 695                   fprintf_filtered (stream, "%d vtable entries", len-1);
 696                   i = 1;
 697                 }
 698               else
 699                 i = 0;
 700
 701               for (; i < len && things_printed < print_max; i++)
 702                 {
 703                   /* Position of the array element we are examining to see
 704                      whether it is repeated.  */
 705                   unsigned int rep1;
 706                   /* Number of repetitions we have detected so far.  */
 707                   unsigned int reps;
 708
 709                   if (i != 0)
 710                     if (arrayprint)
 711                       {
 712                         fprintf_filtered (stream, ",\n");
 713                         print_spaces_filtered (2 + 2 * recurse, stream);
 714                       }
 715                     else
 716                       fprintf_filtered (stream, ", ");
 717                     wrap_here (n_spaces (2 + 2 * recurse));
 718
 719                   rep1 = i + 1;
 720                   reps = 1;
 721                   while (rep1 < len
 722                          && !bcmp (valaddr + i * eltlen,
 723                                    valaddr + rep1 * eltlen, eltlen))
 724                     {
 725                       ++reps;
 726                       ++rep1;
 727                     }
 728
 729                   if (reps > REPEAT_COUNT_THRESHOLD)
 730                     {
 731                       val_print (elttype, valaddr + i * eltlen,
 732                                  0, stream, format, deref_ref,
 733                                  recurse + 1, pretty);
 734                       fprintf_filtered (stream, " <repeats %u times>", reps);
 735                       i = rep1 - 1;
 736                       things_printed += REPEAT_COUNT_THRESHOLD;
 737                     }
 738                   else
 739                     {
 740                       val_print (elttype, valaddr + i * eltlen,
 741                                  0, stream, format, deref_ref,
 742                                  recurse + 1, pretty);
 743                       things_printed++;
 744                     }
 745                 }
 746               if (i < len)
 747                 fprintf_filtered (stream, "...");
 748             }
 749           fprintf_filtered (stream, "}");
 750           break;
 751         }
 752       /* Array of unspecified length: treat like pointer to first elt.  */
 753       valaddr = (char *) &address;
 754
 755     case TYPE_CODE_PTR:
 756       if (format && format != 's')
 757         {
 758           print_scalar_formatted (valaddr, type, format, 0, stream);
 759           break;
 760         }
 761       if (TYPE_CODE (TYPE_TARGET_TYPE (type)) == TYPE_CODE_METHOD)
 762         {
 763           struct type *domain = TYPE_DOMAIN_TYPE (TYPE_TARGET_TYPE (type));
 764           struct fn_field *f;
 765           int j, len2;
 766           char *kind = "";
 767           CORE_ADDR addr;
 768
 769           addr = unpack_pointer (lookup_pointer_type (builtin_type_void),
 770                                 valaddr);
 771           if (addr < 128)                       /* FIXME!  What is this 128? */
 772             {
 773               len = TYPE_NFN_FIELDS (domain);
 774               for (i = 0; i < len; i++)
 775                 {
 776                   f = TYPE_FN_FIELDLIST1 (domain, i);
 777                   len2 = TYPE_FN_FIELDLIST_LENGTH (domain, i);
 778
 779                   for (j = 0; j < len2; j++)
 780                     {
 781                       QUIT;
 782                       if (TYPE_FN_FIELD_VOFFSET (f, j) == addr)
 783                         {
 784                           kind = "virtual";
 785                           goto common;
 786                         }
 787                     }
 788                 }
 789             }
 790           else
 791             {
 792               struct symbol *sym = find_pc_function (addr);
 793               if (sym == 0)
 794                 error ("invalid pointer to member function");
 795               len = TYPE_NFN_FIELDS (domain);
 796               for (i = 0; i < len; i++)
 797                 {
 798                   f = TYPE_FN_FIELDLIST1 (domain, i);
 799                   len2 = TYPE_FN_FIELDLIST_LENGTH (domain, i);
 800
 801                   for (j = 0; j < len2; j++)
 802                     {
 803                       QUIT;
 804                       if (!strcmp (SYMBOL_NAME (sym), TYPE_FN_FIELD_PHYSNAME (f, j)))
 805                         goto common;
 806                     }
 807                 }
 808             }
 809         common:
 810           if (i < len)
 811             {
 812               fprintf_filtered (stream, "&");
 813               type_print_varspec_prefix (TYPE_FN_FIELD_TYPE (f, j), stream, 0, 0);
 814               fprintf (stream, kind);
 815               if (TYPE_FN_FIELD_PHYSNAME (f, j)[0] == '_'
 816                   && TYPE_FN_FIELD_PHYSNAME (f, j)[1] == CPLUS_MARKER)
 817                 type_print_method_args
 818                   (TYPE_FN_FIELD_ARGS (f, j) + 1, "~",
 819                    TYPE_FN_FIELDLIST_NAME (domain, i), 0, stream);
 820               else
 821                 type_print_method_args
 822                   (TYPE_FN_FIELD_ARGS (f, j), "",
 823                    TYPE_FN_FIELDLIST_NAME (domain, i), 0, stream);
 824               break;
 825             }
 826           fprintf_filtered (stream, "(");
 827           type_print (type, "", stream, -1);
 828           fprintf_filtered (stream, ") %d", (int) addr >> 3);
 829         }
 830       else if (TYPE_CODE (TYPE_TARGET_TYPE (type)) == TYPE_CODE_MEMBER)
 831         {
 832           struct type *domain = TYPE_DOMAIN_TYPE (TYPE_TARGET_TYPE (type));
 833
 834           /* VAL is a byte offset into the structure type DOMAIN.
 835              Find the name of the field for that offset and
 836              print it.  */
 837           int extra = 0;
 838           int bits = 0;
 839           len = TYPE_NFIELDS (domain);
 840           /* @@ Make VAL into bit offset */
 841           val = unpack_long (builtin_type_int, valaddr) << 3;
 842           for (i = TYPE_N_BASECLASSES (domain); i < len; i++)
 843             {
 844               int bitpos = TYPE_FIELD_BITPOS (domain, i);
 845               QUIT;
 846               if (val == bitpos)
 847                 break;
 848               if (val < bitpos && i != 0)
 849                 {
 850                   /* Somehow pointing into a field.  */
 851                   i -= 1;
 852                   extra = (val - TYPE_FIELD_BITPOS (domain, i));
 853                   if (extra & 0x7)
 854                     bits = 1;
 855                   else
 856                     extra >>= 3;
 857                   break;
 858                 }
 859             }
 860           if (i < len)
 861             {
 862               fprintf_filtered (stream, "&");
 863               type_print_base (domain, stream, 0, 0);
 864               fprintf_filtered (stream, "::");
 865               fputs_filtered (TYPE_FIELD_NAME (domain, i), stream);
 866               if (extra)
 867                 fprintf_filtered (stream, " + %d bytes", extra);
 868               if (bits)
 869                 fprintf_filtered (stream, " (offset in bits)");
 870               break;
 871             }
 872           fprintf_filtered (stream, "%d", val >> 3);
 873         }
 874       else
 875         {
 876           CORE_ADDR addr = unpack_pointer (type, valaddr);
 877           elttype = TYPE_TARGET_TYPE (type);
 878
 879           if (TYPE_CODE (elttype) == TYPE_CODE_FUNC)
 880             {
 881               /* Try to print what function it points to.  */
 882               print_address_demangle (addr, stream, demangle);
 883               /* Return value is irrelevant except for string pointers.  */
 884               return 0;
 885             }
 886
 887           if (addressprint && format != 's')
 888             fprintf_filtered (stream, "0x%x", addr);
 889
 890           /* For a pointer to char or unsigned char,
 891              also print the string pointed to, unless pointer is null.  */
 892           i = 0;                /* Number of characters printed.  */
 893           if (TYPE_LENGTH (elttype) == 1
 894               && TYPE_CODE (elttype) == TYPE_CODE_INT
 895               && (format == 0 || format == 's')
 896               && addr != 0
 897               /* If print_max is UINT_MAX, the alloca below will fail.
 898                  In that case don't try to print the string.  */
 899               && print_max < UINT_MAX)
 900             {
 901               int first_addr_err = 0;
 902               int errcode = 0;
 903
 904               /* Get first character.  */
 905               errcode = target_read_memory (addr, (char *)&c, 1);
 906               if (errcode != 0)
 907                 {
 908                   /* First address out of bounds.  */
 909                   first_addr_err = 1;
 910                 }
 911               else
 912                 {
 913                   /* A real string.  */
 914                   char *string = (char *) alloca (print_max);
 915
 916                   /* If the loop ends by us hitting print_max characters,
 917                      we need to have elipses at the end.  */
 918                   int force_ellipses = 1;
 919
 920                   /* This loop always fetches print_max characters, even
 921                      though print_string might want to print more or fewer
 922                      (with repeated characters).  This is so that
 923                      we don't spend forever fetching if we print
 924                      a long string consisting of the same character
 925                      repeated.  Also so we can do it all in one memory
 926                      operation, which is faster.  However, this will be
 927                      slower if print_max is set high, e.g. if you set
 928                      print_max to 1000, not only will it take a long
 929                      time to fetch short strings, but if you are near
 930                      the end of the address space, it might not work.
 931                      FIXME.  */
 932                   QUIT;
 933                   errcode = target_read_memory (addr, string, print_max);
 934                   if (errcode != 0)
 935                       force_ellipses = 0;
 936                   else
 937                     for (i = 0; i < print_max; i++)
 938                       if (string[i] == '\0')
 939                         {
 940                           force_ellipses = 0;
 941                           break;
 942                         }
 943                   QUIT;
 944
 945                   if (addressprint)
 946                     fputs_filtered (" ", stream);
 947                   print_string (stream, string, i, force_ellipses);
 948                 }
 949
 950               if (errcode != 0)
 951                 {
 952                   if (errcode == EIO)
 953                     {
 954                       fprintf_filtered (stream,
 955                                         (" <Address 0x%x out of bounds>"
 956                                          + first_addr_err),
 957                                         addr + i);
 958                     }
 959                   else
 960                     {
 961                       if (errcode >= sys_nerr || errcode < 0)
 962                         error ("Error reading memory address 0x%x: unknown error (%d).",
 963                                addr + i, errcode);
 964                       else
 965                         error ("Error reading memory address 0x%x: %s.",
 966                                addr + i, sys_errlist[errcode]);
 967                     }
 968                 }
 969
 970               fflush (stream);
 971             }
 972           else /* print vtbl's nicely */
 973           if (is_vtbl_member(type))
 974             {
 975               CORE_ADDR vt_address = unpack_pointer (type, valaddr);
 976
 977               int vt_index = find_pc_misc_function (vt_address);
 978               if (vt_index >= 0
 979                   && vt_address == misc_function_vector[vt_index].address)
 980                 {
 981                   fputs_filtered (" <", stream);
 982                   fputs_demangled (misc_function_vector[vt_index].name,
 983                                    stream, 1);
 984                   fputs_filtered (">", stream);
 985                 }
 986               if (vtblprint)
 987                 {
 988                   value vt_val;
 989
 990                   vt_val = value_at (TYPE_TARGET_TYPE (type), vt_address);
 991                   val_print (VALUE_TYPE (vt_val), VALUE_CONTENTS (vt_val),
 992                              VALUE_ADDRESS (vt_val), stream, format,
 993                              deref_ref, recurse + 1, pretty);
 994                   if (pretty)
 995                     {
 996                       fprintf_filtered (stream, "\n");
 997                       print_spaces_filtered (2 + 2 * recurse, stream);
 998                     }
 999                 }
1000               }
1001
1002           /* Return number of characters printed, plus one for the
1003              terminating null if we have "reached the end".  */
1004           return i + (print_max && i != print_max);
1005         }
1006       break;
1007
1008     case TYPE_CODE_MEMBER:
1009       error ("not implemented: member type in val_print");
1010       break;
1011
1012     case TYPE_CODE_REF:
1013       if (addressprint)
1014         {
1015           fprintf_filtered (stream, "@0x%lx",
1016                             unpack_long (builtin_type_int, valaddr));
1017           if (deref_ref)
1018             fputs_filtered (": ", stream);
1019         }
1020       /* De-reference the reference.  */
1021       if (deref_ref)
1022         {
1023           if (TYPE_CODE (TYPE_TARGET_TYPE (type)) != TYPE_CODE_UNDEF)
1024             {
1025               value deref_val =
1026                 value_at
1027                   (TYPE_TARGET_TYPE (type),
1028                    unpack_pointer (lookup_pointer_type (builtin_type_void),
1029                                    valaddr));
1030               val_print (VALUE_TYPE (deref_val), VALUE_CONTENTS (deref_val),
1031                          VALUE_ADDRESS (deref_val), stream, format,
1032                          deref_ref, recurse + 1, pretty);
1033             }
1034           else
1035             fputs_filtered ("???", stream);
1036         }
1037       break;
1038
1039     case TYPE_CODE_UNION:
1040       if (recurse && !unionprint)
1041         {
1042           fprintf_filtered (stream, "{...}");
1043           break;
1044         }
1045       /* Fall through.  */
1046     case TYPE_CODE_STRUCT:
1047       if (vtblprint && is_vtbl_ptr_type(type))
1048         {
1049           /* Print the unmangled name if desired.  */
1050           print_address_demangle(*((int *) (valaddr +   /* FIXME bytesex */
1051               TYPE_FIELD_BITPOS (type, VTBL_FNADDR_OFFSET) / 8)),
1052               stream, demangle);
1053           break;
1054         }
1055       val_print_fields (type, valaddr, stream, format, recurse, pretty, 0);
1056       break;
1057
1058     case TYPE_CODE_ENUM:
1059       if (format)
1060         {
1061           print_scalar_formatted (valaddr, type, format, 0, stream);
1062           break;
1063         }
1064       len = TYPE_NFIELDS (type);
1065       val = unpack_long (builtin_type_int, valaddr);
1066       for (i = 0; i < len; i++)
1067         {
1068           QUIT;
1069           if (val == TYPE_FIELD_BITPOS (type, i))
1070             break;
1071         }
1072       if (i < len)
1073         fputs_filtered (TYPE_FIELD_NAME (type, i), stream);
1074       else
1075 #ifdef LONG_LONG
1076         fprintf_filtered (stream, "%lld", val);
1077 #else
1078         fprintf_filtered (stream, "%ld", val);
1079 #endif
1080       break;
1081
1082     case TYPE_CODE_FUNC:
1083       if (format)
1084         {
1085           print_scalar_formatted (valaddr, type, format, 0, stream);
1086           break;
1087         }
1088       /* FIXME, we should consider, at least for ANSI C language, eliminating
1089          the distinction made between FUNCs and POINTERs to FUNCs.  */
1090       fprintf_filtered (stream, "{");
1091       type_print (type, "", stream, -1);
1092       fprintf_filtered (stream, "} ");
1093       /* Try to print what function it points to, and its address.  */
1094       print_address_demangle (address, stream, demangle);
1095       break;
1096
1097     case TYPE_CODE_INT:
1098       if (format || output_format)
1099         {
1100           print_scalar_formatted (valaddr, type,
1101                                   format? format: output_format,
1102                                   0, stream);
1103           break;
1104         }
1105       if (TYPE_LENGTH (type) > sizeof (LONGEST))
1106         {
1107           if (TYPE_UNSIGNED (type))
1108             {
1109               /* First figure out whether the number in fact has zeros
1110                  in all its bytes more significant than least significant
1111                  sizeof (LONGEST) ones.  */
1112               char *p;
1113               /* Pointer to first (i.e. lowest address) nonzero character.  */
1114               char *first_addr;
1115               len = TYPE_LENGTH (type);
1116
1117 #if TARGET_BYTE_ORDER == BIG_ENDIAN
1118               for (p = valaddr;
1119                    len > sizeof (LONGEST)
1120                    && p < valaddr + TYPE_LENGTH (type);
1121                    p++)
1122 #else /* Little endian.  */
1123               first_addr = valaddr;
1124               for (p = valaddr + TYPE_LENGTH (type);
1125                    len > sizeof (LONGEST) && p >= valaddr;
1126                    p--)
1127 #endif /* Little endian.  */
1128                 {
1129                   if (*p == 0)
1130                     len--;
1131                   else
1132                     break;
1133                 }
1134 #if TARGET_BYTE_ORDER == BIG_ENDIAN
1135               first_addr = p;
1136 #endif
1137
1138               if (len <= sizeof (LONGEST))
1139                 {
1140                   /* We can print it in decimal.  */
1141                   fprintf_filtered
1142                     (stream,
1143 #if defined (LONG_LONG)
1144                      "%llu",
1145 #else
1146                      "%lu",
1147 #endif
1148                      unpack_long (BUILTIN_TYPE_LONGEST, first_addr));
1149                 }
1150               else
1151                 {
1152                   /* It is big, so print it in hex.  */
1153                   print_hex_chars (stream, (unsigned char *)first_addr, len);
1154                 }
1155             }
1156           else
1157             {
1158               /* Signed.  One could assume two's complement (a reasonable
1159                  assumption, I think) and do better than this.  */
1160               print_hex_chars (stream, (unsigned char *)valaddr,
1161                                TYPE_LENGTH (type));
1162             }
1163           break;
1164         }
1165 #ifdef PRINT_TYPELESS_INTEGER
1166       PRINT_TYPELESS_INTEGER (stream, type, unpack_long (type, valaddr));
1167 #else
1168 #ifndef LONG_LONG
1169       fprintf_filtered (stream,
1170                         TYPE_UNSIGNED (type) ? "%u" : "%d",
1171                         unpack_long (type, valaddr));
1172 #else
1173       fprintf_filtered (stream,
1174                         TYPE_UNSIGNED (type) ? "%llu" : "%lld",
1175                         unpack_long (type, valaddr));
1176 #endif
1177 #endif
1178
1179       if (TYPE_LENGTH (type) == 1)
1180         {
1181           fprintf_filtered (stream, " '");
1182           printchar ((unsigned char) unpack_long (type, valaddr),
1183                      stream, '\'');
1184           fprintf_filtered (stream, "'");
1185         }
1186       break;
1187
1188     case TYPE_CODE_FLT:
1189       if (format)
1190         print_scalar_formatted (valaddr, type, format, 0, stream);
1191       else
1192         print_floating (valaddr, type, stream);
1193       break;
1194
1195     case TYPE_CODE_VOID:
1196       fprintf_filtered (stream, "void");
1197       break;
1198
1199     case TYPE_CODE_UNDEF:
1200       /* This happens (without TYPE_FLAG_STUB set) on systems which don't use
1201          dbx xrefs (NO_DBX_XREFS in gcc) if a file has a "struct foo *bar"
1202          and no complete type for struct foo in that file.  */
1203       fprintf_filtered (stream, "<unknown struct>");
1204       break;
1205
1206     case TYPE_CODE_ERROR:
1207       fprintf_filtered (stream, "?");
1208       break;
1209
1210     case TYPE_CODE_RANGE:
1211       /* FIXME, we should not ever have to print one of these yet.  */
1212       fprintf_filtered (stream, "<range type>");
1213       break;
1214
1215     default:
1216       error ("Invalid type code in symbol table.");
1217     }
1218   fflush (stream);
1219   return 0;
1220 }
1221 \f
1222 /* Print a description of a type in the format of a
1223    typedef for the current language.
1224    NEW is the new name for a type TYPE. */
1225 void
1226 typedef_print (type, new, stream)
1227    struct type *type;
1228    struct symbol *new;
1229    FILE *stream;
1230 {
1231    switch (current_language->la_language)
1232    {
1233 #ifdef _LANG_c
1234    case language_c:
1235    case language_cplus:
1236       fprintf_filtered(stream, "typedef ");
1237       type_print(type,"",stream,0);
1238       if(TYPE_NAME ((SYMBOL_TYPE (new))) == 0
1239          || 0 != strcmp (TYPE_NAME ((SYMBOL_TYPE (new))),
1240                          SYMBOL_NAME (new)))
1241          fprintf_filtered(stream,  " %s", SYMBOL_NAME(new));
1242       break;
1243 #endif
1244 #ifdef _LANG_m2
1245    case language_m2:
1246       fprintf_filtered(stream, "TYPE ");
1247       if(!TYPE_NAME(SYMBOL_TYPE(new)) ||
1248          strcmp (TYPE_NAME(SYMBOL_TYPE(new)),
1249                     SYMBOL_NAME(new)))
1250          fprintf_filtered(stream, "%s = ", SYMBOL_NAME(new));
1251       else
1252          fprintf_filtered(stream, "<builtin> = ");
1253       type_print(type,"",stream,0);
1254       break;
1255 #endif
1256    default:
1257       error("Language not supported.");
1258    }
1259    fprintf_filtered(stream, ";\n");
1260 }
1261
1262
1263 /* Print a description of a type TYPE
1264    in the form of a declaration of a variable named VARSTRING.
1265    (VARSTRING is demangled if necessary.)
1266    Output goes to STREAM (via stdio).
1267    If SHOW is positive, we show the contents of the outermost level
1268    of structure even if there is a type name that could be used instead.
1269    If SHOW is negative, we never show the details of elements' types.  */
1270
1271 void
1272 type_print (type, varstring, stream, show)
1273      struct type *type;
1274      char *varstring;
1275      FILE *stream;
1276      int show;
1277 {
1278   type_print_1 (type, varstring, stream, show, 0);
1279 }
1280
1281 /* LEVEL is the depth to indent lines by.  */
1282
1283 void
1284 type_print_1 (type, varstring, stream, show, level)
1285      struct type *type;
1286      char *varstring;
1287      FILE *stream;
1288      int show;
1289      int level;
1290 {
1291   register enum type_code code;
1292   type_print_base (type, stream, show, level);
1293   code = TYPE_CODE (type);
1294   if ((varstring && *varstring)
1295       ||
1296       /* Need a space if going to print stars or brackets;
1297          but not if we will print just a type name.  */
1298       ((show > 0 || TYPE_NAME (type) == 0)
1299        &&
1300        (code == TYPE_CODE_PTR || code == TYPE_CODE_FUNC
1301         || code == TYPE_CODE_METHOD
1302         || code == TYPE_CODE_ARRAY
1303         || code == TYPE_CODE_MEMBER
1304         || code == TYPE_CODE_REF)))
1305     fprintf_filtered (stream, " ");
1306   type_print_varspec_prefix (type, stream, show, 0);
1307   fputs_demangled (varstring, stream, -1);      /* Print demangled name
1308                                                    without arguments */
1309   type_print_varspec_suffix (type, stream, show, 0);
1310 }
1311
1312 /* Print the method arguments ARGS to the file STREAM.  */
1313 static void
1314 type_print_method_args (args, prefix, varstring, staticp, stream)
1315      struct type **args;
1316      char *prefix, *varstring;
1317      int staticp;
1318      FILE *stream;
1319 {
1320   int i;
1321
1322   fputs_demangled (prefix, stream, 1);
1323   fputs_demangled (varstring, stream, 1);
1324   fputs_filtered (" (", stream);
1325   if (args && args[!staticp] && args[!staticp]->code != TYPE_CODE_VOID)
1326     {
1327       i = !staticp;             /* skip the class variable */
1328       while (1)
1329         {
1330           type_print (args[i++], "", stream, 0);
1331           if (!args[i])
1332             {
1333               fprintf_filtered (stream, " ...");
1334               break;
1335             }
1336           else if (args[i]->code != TYPE_CODE_VOID)
1337             {
1338               fprintf_filtered (stream, ", ");
1339             }
1340           else break;
1341         }
1342     }
1343   fprintf_filtered (stream, ")");
1344 }
1345
1346 /* If TYPE is a derived type, then print out derivation
1347    information.  Print out all layers of the type heirarchy
1348    until we encounter one with multiple inheritance.
1349    At that point, print out that ply, and return.  */
1350 static void
1351 type_print_derivation_info (stream, type)
1352      FILE *stream;
1353      struct type *type;
1354 {
1355   char *name;
1356   int i, n_baseclasses = TYPE_N_BASECLASSES (type);
1357   struct type *basetype = 0;
1358
1359   while (type && n_baseclasses > 0)
1360     {
1361       /* Not actually sure about this one -- Bryan. */
1362       check_stub_type (type);
1363
1364       fprintf_filtered (stream, ": ");
1365       for (i = 0; ;)
1366         {
1367           basetype = TYPE_BASECLASS (type, i);
1368           if (name = type_name_no_tag (basetype))
1369             {
1370               fprintf_filtered (stream, "%s%s ",
1371                        BASETYPE_VIA_PUBLIC(type, i) ? "public" : "private",
1372                        BASETYPE_VIA_VIRTUAL(type, i) ? " virtual" : "");
1373               fputs_filtered (name, stream);
1374             }
1375           i++;
1376           if (i >= n_baseclasses)
1377               break;
1378           fprintf_filtered (stream, ", ");
1379         }
1380
1381       fprintf_filtered (stream, " ");
1382       if (n_baseclasses != 1)
1383         break;
1384       n_baseclasses = TYPE_N_BASECLASSES (basetype);
1385       type = basetype;
1386     }
1387 }
1388
1389 /* Print any asterisks or open-parentheses needed before the
1390    variable name (to describe its type).
1391
1392    On outermost call, pass 0 for PASSED_A_PTR.
1393    On outermost call, SHOW > 0 means should ignore
1394    any typename for TYPE and show its details.
1395    SHOW is always zero on recursive calls.  */
1396
1397 static void
1398 type_print_varspec_prefix (type, stream, show, passed_a_ptr)
1399      struct type *type;
1400      FILE *stream;
1401      int show;
1402      int passed_a_ptr;
1403 {
1404   if (type == 0)
1405     return;
1406
1407   if (TYPE_NAME (type) && show <= 0)
1408     return;
1409
1410   QUIT;
1411
1412   switch (TYPE_CODE (type))
1413     {
1414     case TYPE_CODE_PTR:
1415       type_print_varspec_prefix (TYPE_TARGET_TYPE (type), stream, 0, 1);
1416       fprintf_filtered (stream, "*");
1417       break;
1418
1419     case TYPE_CODE_MEMBER:
1420       if (passed_a_ptr)
1421         fprintf_filtered (stream, "(");
1422       type_print_varspec_prefix (TYPE_TARGET_TYPE (type), stream, 0,
1423                                  0);
1424       fprintf_filtered (stream, " ");
1425       type_print_base (TYPE_DOMAIN_TYPE (type), stream, 0,
1426                        passed_a_ptr);
1427       fprintf_filtered (stream, "::");
1428       break;
1429
1430     case TYPE_CODE_METHOD:
1431       if (passed_a_ptr)
1432         fprintf (stream, "(");
1433       type_print_varspec_prefix (TYPE_TARGET_TYPE (type), stream, 0,
1434                                  0);
1435       if (passed_a_ptr)
1436         {
1437           fprintf_filtered (stream, " ");
1438           type_print_base (TYPE_DOMAIN_TYPE (type), stream, 0,
1439                            passed_a_ptr);
1440           fprintf_filtered (stream, "::");
1441         }
1442       break;
1443
1444     case TYPE_CODE_REF:
1445       type_print_varspec_prefix (TYPE_TARGET_TYPE (type), stream, 0, 1);
1446       fprintf_filtered (stream, "&");
1447       break;
1448
1449     case TYPE_CODE_FUNC:
1450       type_print_varspec_prefix (TYPE_TARGET_TYPE (type), stream, 0,
1451                                  0);
1452       if (passed_a_ptr)
1453         fprintf_filtered (stream, "(");
1454       break;
1455
1456     case TYPE_CODE_ARRAY:
1457       type_print_varspec_prefix (TYPE_TARGET_TYPE (type), stream, 0,
1458                                  0);
1459       if (passed_a_ptr)
1460         fprintf_filtered (stream, "(");
1461       break;
1462
1463     case TYPE_CODE_UNDEF:
1464     case TYPE_CODE_STRUCT:
1465     case TYPE_CODE_UNION:
1466     case TYPE_CODE_ENUM:
1467     case TYPE_CODE_INT:
1468     case TYPE_CODE_FLT:
1469     case TYPE_CODE_VOID:
1470     case TYPE_CODE_ERROR:
1471     case TYPE_CODE_CHAR:
1472     case TYPE_CODE_BOOL:
1473       /* These types need no prefix.  They are listed here so that
1474          gcc -Wall will reveal any types that haven't been handled.  */
1475       break;
1476     }
1477 }
1478
1479 /* Print any array sizes, function arguments or close parentheses
1480    needed after the variable name (to describe its type).
1481    Args work like type_print_varspec_prefix.  */
1482
1483 static void
1484 type_print_varspec_suffix (type, stream, show, passed_a_ptr)
1485      struct type *type;
1486      FILE *stream;
1487      int show;
1488      int passed_a_ptr;
1489 {
1490   if (type == 0)
1491     return;
1492
1493   if (TYPE_NAME (type) && show <= 0)
1494     return;
1495
1496   QUIT;
1497
1498   switch (TYPE_CODE (type))
1499     {
1500     case TYPE_CODE_ARRAY:
1501       if (passed_a_ptr)
1502         fprintf_filtered (stream, ")");
1503
1504       fprintf_filtered (stream, "[");
1505       if (TYPE_LENGTH (type) > 0
1506           && TYPE_LENGTH (TYPE_TARGET_TYPE (type)) > 0)
1507         fprintf_filtered (stream, "%d",
1508                           (TYPE_LENGTH (type)
1509                            / TYPE_LENGTH (TYPE_TARGET_TYPE (type))));
1510       fprintf_filtered (stream, "]");
1511
1512       type_print_varspec_suffix (TYPE_TARGET_TYPE (type), stream, 0,
1513                                  0);
1514       break;
1515
1516     case TYPE_CODE_MEMBER:
1517       if (passed_a_ptr)
1518         fprintf_filtered (stream, ")");
1519       type_print_varspec_suffix (TYPE_TARGET_TYPE (type), stream, 0, 0);
1520       break;
1521
1522     case TYPE_CODE_METHOD:
1523       if (passed_a_ptr)
1524         fprintf_filtered (stream, ")");
1525       type_print_varspec_suffix (TYPE_TARGET_TYPE (type), stream, 0, 0);
1526       if (passed_a_ptr)
1527         {
1528           int i;
1529           struct type **args = TYPE_ARG_TYPES (type);
1530
1531           fprintf_filtered (stream, "(");
1532           if (args[1] == 0)
1533             fprintf_filtered (stream, "...");
1534           else for (i = 1; args[i] != 0 && args[i]->code != TYPE_CODE_VOID; i++)
1535             {
1536               type_print_1 (args[i], "", stream, -1, 0);
1537               if (args[i+1] == 0)
1538                 fprintf_filtered (stream, "...");
1539               else if (args[i+1]->code != TYPE_CODE_VOID) {
1540                 fprintf_filtered (stream, ",");
1541                 wrap_here ("    ");
1542               }
1543             }
1544           fprintf_filtered (stream, ")");
1545         }
1546       break;
1547
1548     case TYPE_CODE_PTR:
1549     case TYPE_CODE_REF:
1550       type_print_varspec_suffix (TYPE_TARGET_TYPE (type), stream, 0, 1);
1551       break;
1552
1553     case TYPE_CODE_FUNC:
1554       type_print_varspec_suffix (TYPE_TARGET_TYPE (type), stream, 0,
1555                                  passed_a_ptr);
1556       if (passed_a_ptr)
1557         fprintf_filtered (stream, ")");
1558       fprintf_filtered (stream, "()");
1559       break;
1560
1561     case TYPE_CODE_UNDEF:
1562     case TYPE_CODE_STRUCT:
1563     case TYPE_CODE_UNION:
1564     case TYPE_CODE_ENUM:
1565     case TYPE_CODE_INT:
1566     case TYPE_CODE_FLT:
1567     case TYPE_CODE_VOID:
1568     case TYPE_CODE_ERROR:
1569     case TYPE_CODE_CHAR:
1570     case TYPE_CODE_BOOL:
1571       /* These types do not need a suffix.  They are listed so that
1572          gcc -Wall will report types that may not have been considered.  */
1573       break;
1574     }
1575 }
1576
1577 /* Print the name of the type (or the ultimate pointer target,
1578    function value or array element), or the description of a
1579    structure or union.
1580
1581    SHOW nonzero means don't print this type as just its name;
1582    show its real definition even if it has a name.
1583    SHOW zero means print just typename or struct tag if there is one
1584    SHOW negative means abbreviate structure elements.
1585    SHOW is decremented for printing of structure elements.
1586
1587    LEVEL is the depth to indent by.
1588    We increase it for some recursive calls.  */
1589
1590 static void
1591 type_print_base (type, stream, show, level)
1592      struct type *type;
1593      FILE *stream;
1594      int show;
1595      int level;
1596 {
1597   char *name;
1598   register int i;
1599   register int len;
1600   register int lastval;
1601
1602   QUIT;
1603
1604   wrap_here ("    ");
1605   if (type == 0)
1606     {
1607       fprintf_filtered (stream, "<type unknown>");
1608       return;
1609     }
1610
1611   if (TYPE_NAME (type) && show <= 0)
1612     {
1613       fputs_filtered (TYPE_NAME (type), stream);
1614       return;
1615     }
1616
1617   switch (TYPE_CODE (type))
1618     {
1619     case TYPE_CODE_ARRAY:
1620     case TYPE_CODE_PTR:
1621     case TYPE_CODE_MEMBER:
1622     case TYPE_CODE_REF:
1623     case TYPE_CODE_FUNC:
1624     case TYPE_CODE_METHOD:
1625       type_print_base (TYPE_TARGET_TYPE (type), stream, show, level);
1626       break;
1627
1628     case TYPE_CODE_STRUCT:
1629       fprintf_filtered (stream, "struct ");
1630       goto struct_union;
1631
1632     case TYPE_CODE_UNION:
1633       fprintf_filtered (stream, "union ");
1634     struct_union:
1635       if (name = type_name_no_tag (type))
1636         {
1637           fputs_filtered (name, stream);
1638           fputs_filtered (" ", stream);
1639           wrap_here ("    ");
1640         }
1641       if (show < 0)
1642         fprintf_filtered (stream, "{...}");
1643       else
1644         {
1645           check_stub_type (type);
1646
1647           type_print_derivation_info (stream, type);
1648
1649           fprintf_filtered (stream, "{");
1650           len = TYPE_NFIELDS (type);
1651           if (len)
1652             fprintf_filtered (stream, "\n");
1653           else
1654             {
1655               if (TYPE_FLAGS (type) & TYPE_FLAG_STUB)
1656                 fprintf_filtered (stream, "<incomplete type>\n");
1657               else
1658                 fprintf_filtered (stream, "<no data fields>\n");
1659             }
1660
1661           /* If there is a base class for this type,
1662              do not print the field that it occupies.  */
1663           for (i = TYPE_N_BASECLASSES (type); i < len; i++)
1664             {
1665               QUIT;
1666               /* Don't print out virtual function table.  */
1667               if ((TYPE_FIELD_NAME (type, i))[5] == CPLUS_MARKER &&
1668                   !strncmp (TYPE_FIELD_NAME (type, i), "_vptr", 5))
1669                 continue;
1670
1671               print_spaces_filtered (level + 4, stream);
1672               if (TYPE_FIELD_STATIC (type, i))
1673                 {
1674                   fprintf_filtered (stream, "static ");
1675                 }
1676               type_print_1 (TYPE_FIELD_TYPE (type, i),
1677                             TYPE_FIELD_NAME (type, i),
1678                             stream, show - 1, level + 4);
1679               if (!TYPE_FIELD_STATIC (type, i)
1680                   && TYPE_FIELD_PACKED (type, i))
1681                 {
1682                   /* It is a bitfield.  This code does not attempt
1683                      to look at the bitpos and reconstruct filler,
1684                      unnamed fields.  This would lead to misleading
1685                      results if the compiler does not put out fields
1686                      for such things (I don't know what it does).  */
1687                   fprintf_filtered (stream, " : %d",
1688                                     TYPE_FIELD_BITSIZE (type, i));
1689                 }
1690               fprintf_filtered (stream, ";\n");
1691             }
1692
1693           /* C++: print out the methods */
1694           len = TYPE_NFN_FIELDS (type);
1695           if (len) fprintf_filtered (stream, "\n");
1696           for (i = 0; i < len; i++)
1697             {
1698               struct fn_field *f = TYPE_FN_FIELDLIST1 (type, i);
1699               int j, len2 = TYPE_FN_FIELDLIST_LENGTH (type, i);
1700               char *method_name = TYPE_FN_FIELDLIST_NAME (type, i);
1701               int is_constructor = strcmp(method_name, TYPE_NAME (type)) == 0;
1702               for (j = 0; j < len2; j++)
1703                 {
1704                   QUIT;
1705                   print_spaces_filtered (level + 4, stream);
1706                   if (TYPE_FN_FIELD_VIRTUAL_P (f, j))
1707                     fprintf_filtered (stream, "virtual ");
1708                   else if (TYPE_FN_FIELD_STATIC_P (f, j))
1709                     fprintf_filtered (stream, "static ");
1710                   if (TYPE_TARGET_TYPE (TYPE_FN_FIELD_TYPE (f, j)) == 0)
1711                     {
1712                       /* Keep GDB from crashing here.  */
1713                       fprintf (stream, "<undefined type> %s;\n",
1714                                TYPE_FN_FIELD_PHYSNAME (f, j));
1715                       break;
1716                     }
1717                   else if (!is_constructor)
1718                     {
1719                       type_print (TYPE_TARGET_TYPE (TYPE_FN_FIELD_TYPE (f, j)),
1720                                   "", stream, 0);
1721                       fputs_filtered (" ", stream);
1722                     }
1723                   if (TYPE_FN_FIELD_STUB (f, j))
1724                     {
1725                       /* Build something we can demangle.  */
1726                       char *strchr (), *gdb_mangle_name (), *cplus_demangle ();
1727                       char *mangled_name = gdb_mangle_name (type, i, j);
1728                       char *demangled_name = cplus_demangle (mangled_name, 1);
1729                       if (demangled_name == 0)
1730                         fprintf_filtered (stream, "<badly mangled name %s>",
1731                             mangled_name);
1732                       else
1733                         {
1734                           fprintf_filtered (stream, "%s",
1735                               strchr (demangled_name, ':') + 2);
1736                           free (demangled_name);
1737                         }
1738                       free (mangled_name);
1739                     }
1740                   else if (TYPE_FN_FIELD_PHYSNAME (f, j)[0] == '_'
1741                         && TYPE_FN_FIELD_PHYSNAME (f, j)[1] == CPLUS_MARKER)
1742                     type_print_method_args
1743                       (TYPE_FN_FIELD_ARGS (f, j) + 1, "~",
1744                        method_name, 0, stream);
1745                   else
1746                     type_print_method_args
1747                       (TYPE_FN_FIELD_ARGS (f, j), "",
1748                        method_name,
1749                        TYPE_FN_FIELD_STATIC_P (f, j), stream);
1750
1751                   fprintf_filtered (stream, ";\n");
1752                 }
1753             }
1754
1755           print_spaces_filtered (level, stream);
1756           fprintf_filtered (stream, "}");
1757         }
1758       break;
1759
1760     case TYPE_CODE_ENUM:
1761       fprintf_filtered (stream, "enum ");
1762       if (name = type_name_no_tag (type))
1763         {
1764           fputs_filtered (name, stream);
1765           fputs_filtered (" ", stream);
1766         }
1767       wrap_here ("    ");
1768       if (show < 0)
1769         fprintf_filtered (stream, "{...}");
1770       else
1771         {
1772           fprintf_filtered (stream, "{");
1773           len = TYPE_NFIELDS (type);
1774           lastval = 0;
1775           for (i = 0; i < len; i++)
1776             {
1777               QUIT;
1778               if (i) fprintf_filtered (stream, ", ");
1779               wrap_here ("    ");
1780               fputs_filtered (TYPE_FIELD_NAME (type, i), stream);
1781               if (lastval != TYPE_FIELD_BITPOS (type, i))
1782                 {
1783                   fprintf_filtered (stream, " = %d", TYPE_FIELD_BITPOS (type, i));
1784                   lastval = TYPE_FIELD_BITPOS (type, i);
1785                 }
1786               lastval++;
1787             }
1788           fprintf_filtered (stream, "}");
1789         }
1790       break;
1791
1792     case TYPE_CODE_INT:
1793       name = 0;
1794       if (TYPE_LENGTH (type) <= sizeof (LONGEST))
1795         {
1796           if (TYPE_UNSIGNED (type))
1797             name = unsigned_type_table[TYPE_LENGTH (type)];
1798           else
1799             name = signed_type_table[TYPE_LENGTH (type)];
1800         }
1801       if (name)
1802         fputs_filtered (name, stream);
1803       else
1804         fprintf_filtered (stream, "<%d bit integer>",
1805                           TYPE_LENGTH (type) * TARGET_CHAR_BIT);
1806       break;
1807
1808     case TYPE_CODE_FLT:
1809       name = float_type_table[TYPE_LENGTH (type)];
1810       fputs_filtered (name, stream);
1811       break;
1812
1813     case TYPE_CODE_VOID:
1814       fprintf_filtered (stream, "void");
1815       break;
1816
1817     case TYPE_CODE_UNDEF:
1818       fprintf_filtered (stream, "struct <unknown>");
1819       break;
1820
1821     case TYPE_CODE_ERROR:
1822       fprintf_filtered (stream, "<unknown type>");
1823       break;
1824
1825     case TYPE_CODE_RANGE:
1826       /* This should not occur */
1827       fprintf_filtered (stream, "<range type>");
1828       break;
1829
1830     default:
1831       error ("Invalid type code in symbol table.");
1832     }
1833 }
1834 \f
1835 #if 0
1836 /* Validate an input or output radix setting, and make sure the user
1837    knows what they really did here.  Radix setting is confusing, e.g.
1838    setting the input radix to "10" never changes it!  */
1839
1840 /* ARGSUSED */
1841 static void
1842 set_input_radix (args, from_tty, c)
1843      char *args;
1844      int from_tty;
1845      struct cmd_list_element *c;
1846 {
1847   unsigned radix = *(unsigned *)c->var;
1848
1849   if (from_tty)
1850     printf_filtered ("Input radix set to decimal %d, hex %x, octal %o\n",
1851         radix, radix, radix);
1852 }
1853 #endif
1854
1855 /* ARGSUSED */
1856 static void
1857 set_output_radix (args, from_tty, c)
1858      char *args;
1859      int from_tty;
1860      struct cmd_list_element *c;
1861 {
1862   unsigned radix = *(unsigned *)c->var;
1863
1864   if (from_tty)
1865     printf_filtered ("Output radix set to decimal %d, hex %x, octal %o\n",
1866         radix, radix, radix);
1867
1868   /* FIXME, we really should be able to validate the setting BEFORE
1869      it takes effect.  */
1870   switch (radix)
1871     {
1872     case 16:
1873       output_format = 'x';
1874       break;
1875     case 10:
1876       output_format = 0;
1877       break;
1878     case 8:
1879       output_format = 'o';              /* octal */
1880       break;
1881     default:
1882       output_format = 0;
1883       error ("Unsupported radix ``decimal %d''; using decimal output",
1884               radix);
1885     }
1886 }
1887
1888 /* Both at once */
1889 static void
1890 set_radix (arg, from_tty, c)
1891      char *arg;
1892      int from_tty;
1893      struct cmd_list_element *c;
1894 {
1895   unsigned radix = *(unsigned *)c->var;
1896
1897   if (from_tty)
1898     printf_filtered ("Radix set to decimal %d, hex %x, octal %o\n",
1899         radix, radix, radix);
1900
1901   input_radix = radix;
1902   output_radix = radix;
1903
1904   set_output_radix (arg, 0, c);
1905 }
1906 \f
1907 struct cmd_list_element *setprintlist = NULL;
1908 struct cmd_list_element *showprintlist = NULL;
1909
1910 /*ARGSUSED*/
1911 static void
1912 set_print (arg, from_tty)
1913      char *arg;
1914      int from_tty;
1915 {
1916   printf (
1917 "\"set print\" must be followed by the name of a print subcommand.\n");
1918   help_list (setprintlist, "set print ", -1, stdout);
1919 }
1920
1921 /*ARGSUSED*/
1922 static void
1923 show_print (args, from_tty)
1924      char *args;
1925      int from_tty;
1926 {
1927   cmd_show_list (showprintlist, from_tty, "");
1928 }
1929 \f
1930 void
1931 _initialize_valprint ()
1932 {
1933   struct cmd_list_element *c;
1934
1935   add_prefix_cmd ("print", no_class, set_print,
1936                   "Generic command for setting how things print.",
1937                   &setprintlist, "set print ", 0, &setlist);
1938   add_alias_cmd ("p", "print", no_class, 1, &setlist);
1939   add_alias_cmd ("pr", "print", no_class, 1, &setlist); /* prefer set print
1940                                                                                                                    to     set prompt */
1941   add_prefix_cmd ("print", no_class, show_print,
1942                   "Generic command for showing print settings.",
1943                   &showprintlist, "show print ", 0, &showlist);
1944   add_alias_cmd ("p", "print", no_class, 1, &showlist);
1945   add_alias_cmd ("pr", "print", no_class, 1, &showlist);
1946
1947   add_show_from_set
1948     (add_set_cmd ("elements", no_class, var_uinteger, (char *)&print_max,
1949                   "Set limit on string chars or array elements to print.\n\
1950 \"set print elements 0\" causes there to be no limit.",
1951                   &setprintlist),
1952      &showprintlist);
1953
1954   add_show_from_set
1955     (add_set_cmd ("pretty", class_support, var_boolean, (char *)&prettyprint,
1956                   "Set prettyprinting of structures.",
1957                   &setprintlist),
1958      &showprintlist);
1959
1960   add_show_from_set
1961     (add_set_cmd ("union", class_support, var_boolean, (char *)&unionprint,
1962                   "Set printing of unions interior to structures.",
1963                   &setprintlist),
1964      &showprintlist);
1965
1966   add_show_from_set
1967     (add_set_cmd ("vtbl", class_support, var_boolean, (char *)&vtblprint,
1968                   "Set printing of C++ virtual function tables.",
1969                   &setprintlist),
1970      &showprintlist);
1971
1972   add_show_from_set
1973     (add_set_cmd ("array", class_support, var_boolean, (char *)&arrayprint,
1974                   "Set prettyprinting of arrays.",
1975                   &setprintlist),
1976      &showprintlist);
1977
1978   add_show_from_set
1979     (add_set_cmd ("object", class_support, var_boolean, (char *)&objectprint,
1980           "Set printing of object's derived type based on vtable info.",
1981                   &setprintlist),
1982      &showprintlist);
1983
1984   add_show_from_set
1985     (add_set_cmd ("address", class_support, var_boolean, (char *)&addressprint,
1986                   "Set printing of addresses.",
1987                   &setprintlist),
1988      &showprintlist);
1989
1990 #if 0
1991   /* The "show radix" cmd isn't good enough to show two separate values.
1992      The rest of the code works, but the show part is confusing, so don't
1993      let them be set separately 'til we work out "show".  */
1994   c = add_set_cmd ("input-radix", class_support, var_uinteger,
1995                    (char *)&input_radix,
1996                   "Set default input radix for entering numbers.",
1997                   &setlist);
1998   add_show_from_set (c, &showlist);
1999   c->function = set_input_radix;
2000
2001   c = add_set_cmd ("output-radix", class_support, var_uinteger,
2002                    (char *)&output_radix,
2003                   "Set default output radix for printing of values.",
2004                   &setlist);
2005   add_show_from_set (c, &showlist);
2006   c->function = set_output_radix;
2007 #endif
2008
2009   c = add_set_cmd ("radix", class_support, var_uinteger,
2010                    (char *)&output_radix,
2011                   "Set default input and output number radix.",
2012                   &setlist);
2013   add_show_from_set (c, &showlist);
2014   c->function = set_radix;
2015
2016   /* Give people the defaults which they are used to.  */
2017   prettyprint = 0;
2018   unionprint = 1;
2019   vtblprint = 0;
2020   arrayprint = 0;
2021   addressprint = 1;
2022   objectprint = 0;
2023
2024   print_max = 200;
2025
2026   /* Initialize the names of the various types based on their lengths on
2027      the target, in bits.  Note that ordering is important, so that for example,
2028      if ints and longs are the same size, that size will default to "int". */
2029
2030   unsigned_type_table = (char **)
2031     xmalloc ((1 + (TARGET_LONG_LONG_BIT/TARGET_CHAR_BIT)) * sizeof (char *));
2032   bzero (unsigned_type_table, (1 + (TARGET_LONG_LONG_BIT/TARGET_CHAR_BIT)));
2033   unsigned_type_table[TARGET_CHAR_BIT/TARGET_CHAR_BIT] = "unsigned char";
2034   unsigned_type_table[TARGET_SHORT_BIT/TARGET_CHAR_BIT] = "unsigned short";
2035   unsigned_type_table[TARGET_LONG_LONG_BIT/TARGET_CHAR_BIT] = "unsigned long long";
2036   unsigned_type_table[TARGET_LONG_BIT/TARGET_CHAR_BIT] = "unsigned long";
2037   unsigned_type_table[TARGET_INT_BIT/TARGET_CHAR_BIT] = "unsigned int";
2038
2039   signed_type_table = (char **)
2040     xmalloc ((1 + (TARGET_LONG_LONG_BIT/TARGET_CHAR_BIT)) * sizeof (char *));
2041   bzero (signed_type_table, (1 + (TARGET_LONG_LONG_BIT/TARGET_CHAR_BIT)));
2042   signed_type_table[TARGET_CHAR_BIT/TARGET_CHAR_BIT] = "char";
2043   signed_type_table[TARGET_SHORT_BIT/TARGET_CHAR_BIT] = "short";
2044   signed_type_table[TARGET_LONG_LONG_BIT/TARGET_CHAR_BIT] = "long long";
2045   signed_type_table[TARGET_LONG_BIT/TARGET_CHAR_BIT] = "long";
2046   signed_type_table[TARGET_INT_BIT/TARGET_CHAR_BIT] = "int";
2047
2048   float_type_table = (char **)
2049     xmalloc ((1 + (TARGET_LONG_DOUBLE_BIT/TARGET_CHAR_BIT)) * sizeof (char *));
2050   bzero (float_type_table, (1 + (TARGET_LONG_DOUBLE_BIT/TARGET_CHAR_BIT)));
2051   float_type_table[TARGET_FLOAT_BIT/TARGET_CHAR_BIT] = "float";
2052   float_type_table[TARGET_DOUBLE_COMPLEX_BIT/TARGET_CHAR_BIT] = "double complex";
2053   float_type_table[TARGET_COMPLEX_BIT/TARGET_CHAR_BIT] = "complex";
2054   float_type_table[TARGET_LONG_DOUBLE_BIT/TARGET_CHAR_BIT] = "long double";
2055   float_type_table[TARGET_DOUBLE_BIT/TARGET_CHAR_BIT] = "double";
2056
2057   obstack_begin (&dont_print_obstack, 32 * sizeof (struct type *));
2058 }