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:
parent
8176bb6dee
commit
c3643761b5
|
@ -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>
|
2002-01-20 Daniel Jacobowitz <drow@mvista.com>
|
||||||
|
|
||||||
* gdbtypes.h (struct type): Fix whitespace. Remove obsolete
|
* gdbtypes.h (struct type): Fix whitespace. Remove obsolete
|
||||||
|
|
|
@ -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
|
/* Print any array sizes, function arguments or close parentheses
|
||||||
needed after the variable name (to describe its type).
|
needed after the variable name (to describe its type).
|
||||||
Args work like c_type_print_varspec_prefix. */
|
Args work like c_type_print_varspec_prefix. */
|
||||||
|
|
|
@ -37,8 +37,6 @@
|
||||||
#include <errno.h>
|
#include <errno.h>
|
||||||
#include <ctype.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_varspec_suffix (struct type *, struct ui_file *, int, int, int);
|
||||||
|
|
||||||
static void pascal_type_print_derivation_info (struct ui_file *, struct type *);
|
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
|
static void
|
||||||
pascal_print_func_args (struct type *type, struct ui_file *stream)
|
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 ("",
|
pascal_type_print_method_args ("",
|
||||||
"",
|
"",
|
||||||
stream);
|
stream);
|
||||||
/* pascal_type_print_args (type, stream); */
|
|
||||||
if (TYPE_CODE (TYPE_TARGET_TYPE (type)) != TYPE_CODE_VOID)
|
if (TYPE_CODE (TYPE_TARGET_TYPE (type)) != TYPE_CODE_VOID)
|
||||||
{
|
{
|
||||||
fprintf_filtered (stream, " : ");
|
fprintf_filtered (stream, " : ");
|
||||||
|
|
Loading…
Reference in New Issue