From c3643761b529c626359e748495650a91407fc188 Mon Sep 17 00:00:00 2001 From: Daniel Jacobowitz Date: Sun, 20 Jan 2002 19:14:59 +0000 Subject: 2002-01-20 Daniel Jacobowitz * f-typeprint.c: Delete unused function f_type_print_args. * p-typeprint.c: Delete unused function pascal_type_print_args. --- gdb/ChangeLog | 5 +++++ gdb/f-typeprint.c | 36 ------------------------------------ gdb/p-typeprint.c | 49 ------------------------------------------------- 3 files changed, 5 insertions(+), 85 deletions(-) (limited to 'gdb') diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 0fa3015..73ddf08 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,5 +1,10 @@ 2002-01-20 Daniel Jacobowitz + * f-typeprint.c: Delete unused function f_type_print_args. + * p-typeprint.c: Delete unused function pascal_type_print_args. + +2002-01-20 Daniel Jacobowitz + * gdbtypes.h (struct type): Fix whitespace. Remove obsolete comment. Add ``artificial'' to ``union field_location''. diff --git a/gdb/f-typeprint.c b/gdb/f-typeprint.c index 6e2f8b0..727f2ee 100644 --- a/gdb/f-typeprint.c +++ b/gdb/f-typeprint.c @@ -146,42 +146,6 @@ f_type_print_varspec_prefix (struct type *type, struct ui_file *stream, } } -#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 --git a/gdb/p-typeprint.c b/gdb/p-typeprint.c index 3a72e40..e20627f 100644 --- a/gdb/p-typeprint.c +++ b/gdb/p-typeprint.c @@ -37,8 +37,6 @@ #include #include -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 @@ pascal_type_print_varspec_prefix (struct type *type, struct ui_file *stream, } 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_varspec_suffix (struct type *type, struct ui_file *stream, 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, " : "); -- cgit v1.1