diff -uprN src0/gdb/p-typeprint.c src1/gdb/p-typeprint.c
--- src0/gdb/p-typeprint.c	2009-07-06 09:28:20.000000000 -0400
+++ src1/gdb/p-typeprint.c	2009-08-06 10:22:33.000000000 -0400
@@ -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;
 
@@ -621,7 +620,7 @@ pascal_type_print_base (struct type *typ
 	      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 */