diff -uprN src0/gdb/valarith.c src1/gdb/valarith.c
--- src0/gdb/valarith.c	2009-07-06 09:28:22.000000000 -0400
+++ src1/gdb/valarith.c	2009-08-06 09:04:41.000000000 -0400
@@ -139,7 +139,6 @@ an integer nor a pointer of the same typ
 struct value *
 value_subscript (struct value *array, LONGEST index)
 {
-  struct value *bound;
   int c_style = current_language->c_style_arrays;
   struct type *tarray;
 
@@ -860,7 +859,6 @@ value_binop (struct value *arg1, struct 
   if (TYPE_CODE (type1) == TYPE_CODE_DECFLOAT
       || TYPE_CODE (type2) == TYPE_CODE_DECFLOAT)
     {
-      struct type *v_type;
       int len_v1, len_v2, len_v;
       enum bfd_endian byte_order_v1, byte_order_v2, byte_order_v;
       gdb_byte v1[16], v2[16];
diff -uprN src0/gdb/valops.c src1/gdb/valops.c
--- src0/gdb/valops.c	2009-07-31 14:43:27.000000000 -0400
+++ src1/gdb/valops.c	2009-08-06 09:04:20.000000000 -0400
@@ -270,7 +270,6 @@ value_cast_structs (struct type *type, s
 struct value *
 value_cast_pointers (struct type *type, struct value *arg2)
 {
-  struct type *type1 = check_typedef (type);
   struct type *type2 = check_typedef (value_type (arg2));
   struct type *t1 = check_typedef (TYPE_TARGET_TYPE (type));
   struct type *t2 = check_typedef (TYPE_TARGET_TYPE (type2));
@@ -866,6 +865,9 @@ value_assign (struct value *toval, struc
 	value_reg = VALUE_REGNUM (toval);
 
 	if (!frame)
+	  frame = get_current_frame ();
+
+	if (!frame)
 	  error (_("Value being assigned to is no longer active."));
 
 	gdbarch = get_frame_arch (frame);
@@ -1323,7 +1325,6 @@ value_array (int lowbound, int highbound
   unsigned int typelength;
   struct value *val;
   struct type *arraytype;
-  CORE_ADDR addr;
 
   /* Validate that the bounds are reasonable and that each of the
      elements have the same size.  */
@@ -2048,8 +2049,6 @@ find_overload_match (struct type **arg_t
   int num_fns = 0;
   struct type *basetype = NULL;
   int boffset;
-  int ix;
-  int static_offset;
   struct cleanup *old_cleanups = NULL;
 
   const char *obj_type_name = NULL;
diff -uprN src0/gdb/valprint.c src1/gdb/valprint.c
--- src0/gdb/valprint.c	2009-07-06 09:28:22.000000000 -0400
+++ src1/gdb/valprint.c	2009-08-06 09:04:54.000000000 -0400
@@ -1621,8 +1621,6 @@ show_print (char *args, int from_tty)
 void
 _initialize_valprint (void)
 {
-  struct cmd_list_element *c;
-
   add_prefix_cmd ("print", no_class, set_print,
 		  _("Generic command for setting how things print."),
 		  &setprintlist, "set print ", 0, &setlist);
diff -uprN src0/gdb/value.c src1/gdb/value.c
--- src0/gdb/value.c	2009-07-31 14:43:27.000000000 -0400
+++ src1/gdb/value.c	2009-08-06 09:03:32.000000000 -0400
@@ -250,7 +250,6 @@ struct value *
 allocate_value_lazy (struct type *type)
 {
   struct value *val;
-  struct type *atype = check_typedef (type);
 
   val = (struct value *) xzalloc (sizeof (struct value));
   val->contents = NULL;
@@ -1460,6 +1459,11 @@ preserve_one_internalvar (struct interna
     case INTERNALVAR_VALUE:
       preserve_one_value (var->u.value, objfile, copied_types);
       break;
+    case INTERNALVAR_VOID:
+    case INTERNALVAR_FUNCTION:
+    case INTERNALVAR_STRING:
+    case INTERNALVAR_MAKE_VALUE:
+      break;
     }
 }
 
@@ -2220,7 +2224,6 @@ value_from_double (struct type *type, DO
   struct value *val = allocate_value (type);
   struct type *base_type = check_typedef (type);
   enum type_code code = TYPE_CODE (base_type);
-  int len = TYPE_LENGTH (base_type);
 
   if (code == TYPE_CODE_FLT)
     {