2013-02-01 Aleksandar Ristovski <aristovski@qnx.com>

        * ada-lang.c (assign_aggregate): Remove unused 'is_array_aggregate'.

Reference: http://sourceware.org/ml/gdb-patches/2013-01/msg00732.html

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index f923d0c0c03d2bd8a466c338cbf3d74445555b5f..5efe244cf8988d4e5c0265b6f03ff22ffb6989d0 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,7 @@
+2013-02-01  Aleksandar Ristovski  <aristovski@qnx.com>
+
+       * ada-lang.c (assign_aggregate): Remove unused 'is_array_aggregate'.
+
 2013-02-01  Pedro Alves  <palves@redhat.com>
 
        * dummy-frame.c (deprecated_pc_in_call_dummy): Delete function.

diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c
index ef808c4a849b6f41b60985712ece14018042748e..c202173c719b624c7fba34b54d838c33ea7a207d 100644 (file)
--- a/gdb/ada-lang.c
+++ b/gdb/ada-lang.c
@@ -9029,7 +9029,6 @@ assign_aggregate (struct value *container,
   int num_specs;
   LONGEST *indices;
   int max_indices, num_indices;
-  int is_array_aggregate;
   int i;
 
   *pos += 3;
@@ -9054,13 +9053,11 @@ assign_aggregate (struct value *container,
       lhs_type = value_type (lhs);
       low_index = TYPE_ARRAY_LOWER_BOUND_VALUE (lhs_type);
       high_index = TYPE_ARRAY_UPPER_BOUND_VALUE (lhs_type);
-      is_array_aggregate = 1;
     }
   else if (TYPE_CODE (lhs_type) == TYPE_CODE_STRUCT)
     {
       low_index = 0;
       high_index = num_visible_fields (lhs_type) - 1;
-      is_array_aggregate = 0;
     }
   else
     error (_("Left-hand side must be array or record."));