From 9216103f920df7d9399aed10328cabd314cb8f47 Mon Sep 17 00:00:00 2001 From: Michael Snyder Date: Fri, 7 May 2010 00:28:32 +0000 Subject: 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/f-valprint.c | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'gdb/f-valprint.c') 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; -- cgit v1.1