From 9216103f920df7d9399aed10328cabd314cb8f47 Mon Sep 17 00:00:00 2001 From: Michael Snyder Date: Fri, 7 May 2010 00:28:32 +0000 Subject: [PATCH] 2010-05-06 Michael Snyder * 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. --- gdb/ChangeLog | 13 +++++++++++++ gdb/ada-valprint.c | 1 - gdb/d-valprint.c | 1 - gdb/f-typeprint.c | 4 +--- gdb/f-valprint.c | 3 +-- gdb/m2-typeprint.c | 3 --- gdb/m2-valprint.c | 2 -- gdb/p-typeprint.c | 3 +-- 8 files changed, 16 insertions(+), 14 deletions(-) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 0e930b71abe..379e69b73ae 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,5 +1,18 @@ 2010-05-06 Michael Snyder + * 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 a1090dc3185..b2728dc4696 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 67b32b768f2..ba3f1f0fe4b 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 0332932d997..0cee7d91fd9 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 9bd3640b5c7..6760308b182 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 53e3ddca9e8..70d83587981 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 8db3b75f389..a4ed4b1d28f 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 7ea1f124f8f..8924a28cc3e 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 */ -- 2.30.2