* 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 f6bef91..b8ed3a1 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,5 +1,11 @@
 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.
        ("regcache.h"): Include it.
        * ada-lex.l (block_lookup): Replace VAR_NAMESPACE with VAR_DOMAIN.

diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c
index eaa5281..26780e3 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;