2010-05-06 Michael Snyder <msnyder@vmware.com>

	* p-typeprint.c (pascal_type_print_base): Delete unused variable.
	(pascal_type_print_varspec_prefix): Delete unused variable.
	* f-typeprint.c (f_type_print_base): Delete unused variable.
	(f_type_print_varspec_suffix): Delete unused variable.
	* m2-typeprint.c (m2_print_type): Delete unused variable.
	(m2_long_set): Delete unused variable.
	* ada-valprint.c (ada_val_print_1): Delete unused variable.
	* d-valprint.c (dynamic_array_type): Delete unused variable.
	* f-valprint.c (f77_get_dynamic_length_of_aggregate):
	Delete unused variable.
	(f77_create_arrayprint_offset_tbl): Delete unused variable.
	* m2-valprint.c (m2_val_print): Delete unused variable.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 0e930b71abe5e8e88d14847545f678986cc0ac61..379e69b73aedcae2e0f86766dd21a8f4eb25af50 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,5 +1,18 @@
 2010-05-06  Michael Snyder  <msnyder@vmware.com>
 
+       * p-typeprint.c (pascal_type_print_base): Delete unused variable.
+       (pascal_type_print_varspec_prefix): Delete unused variable.
+       * f-typeprint.c (f_type_print_base): Delete unused variable.
+       (f_type_print_varspec_suffix): Delete unused variable.
+       * m2-typeprint.c (m2_print_type): Delete unused variable.
+       (m2_long_set): Delete unused variable.
+       * ada-valprint.c (ada_val_print_1): Delete unused variable.
+       * d-valprint.c (dynamic_array_type): Delete unused variable.
+       * f-valprint.c (f77_get_dynamic_length_of_aggregate): 
+       Delete unused variable.
+       (f77_create_arrayprint_offset_tbl): Delete unused variable.
+       * m2-valprint.c (m2_val_print): Delete unused variable.
+
        * ui-out.c (ui_out_field_int): Delete unused variable.
        (ui_out_field_fmt_int): Delete unused variable.
        * varobj.c (varobj_list_children): Delete unused variable.

