This is the mail archive of the
gdb-patches@sourceware.org
mailing list for the GDB project.
[patch] ada-lang, c-lang, f-lang, objc-lang, jv-lang, m2-lang, ada-tasks.c: delete unused variables
- From: Michael Snyder <msnyder at vmware dot com>
- To: "gdb-patches at sourceware dot org" <gdb-patches at sourceware dot org>
- Date: Thu, 06 May 2010 16:38:56 -0700
- Subject: [patch] ada-lang, c-lang, f-lang, objc-lang, jv-lang, m2-lang, ada-tasks.c: delete unused variables
2010-05-06 Michael Snyder <msnyder@vmware.com>
* ada-lang.c (add_defn_to_vec): Delete unused variable.
(decode_constrained_packed_array_type): Delete unused variable.
(add_defn_to_vec): Delete unused variable.
(symbol_completion_match): Delete unused variable.
(value_tag_from_contents_and_address): Delete unused variable.
(ada_evaluate_subexp): Delete unused variable.
* c-lang.c (classify_type): Delete unused variable.
* f-lang.c (f_printstr): Delete unused variable.
* objc-lang.c (objc_printstr): Delete unused variable.
* ada-tasks.c (get_known_tasks_addr): Delete unused variable.
* jv-lang.c (type_from_class): ifdef unused variable.
(java_class_name_from_physname): Delete unused variable.
* m2-lang.c (m2_printstr): Delete unused variable.
Index: ada-lang.c
===================================================================
RCS file: /cvs/src/src/gdb/ada-lang.c,v
retrieving revision 1.259
diff -u -p -r1.259 ada-lang.c
--- ada-lang.c 5 May 2010 17:07:39 -0000 1.259
+++ ada-lang.c 6 May 2010 23:35:37 -0000
@@ -1823,14 +1823,11 @@ constrained_packed_array_type (struct ty
static struct type *
decode_constrained_packed_array_type (struct type *type)
{
- struct symbol *sym;
- struct block **blocks;
char *raw_name = ada_type_name (ada_check_typedef (type));
char *name;
char *tail;
struct type *shadow_type;
long bits;
- int i, n;
if (!raw_name)
raw_name = ada_type_name (desc_base_type (type));
@@ -4050,7 +4047,6 @@ add_defn_to_vec (struct obstack *obstack
struct block *block)
{
int i;
- size_t tmp;
struct ada_symbol_info *prevDefns = defns_collected (obstackp, 0);
/* Do not try to complete stub types, as the debugger is probably
@@ -5018,7 +5014,6 @@ symbol_completion_match (const char *sym
const char *text, int text_len,
int wild_match, int encoded)
{
- char *result;
const int verbatim_match = (text[0] == '<');
int match = 0;
@@ -5409,7 +5404,7 @@ value_tag_from_contents_and_address (str
const gdb_byte *valaddr,
CORE_ADDR address)
{
- int tag_byte_offset, dummy1, dummy2;
+ int tag_byte_offset;
struct type *tag_type;
if (find_struct_field ("_tag", type, 0, &tag_type, &tag_byte_offset,
NULL, NULL, NULL))
@@ -8575,7 +8570,7 @@ ada_evaluate_subexp (struct type *expect
int *pos, enum noside noside)
{
enum exp_opcode op;
- int tem, tem2, tem3;
+ int tem;
int pc;
struct value *arg1 = NULL, *arg2 = NULL, *arg3;
struct type *type;
Index: c-lang.c
===================================================================
RCS file: /cvs/src/src/gdb/c-lang.c,v
retrieving revision 1.83
diff -u -p -r1.83 c-lang.c
--- c-lang.c 29 Apr 2010 14:45:38 -0000 1.83
+++ c-lang.c 6 May 2010 23:35:37 -0000
@@ -76,7 +76,6 @@ static enum c_string_type
classify_type (struct type *elttype, struct gdbarch *gdbarch,
const char **encoding)
{
- struct type *saved_type;
enum c_string_type result;
/* We loop because ELTTYPE may be a typedef, and we want to
Index: f-lang.c
===================================================================
RCS file: /cvs/src/src/gdb/f-lang.c,v
retrieving revision 1.60
diff -u -p -r1.60 f-lang.c
--- f-lang.c 20 Apr 2010 17:22:18 -0000 1.60
+++ f-lang.c 6 May 2010 23:35:37 -0000
@@ -150,7 +150,6 @@ f_printstr (struct ui_file *stream, stru
unsigned int things_printed = 0;
int in_quotes = 0;
int need_comma = 0;
- int width = TYPE_LENGTH (type);
if (length == 0)
{
Index: jv-lang.c
===================================================================
RCS file: /cvs/src/src/gdb/jv-lang.c,v
retrieving revision 1.83
diff -u -p -r1.83 jv-lang.c
--- jv-lang.c 22 Apr 2010 23:15:41 -0000 1.83
+++ jv-lang.c 6 May 2010 23:35:37 -0000
@@ -268,8 +268,10 @@ type_from_class (struct gdbarch *gdbarch
struct value *utf8_name;
char *nptr;
CORE_ADDR addr;
+#if 0
struct block *bl;
struct dict_iterator iter;
+#endif
int is_array = 0;
type = check_typedef (value_type (clas));
@@ -1053,7 +1055,6 @@ java_class_name_from_physname (const cha
{
char *ret = NULL;
const char *end;
- int depth = 0;
char *demangled_name = java_demangle (physname, DMGL_PARAMS | DMGL_ANSI);
if (demangled_name == NULL)
Index: m2-lang.c
===================================================================
RCS file: /cvs/src/src/gdb/m2-lang.c,v
retrieving revision 1.55
diff -u -p -r1.55 m2-lang.c
--- m2-lang.c 22 Apr 2010 23:15:41 -0000 1.55
+++ m2-lang.c 6 May 2010 23:35:37 -0000
@@ -111,7 +111,6 @@ m2_printstr (struct ui_file *stream, str
unsigned int things_printed = 0;
int in_quotes = 0;
int need_comma = 0;
- int width = TYPE_LENGTH (type);
if (length == 0)
{
Index: objc-lang.c
===================================================================
RCS file: /cvs/src/src/gdb/objc-lang.c,v
retrieving revision 1.87
diff -u -p -r1.87 objc-lang.c
--- objc-lang.c 19 Apr 2010 19:51:38 -0000 1.87
+++ objc-lang.c 6 May 2010 23:35:37 -0000
@@ -350,7 +350,6 @@ objc_printstr (struct ui_file *stream, s
unsigned int things_printed = 0;
int in_quotes = 0;
int need_comma = 0;
- int width = TYPE_LENGTH (type);
/* If the string was not truncated due to `set print elements', and
the last byte of it is a null, we don't print that, in
Index: ada-tasks.c
===================================================================
RCS file: /cvs/src/src/gdb/ada-tasks.c,v
retrieving revision 1.29
diff -u -p -r1.29 ada-tasks.c
--- ada-tasks.c 16 Mar 2010 18:47:15 -0000 1.29
+++ ada-tasks.c 6 May 2010 23:35:37 -0000
@@ -293,7 +293,6 @@ get_known_tasks_addr (void)
if (ada_tasks_check_symbol_table)
{
- struct symbol *sym;
struct minimal_symbol *msym;
msym = lookup_minimal_symbol (KNOWN_TASKS_NAME, NULL, NULL);