From b9c0e2421b589a114c9e218a47d59013fc507d83 Mon Sep 17 00:00:00 2001 From: Andrew Cagney Date: Wed, 18 Sep 2002 22:54:11 +0000 Subject: [PATCH] Import ada-lang.c, ada-tasks.c and ada-valprint.c from mainline. --- gdb/ChangeLog | 2 ++ gdb/ada-lang.c | 12 +++--------- gdb/ada-tasks.c | 2 +- gdb/ada-valprint.c | 3 +-- 4 files changed, 7 insertions(+), 12 deletions(-) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index c496b513db6..4b2ef1b53f7 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,5 +1,7 @@ 2002-09-18 Andrew Cagney + * ada-lang.c, ada-tasks.c, ada-valprint.c: Import from mainline. + * infrun.c (signal_stop_update): Convert definition to ISO C. (signal_print_update): Ditto. (signal_pass_update): Ditto. diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c index c58d46338ea..2838df7e68c 100644 --- a/gdb/ada-lang.c +++ b/gdb/ada-lang.c @@ -1852,10 +1852,7 @@ ada_array_bound_from_type (struct type * arr_type, int n, int which, supplied by run-time quantities other than discriminants. */ struct value * -ada_array_bound (arr, n, which) - struct value *arr; - int n; - int which; +ada_array_bound (struct value *arr, int n, int which) { struct type *arr_type = VALUE_TYPE (arr); @@ -2334,10 +2331,7 @@ ada_resolve_subexp (struct expression **expp, int *pos, int deprocedure_p, liberal. FIXME: TOO liberal, in fact. */ static int -ada_type_match (ftype, atype, may_deref) - struct type *ftype; - struct type *atype; - int may_deref; +ada_type_match (struct type *ftype, struct type *atype, int may_deref) { CHECK_TYPEDEF (ftype); CHECK_TYPEDEF (atype); @@ -8104,7 +8098,7 @@ const struct language_defn ada_language_defn = { }; void -_initialize_ada_language () +_initialize_ada_language (void) { builtin_type_ada_int = init_type (TYPE_CODE_INT, TARGET_INT_BIT / TARGET_CHAR_BIT, diff --git a/gdb/ada-tasks.c b/gdb/ada-tasks.c index eccd5a1c214..2e6bff3b18e 100644 --- a/gdb/ada-tasks.c +++ b/gdb/ada-tasks.c @@ -270,7 +270,7 @@ get_self_id (void) } int -get_current_task () +get_current_task (void) { int result; diff --git a/gdb/ada-valprint.c b/gdb/ada-valprint.c index fc2db703035..0a0c99add1e 100644 --- a/gdb/ada-valprint.c +++ b/gdb/ada-valprint.c @@ -75,8 +75,7 @@ static int ada_val_print_1 (struct type *, char *, int, CORE_ADDR, /* Make TYPE unsigned if its range of values includes no negatives. */ static void -adjust_type_signedness (type) - struct type *type; +adjust_type_signedness (struct type *type) { if (type != NULL && TYPE_CODE (type) == TYPE_CODE_RANGE && TYPE_LOW_BOUND (type) >= 0) -- 2.47.2