diff options
author | Daniel Jacobowitz <dan@debian.org> | 2002-01-20 19:14:59 +0000 |
---|---|---|
committer | Daniel Jacobowitz <dan@debian.org> | 2002-01-20 19:14:59 +0000 |
commit | 5f9a0080dc55e818bc7f371562de81e4dd7cbf40 (patch) | |
tree | 10279836405acbc612c6644f31da34b519e60758 /gdb/f-typeprint.c | |
parent | 2bdbd424bf807072d1e0ceda73b3dea8935ea94d (diff) | |
download | gdb-5f9a0080dc55e818bc7f371562de81e4dd7cbf40.tar.gz |
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/f-typeprint.c')
-rw-r--r-- | gdb/f-typeprint.c | 36 |
1 files changed, 0 insertions, 36 deletions
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. */ |