This is the mail archive of the
gdb-patches@sources.redhat.com
mailing list for the GDB project.
[PATCH]: Fix compilation pb with ada-tasks.c and ada-lex.l
- From: Stephane Carrez <stcarrez at nerim dot fr>
- To: gdb-patches at sources dot redhat dot com
- Date: Tue, 17 Jun 2003 22:57:49 +0200
- Subject: [PATCH]: Fix compilation pb with ada-tasks.c and ada-lex.l
Hi!
I've committed the following patch (obvious) to fix compilation of
ada-tasks.c and ada-lex.l.
Stephane
2003-06-17 Stephane Carrez <stcarrez@nerim.fr>
* ada-tasks.c (find_function_in_inferior): Don't declare it.
("regcache.h"): Include it.
* ada-lex.l (block_lookup): Replace VAR_NAMESPACE with VAR_DOMAIN.
Index: ada-tasks.c
===================================================================
RCS file: /cvs/src/src/gdb/ada-tasks.c,v
retrieving revision 1.6
diff -u -p -r1.6 ada-tasks.c
--- ada-tasks.c 29 Nov 2002 19:15:14 -0000 1.6
+++ ada-tasks.c 17 Jun 2003 20:52:50 -0000
@@ -22,6 +22,7 @@
#include "inferior.h"
#include "symtab.h"
#include "target.h"
+#include "regcache.h"
#include "gdbcore.h"
#if (defined(__alpha__) && defined(__osf__) && !defined(__alpha_vxworks))
@@ -89,8 +90,6 @@ extern void *GET_CURRENT_THREAD ();
#define READ_MEMORY(addr, var) read_memory (addr, (char*) &var, sizeof (var))
/* external declarations */
-
-extern struct value *find_function_in_inferior (char *);
/* Global visible variables */
Index: ada-lex.l
===================================================================
RCS file: /cvs/src/src/gdb/ada-lex.l,v
retrieving revision 1.1
diff -u -p -r1.1 ada-lex.l
--- ada-lex.l 4 Jun 2002 15:28:48 -0000 1.1
+++ ada-lex.l 17 Jun 2003 20:52:51 -0000
@@ -627,7 +627,7 @@ block_lookup (name, err_name)
int nsyms;
struct symtab *symtab;
nsyms = ada_lookup_symbol_list (name, left_block_context,
- VAR_NAMESPACE, &syms, &blocks);
+ VAR_DOMAIN, &syms, &blocks);
if (left_block_context == NULL &&
(nsyms == 0 || SYMBOL_CLASS (syms[0]) != LOC_BLOCK))
symtab = lookup_symtab (name);
@@ -652,7 +652,7 @@ block_lookup (name, err_name)
}
}
-/* Look up NAME0 (assumed to be mangled) as a name in VAR_NAMESPACE,
+/* Look up NAME0 (assumed to be mangled) as a name in VAR_DOMAIN,
setting *TOKEN_TYPE to NAME or TYPENAME, depending on what is
found. Try first the entire name, then the name without the last
segment (i.e., after the last .id), etc., and return the number of
@@ -685,10 +685,10 @@ name_lookup (name0, err_name, token_type
if (left_block_context == NULL)
nsyms = ada_lookup_symbol_list (name, expression_context_block,
- VAR_NAMESPACE, &syms, &blocks);
+ VAR_DOMAIN, &syms, &blocks);
else
nsyms = ada_lookup_symbol_list (name, left_block_context,
- VAR_NAMESPACE, &syms, &blocks);
+ VAR_DOMAIN, &syms, &blocks);
/* Check for a type definition. */