From 9e4667f601427629466f6e255f3aabb8d4610f97 Mon Sep 17 00:00:00 2001 From: Fred Fish Date: Mon, 3 Aug 1992 07:28:46 +0000 Subject: [PATCH] * configure.in: Recognize i486 host cpu. * valprint.c (type_print_derivation_info): Print derivation info in same form as class declarations in source. * valprint.c (type_print_varspec_suffix): Split arg printing code out to type_print_args function. --- gdb/ChangeLog | 8 +++ gdb/configure.in | 4 +- gdb/valprint.c | 182 ++++++++++++++++++++++++++++++----------------- 3 files changed, 126 insertions(+), 68 deletions(-) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 9edb02d7044..97b142fcbd8 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,11 @@ +Mon Aug 3 00:25:56 1992 Fred Fish (fnf@cygnus.com) + + * configure.in: Recognize i486 host cpu. + * valprint.c (type_print_derivation_info): Print derivation info + in same form as class declarations in source. + * valprint.c (type_print_varspec_suffix): Split arg printing + code out to type_print_args function. + Sat Aug 1 13:32:58 1992 Fred Fish (fnf@cygnus.com) * dwarfread.c (struct dieinfo): Remove obsolete at_visibility, diff --git a/gdb/configure.in b/gdb/configure.in index 37749c9dddf..0face2918fd 100644 --- a/gdb/configure.in +++ b/gdb/configure.in @@ -94,7 +94,7 @@ i860) gdb_host=stratus ;; -i386) +i386 | i486) case "${host_vendor}" in sun) gdb_host=sun386 ;; sco) gdb_host=i386sco ;; @@ -304,7 +304,7 @@ h8300) i860) gdb_target=stratus ;; -i386) +i386 | i486) case "${target_vendor}" in sco) gdb_target=i386sco ;; sun) gdb_target=sun386 ;; diff --git a/gdb/valprint.c b/gdb/valprint.c index 0f4d27602c4..ac1611fc5aa 100644 --- a/gdb/valprint.c +++ b/gdb/valprint.c @@ -51,6 +51,9 @@ set_output_radix PARAMS ((char *, int, struct cmd_list_element *)); static void type_print_base PARAMS ((struct type *, FILE *, int, int)); +static void +type_print_args PARAMS ((struct type *, FILE *)); + static void type_print_varspec_suffix PARAMS ((struct type *, FILE *, int, int, int)); @@ -1431,46 +1434,46 @@ type_print_method_args (args, prefix, varstring, staticp, stream) fprintf_filtered (stream, ")"); } -/* If TYPE is a derived type, then print out derivation - information. Print out all layers of the type heirarchy - until we encounter one with multiple inheritance. - At that point, print out that ply, and return. */ +/* If TYPE is a derived type, then print out derivation information. + Print only the actual base classes of this type, not the base classes + of the base classes. I.E. for the derivation hierarchy: + + class A { int a; }; + class B : public A {int b; }; + class C : public B {int c; }; + + Print the type of class C as: + + class C : public B { + int c; + } + + Not as the following (like gdb used to), which is not legal C++ syntax for + derived types and may be confused with the multiple inheritance form: + + class C : public B : public A { + int c; + } + + In general, gdb should try to print the types as closely as possible to + the form that they appear in the source code. */ + static void type_print_derivation_info (stream, type) FILE *stream; struct type *type; { char *name; - int i, n_baseclasses = TYPE_N_BASECLASSES (type); - struct type *basetype = 0; + int i; - while (type && n_baseclasses > 0) + for (i = 0; i < TYPE_N_BASECLASSES (type); i++) { - /* Not actually sure about this one -- Bryan. */ - check_stub_type (type); - - fprintf_filtered (stream, ": "); - for (i = 0; ;) - { - basetype = TYPE_BASECLASS (type, i); - if (name = type_name_no_tag (basetype)) - { - fprintf_filtered (stream, "%s%s ", - BASETYPE_VIA_PUBLIC(type, i) ? "public" : "private", - BASETYPE_VIA_VIRTUAL(type, i) ? " virtual" : ""); - fputs_filtered (name, stream); - } - i++; - if (i >= n_baseclasses) - break; - fprintf_filtered (stream, ", "); - } - - fprintf_filtered (stream, " "); - if (n_baseclasses != 1) - break; - n_baseclasses = TYPE_N_BASECLASSES (basetype); - type = basetype; + fputs_filtered (i == 0 ? ": " : ", ", stream); + fprintf_filtered (stream, "%s%s ", + BASETYPE_VIA_PUBLIC (type, i) ? "public" : "private", + BASETYPE_VIA_VIRTUAL(type, i) ? " virtual" : ""); + name = type_name_no_tag (TYPE_BASECLASS (type, i)); + fprintf_filtered (stream, "%s ", name ? name : "(null)"); } } @@ -1571,6 +1574,44 @@ type_print_varspec_prefix (type, stream, show, passed_a_ptr) } } +static void +type_print_args (type, stream) + struct type *type; + FILE *stream; +{ + int i; + struct type **args; + + fprintf_filtered (stream, "("); + args = TYPE_ARG_TYPES (type); + if (args != NULL) + { + if (args[1] == NULL) + { + fprintf_filtered (stream, "..."); + } + else + { + for (i = 1; + args[i] != NULL && args[i]->code != TYPE_CODE_VOID; + i++) + { + type_print_1 (args[i], "", stream, -1, 0); + if (args[i+1] == NULL) + { + fprintf_filtered (stream, "..."); + } + else if (args[i+1]->code != TYPE_CODE_VOID) + { + fprintf_filtered (stream, ","); + wrap_here (" "); + } + } + } + } + fprintf_filtered (stream, ")"); +} + /* Print any array sizes, function arguments or close parentheses needed after the variable name (to describe its type). Args work like type_print_varspec_prefix. */ @@ -1621,23 +1662,7 @@ type_print_varspec_suffix (type, stream, show, passed_a_ptr, demangled_args) type_print_varspec_suffix (TYPE_TARGET_TYPE (type), stream, 0, 0, 0); if (passed_a_ptr) { - int i; - struct type **args = TYPE_ARG_TYPES (type); - - fprintf_filtered (stream, "("); - if (args[1] == 0) - fprintf_filtered (stream, "..."); - else for (i = 1; args[i] != 0 && args[i]->code != TYPE_CODE_VOID; i++) - { - type_print_1 (args[i], "", stream, -1, 0); - if (args[i+1] == 0) - fprintf_filtered (stream, "..."); - else if (args[i+1]->code != TYPE_CODE_VOID) { - fprintf_filtered (stream, ","); - wrap_here (" "); - } - } - fprintf_filtered (stream, ")"); + type_print_args (type, stream); } break; @@ -1752,22 +1777,25 @@ type_print_base (type, stream, show, level) type_print_derivation_info (stream, type); - fprintf_filtered (stream, "{"); - len = TYPE_NFIELDS (type); - if (len) - fprintf_filtered (stream, "\n"); - else + fprintf_filtered (stream, "{\n"); + if ((TYPE_NFIELDS (type) == 0) && (TYPE_NFN_FIELDS (type) == 0)) { if (TYPE_FLAGS (type) & TYPE_FLAG_STUB) - fprintf_filtered (stream, "\n"); + fprintfi_filtered (level + 4, stream, "\n"); else - fprintf_filtered (stream, "\n"); + fprintfi_filtered (level + 4, stream, "\n"); } + /* Start off with no specific section type, so we can print + one for the first field we find, and use that section type + thereafter until we find another type. */ + + section_type = s_none; + /* If there is a base class for this type, do not print the field that it occupies. */ - section_type = s_none; + len = TYPE_NFIELDS (type); for (i = TYPE_N_BASECLASSES (type); i < len; i++) { QUIT; @@ -1786,8 +1814,8 @@ type_print_base (type, stream, show, level) if (section_type != s_protected) { section_type = s_protected; - print_spaces_filtered (level + 4, stream); - fprintf_filtered (stream, "protected:\n"); + fprintfi_filtered (level + 2, stream, + "protected:\n"); } } else if (TYPE_FIELD_PRIVATE (type, i)) @@ -1795,8 +1823,7 @@ type_print_base (type, stream, show, level) if (section_type != s_private) { section_type = s_private; - print_spaces_filtered (level + 4, stream); - fprintf_filtered (stream, "private:\n"); + fprintfi_filtered (level + 2, stream, "private:\n"); } } else @@ -1804,8 +1831,7 @@ type_print_base (type, stream, show, level) if (section_type != s_public) { section_type = s_public; - print_spaces_filtered (level + 4, stream); - fprintf_filtered (stream, "public:\n"); + fprintfi_filtered (level + 2, stream, "public:\n"); } } } @@ -1834,7 +1860,6 @@ type_print_base (type, stream, show, level) /* C++: print out the methods */ len = TYPE_NFN_FIELDS (type); - if (len) fprintf_filtered (stream, "\n"); for (i = 0; i < len; i++) { struct fn_field *f = TYPE_FN_FIELDLIST1 (type, i); @@ -1844,6 +1869,32 @@ type_print_base (type, stream, show, level) for (j = 0; j < len2; j++) { QUIT; + if (TYPE_FN_FIELD_PROTECTED (f, j)) + { + if (section_type != s_protected) + { + section_type = s_protected; + fprintfi_filtered (level + 2, stream, + "protected:\n"); + } + } + else if (TYPE_FN_FIELD_PRIVATE (f, j)) + { + if (section_type != s_private) + { + section_type = s_private; + fprintfi_filtered (level + 2, stream, "private:\n"); + } + } + else + { + if (section_type != s_public) + { + section_type = s_public; + fprintfi_filtered (level + 2, stream, "public:\n"); + } + } + print_spaces_filtered (level + 4, stream); if (TYPE_FN_FIELD_VIRTUAL_P (f, j)) fprintf_filtered (stream, "virtual "); @@ -1895,8 +1946,7 @@ type_print_base (type, stream, show, level) } } - print_spaces_filtered (level, stream); - fprintf_filtered (stream, "}"); + fprintfi_filtered (level, stream, "}"); } break; -- 2.30.2