* sparc64-tdep.h (sparc64_regnum): Fix comment.

[deliverable/binutils-gdb.git] / gdb / ada-lang.c

diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c
index eaa528124f7a45255613461e7311211ec369d5f7..cc204d6fefd1857eef3dc23ceb91cfb02b168bbe 100644 (file)
--- a/gdb/ada-lang.c
+++ b/gdb/ada-lang.c
@@ -3559,7 +3559,7 @@ add_symbols_from_enclosing_procs (const char *name, domain_enum domain,
          QUIT;
          frame = get_prev_frame (frame);
        }
-      while (frame != NULL && FRAME_LOCALS_ADDRESS (frame) != target_link);
+      while (frame != NULL && DEPRECATED_FRAME_LOCALS_ADDRESS (frame) != target_link);
 
       if (frame == NULL)
        break;
@@ -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;