From: Andrew Cagney <cagney@redhat.com>
Date: Wed, 18 Sep 2002 22:54:11 +0000 (+0000)
Subject: Import ada-lang.c, ada-tasks.c and ada-valprint.c from mainline.
X-Git-Tag: gdb_5_3-2002-12-12-release~157
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b9c0e2421b589a114c9e218a47d59013fc507d83;p=thirdparty%2Fbinutils-gdb.git

Import ada-lang.c, ada-tasks.c and ada-valprint.c from mainline.
---

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  <ac131313@redhat.com>
 
+	* 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)