diff options
| author | Daniel Jacobowitz <drow@false.org> | 2002-01-20 19:14:59 +0000 |
|---|---|---|
| committer | Daniel Jacobowitz <drow@false.org> | 2002-01-20 19:14:59 +0000 |
| commit | c3643761b529c626359e748495650a91407fc188 (patch) | |
| tree | 8a833ccfaace540f38307744de07fac958724760 /gdb | |
| parent | 8176bb6dee95680ff93a522d0d4d114a91afc466 (diff) | |
| download | gdb-c3643761b529c626359e748495650a91407fc188.zip gdb-c3643761b529c626359e748495650a91407fc188.tar.gz gdb-c3643761b529c626359e748495650a91407fc188.tar.bz2 | |
2002-01-20 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.
Diffstat (limited to 'gdb')
| -rw-r--r-- | gdb/ChangeLog | 5 | ||||
| -rw-r--r-- | gdb/f-typeprint.c | 36 | ||||
| -rw-r--r-- | gdb/p-typeprint.c | 49 |
3 files changed, 5 insertions, 85 deletions
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 <drow@mvista.com> + * 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 <drow@mvista.com> + * 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 <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 @@ 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, " : "); |