OpenE2K
/
binutils-gdb
12
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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.
This commit is contained in:
Daniel Jacobowitz 2002-01-20 19:14:59 +00:00
parent 8176bb6dee
commit c3643761b5
3 changed files with 5 additions and 85 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gdb/ChangeLog
View File

@ -1,3 +1,8 @@
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

36
gdb/f-typeprint.c
View File

@ -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. */

49
gdb/p-typeprint.c
View File

@ -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 *);
@ -301,52 +299,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)
{
@ -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, " : ");