diff --git a/gdb/ada-valprint.c b/gdb/ada-valprint.c
index a1090dc318574b74a06ac2e96071e3176fe30621..b2728dc4696a95228aaa3dcf5ea937d8368d2da0 100644 (file)
--- a/gdb/ada-valprint.c
+++ b/gdb/ada-valprint.c
@@ -681,7 +681,6 @@ ada_val_print_1 (struct type *type, const gdb_byte *valaddr0,
   unsigned int len;
   int i;
   struct type *elttype;
-  unsigned int eltlen;
   LONGEST val;
   const gdb_byte *valaddr = valaddr0 + embedded_offset;
 

diff --git a/gdb/d-valprint.c b/gdb/d-valprint.c
index 67b32b768f261c44ff517d436975ba06a8568a73..ba3f1f0fe4b5d831fd51dfad8be42c8a881de591 100644 (file)
--- a/gdb/d-valprint.c
+++ b/gdb/d-valprint.c
@@ -42,7 +42,6 @@ dynamic_array_type (struct type *type, const gdb_byte *valaddr,
       struct type *elttype;
       struct type *true_type;
       struct type *ptr_type;
-      struct type *range_type;
       const gdb_byte *ptraddr;
       struct value *val;
       int length;

diff --git a/gdb/f-typeprint.c b/gdb/f-typeprint.c
index 0332932d9975bf6e7be58d830dc4bfe3270e3c98..0cee7d91fd9879f32169a83f17ea8ca03e677a43 100644 (file)
--- a/gdb/f-typeprint.c
+++ b/gdb/f-typeprint.c
@@ -153,7 +153,7 @@ f_type_print_varspec_suffix (struct type *type, struct ui_file *stream,
                             int arrayprint_recurse_level)
 {
   int upper_bound, lower_bound;
-  int retcode;
+
   /* No static variables are permitted as an error call may occur during
      execution of this function.  */
 
@@ -258,9 +258,7 @@ void
 f_type_print_base (struct type *type, struct ui_file *stream, int show,
                   int level)
 {
-  int retcode;
   int upper_bound;
-
   int index;
 
   QUIT;

diff --git a/gdb/f-valprint.c b/gdb/f-valprint.c
index 9bd3640b5c724e65004394612ad7bc830413b0f7..6760308b18234792f60ac7c97462be96e8bbb51e 100644 (file)
--- a/gdb/f-valprint.c
+++ b/gdb/f-valprint.c
@@ -92,7 +92,6 @@ f77_get_dynamic_length_of_aggregate (struct type *type)
 {
   int upper_bound = -1;
   int lower_bound = 1;
-  int retcode;
 
   /* Recursively go all the way down into a possibly multi-dimensional
      F77 array and get the bounds.  For simple arrays, this is pretty
@@ -126,7 +125,7 @@ f77_create_arrayprint_offset_tbl (struct type *type, struct ui_file *stream)
   struct type *tmp_type;
   int eltlen;
   int ndimen = 1;
-  int upper, lower, retcode;
+  int upper, lower;
 
   tmp_type = type;
 

diff --git a/gdb/m2-typeprint.c b/gdb/m2-typeprint.c
index 53e3ddca9e8c49f4b94ad3ee60753b2869f44348..70d835879819ea641995ecbef5bda3a84e46c8a0 100644 (file)
--- a/gdb/m2-typeprint.c
+++ b/gdb/m2-typeprint.c
@@ -71,7 +71,6 @@ m2_print_type (struct type *type, char *varstring, struct ui_file *stream,
               int show, int level)
 {
   enum type_code code;
-  int demangled_args;
 
   CHECK_TYPEDEF (type);
 
@@ -424,8 +423,6 @@ m2_is_long_set_of_type (struct type *type, struct type **of_type)
 static int
 m2_long_set (struct type *type, struct ui_file *stream, int show, int level)
 {
-  struct type *index_type;
-  struct type *range_type;
   struct type *of_type;
   int i;
   int len = TYPE_NFIELDS (type);

diff --git a/gdb/m2-valprint.c b/gdb/m2-valprint.c
index 8db3b75f389cc384e752168d0ffc12062ce0e729..a4ed4b1d28fc9ae926b8197496a4bd690fb905f3 100644 (file)
--- a/gdb/m2-valprint.c
+++ b/gdb/m2-valprint.c
@@ -322,8 +322,6 @@ m2_val_print (struct type *type, const gdb_byte *valaddr, int embedded_offset,
   unsigned len;
   struct type *elttype;
   unsigned eltlen;
-  int length_pos, length_size, string_pos;
-  int char_size;
   LONGEST val;
   CORE_ADDR addr;
 

diff --git a/gdb/p-typeprint.c b/gdb/p-typeprint.c
index 7ea1f124f8f00214409f39ca2cd8db1df7ed83db..8924a28cc3ee5e7070d69bf6c0b74a90b1ea7b41 100644 (file)
--- a/gdb/p-typeprint.c
+++ b/gdb/p-typeprint.c
@@ -205,7 +205,6 @@ void
 pascal_type_print_varspec_prefix (struct type *type, struct ui_file *stream,
                                  int show, int passed_a_ptr)
 {
-  char *name;
   if (type == 0)
     return;
 
@@ -618,7 +617,7 @@ pascal_type_print_base (struct type *type, struct ui_file *stream, int show,
              struct fn_field *f = TYPE_FN_FIELDLIST1 (type, i);
              int j, len2 = TYPE_FN_FIELDLIST_LENGTH (type, i);
              char *method_name = TYPE_FN_FIELDLIST_NAME (type, i);
-             char *name = type_name_no_tag (type);
+
              /* this is GNU C++ specific
                 how can we know constructor/destructor?
                 It might work for GNU pascal */