* ada-lang.c (scan_discrim_bound): Name first argument.

	(ada_add_block_symbols): Remove BLOCK_SYM to use local variable
	declared by ALL_BLOCK_SYMBOLS.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index f6bef9150efda2ddda4e6a904c34eb8d7e2dbd15..b8ed3a1110f50720a981488096e59749d2f6fe9b 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,9 @@
+2003-06-17  Stephane Carrez  <stcarrez@nerim.fr>
+
+       * ada-lang.c (scan_discrim_bound): Name first argument.
+       (ada_add_block_symbols): Remove BLOCK_SYM to use local variable
+       declared by ALL_BLOCK_SYMBOLS.
+
 2003-06-17  Stephane Carrez  <stcarrez@nerim.fr>
 
        * ada-tasks.c (find_function_in_inferior): Don't declare it.

diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c
index eaa528124f7a45255613461e7311211ec369d5f7..26780e305f0afc2d53b44239c4ff1f72e3e87b76 100644 (file)
--- a/gdb/ada-lang.c
+++ b/gdb/ada-lang.c
@@ -4038,8 +4038,6 @@ ada_add_block_symbols (struct block *block, const char *name,
 
       ALL_BLOCK_SYMBOLS (block, iter, sym)
          {
-           struct symbol *sym = BLOCK_SYM (block, i);
-
            if (SYMBOL_DOMAIN (sym) == domain)
              {
                int cmp;
@@ -7710,7 +7708,7 @@ ada_vax_float_print_function (struct type *type)
    not alter *PX and *PNEW_K if unsuccessful. */
 
 static int
-scan_discrim_bound (char *, int k, struct value *dval, LONGEST * px,
+scan_discrim_bound (char *str, int k, struct value *dval, LONGEST * px,
                    int *pnew_k)
 {
   static char *bound_buffer = NULL;