This is the mail archive of the
gdb-patches@sources.redhat.com
mailing list for the GDB project.
[PATCH] [2/5] Use DWARF-2 DW_AT_artificial information
- From: Daniel Jacobowitz <drow at mvista dot com>
- To: gdb-patches at sources dot redhat dot com
- Date: Tue, 15 Jan 2002 15:28:44 -0500
- Subject: [PATCH] [2/5] Use DWARF-2 DW_AT_artificial information
This one's stunningly obvious. More C++ specific functions that ended up in
the Pascal and Fortran type printers for copy/paste reasons. It wasn't
compatible with some of my other changes, so rather than updating it, I just
purged it.
I'll commit it when I commit the others.
--
Daniel Jacobowitz Carnegie Mellon University
MontaVista Software Debian GNU/Linux Developer
2002-01-15 Daniel Jacobowitz <drow@mvista.com>
* f-typeprint.c: Delete unused function f_type_print_args.
* p-typeprint.c: Delete unused function pascal_type_print_args.
diff -ur src-p1/gdb/f-typeprint.c src-final/gdb/f-typeprint.c
--- src-p1/gdb/f-typeprint.c Tue Jan 15 14:25:54 2002
+++ src-final/gdb/f-typeprint.c Tue Jan 15 14:30:21 2002
@@ -146,42 +146,6 @@
}
}
-#if 0 /* Currently unused */
-
-static void
-f_type_print_args (struct type *type, struct ui_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++)
- {
- f_print_type (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, ")");
-}
-
-#endif /* 0 */
-
/* Print any array sizes, function arguments or close parentheses
needed after the variable name (to describe its type).
Args work like c_type_print_varspec_prefix. */
diff -ur src-p1/gdb/p-typeprint.c src-final/gdb/p-typeprint.c
--- src-p1/gdb/p-typeprint.c Tue Jan 15 14:25:54 2002
+++ src-final/gdb/p-typeprint.c Tue Jan 15 14:30:22 2002
@@ -37,8 +37,6 @@
#include <errno.h>
#include <ctype.h>
-static void pascal_type_print_args (struct type *, struct ui_file *);
-
static void pascal_type_print_varspec_suffix (struct type *, struct ui_file *, int, int, int);
static void pascal_type_print_derivation_info (struct ui_file *, struct type *);
@@ -302,52 +300,6 @@
}
static void
-pascal_type_print_args (struct type *type, struct ui_file *stream)
-{
- int i;
- struct type **args;
-
- /* fprintf_filtered (stream, "(");
- no () for procedures !! */
- args = TYPE_ARG_TYPES (type);
- if (args != NULL)
- {
- if ((args[1] != NULL && args[1]->code != TYPE_CODE_VOID) ||
- (args[2] != NULL))
- {
- fprintf_filtered (stream, "(");
- }
- if (args[1] == NULL)
- {
- fprintf_filtered (stream, "...");
- }
- else
- {
- for (i = 1;
- args[i] != NULL && args[i]->code != TYPE_CODE_VOID;
- i++)
- {
- pascal_print_type (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 (" ");
- }
- }
- }
- if ((args[1] != NULL && args[1]->code != TYPE_CODE_VOID) ||
- (args[2] != NULL))
- {
- fprintf_filtered (stream, ")");
- }
- }
-}
-
-static void
pascal_print_func_args (struct type *type, struct ui_file *stream)
{
int i, len = TYPE_NFIELDS (type);
@@ -412,7 +364,6 @@
pascal_type_print_method_args ("",
"",
stream);
- /* pascal_type_print_args (type, stream); */
if (TYPE_CODE (TYPE_TARGET_TYPE (type)) != TYPE_CODE_VOID)
{
fprintf_filtered (stream, " : ");