From 5f9a0080dc55e818bc7f371562de81e4dd7cbf40 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/f-typeprint.c | 36 ------------------------------------ 1 file changed, 36 deletions(-) (limited to 'gdb/f-typeprint.c') diff --git a/gdb/f-typeprint.c b/gdb/f-typeprint.c index 6e2f8b05f38..727f2ee7f61 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. */ -- cgit v1.2.1