diff options
| author | David Carlton <carlton@bactrian.org> | 2003-05-20 01:55:18 +0000 |
|---|---|---|
| committer | David Carlton <carlton@bactrian.org> | 2003-05-20 01:55:18 +0000 |
| commit | 5f9a71c3d74f62fb4e6a3fe0007044f429638a60 (patch) | |
| tree | 6dadfb5ba27f4d6fe845ac3c96cd5016f3fedd05 /gdb/p-lang.c | |
| parent | 89a9d1b1639d01840668fbc6937f79c433fad24b (diff) | |
| download | gdb-5f9a71c3d74f62fb4e6a3fe0007044f429638a60.zip gdb-5f9a71c3d74f62fb4e6a3fe0007044f429638a60.tar.gz gdb-5f9a71c3d74f62fb4e6a3fe0007044f429638a60.tar.bz2 | |
2003-05-19 David Carlton <carlton@bactrian.org>
* language.h (struct language_defn): Add 'la_value_of_this'
and 'la_lookup_symbol_nonlocal' members.
* symtab.h: Declare basic_lookup_symbol_nonlocal,
lookup_symbol_static, lookup_symbol_global,
lookup_symbol_aux_block.
* symtab.c (lookup_symbol_aux): Call language hooks to determine
if we should search fields of this and how to do static/global
lookup.
(lookup_symbol_aux_block): Make extern.
(basic_lookup_symbol_nonlocal): New.
(lookup_symbol_static, lookup_symbol_global): Ditto.
* ada-lang.c (ada_language_defn): Set 'la_value_of_this' and
'la_lookup_symbol_nonlocal' members.
* c-lang.c (c_language_defn, cplus_language_defn)
(asm_language_defn, minimal_language_defn): Ditto.
* jv-lang.c (java_language_defn): Ditto.
* language.c (unknown_language_defn, auto_language_defn)
(local_language_defn): Ditto.
* m2-lang.c (m2_language_defn): Ditto.
* objc-lang.c (objc_language_defn): Ditto.
* scm-lang.c (scm_language_defn): Ditto.
* f-lang.c (f_language_defn): Ditto, and include value.h as well.
* p-lang.c (pascal_language_defn): Ditto for both.
* Makefile.in (f-lang.o): Depend on value_h.
(p-lang.o): Ditto.
Diffstat (limited to 'gdb/p-lang.c')
| -rw-r--r-- | gdb/p-lang.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gdb/p-lang.c b/gdb/p-lang.c index 8cfa2b0..59e196a 100644 --- a/gdb/p-lang.c +++ b/gdb/p-lang.c @@ -28,6 +28,7 @@ #include "language.h" #include "p-lang.h" #include "valprint.h" +#include "value.h" #include <ctype.h> extern void _initialize_pascal_language (void); @@ -461,6 +462,8 @@ const struct language_defn pascal_language_defn = pascal_val_print, /* Print a value using appropriate syntax */ pascal_value_print, /* Print a top-level value */ NULL, /* Language specific skip_trampoline */ + value_of_this, /* value_of_this */ + basic_lookup_symbol_nonlocal, /* lookup_symbol_nonlocal */ NULL, /* Language specific symbol demangler */ {"", "%", "b", ""}, /* Binary format info */ {"0%lo", "0", "o", ""}, /* Octal format info */ |