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.

8 files changed, 16 insertions, 14 deletions

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 0e930b7..379e69b 100644
--- 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 a1090dc..b2728dc 100644
--- 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 67b32b7..ba3f1f0 100644
--- 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 0332932..0cee7d9 100644
--- 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 9bd3640..6760308 100644
--- 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 53e3ddc..70d8358 100644
--- 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 8db3b75..a4ed4b1 100644
--- 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 7ea1f12..8924a28 100644
--- 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 */