2003-05-14 Elena Zannoni <ezannoni@redhat.com>

[deliverable/binutils-gdb.git] / gdb / p-valprint.c

diff --git a/gdb/p-valprint.c b/gdb/p-valprint.c
index 1f41422bd7c1b7128c201d5f35ff2f0326a1f3c6..5672d74bd782e2cc8aae7fc5a1c31d6aff31a99d 100644 (file)
--- a/gdb/p-valprint.c
+++ b/gdb/p-valprint.c
@@ -227,7 +227,7 @@ pascal_val_print (struct type *type, char *valaddr, int embedded_offset,
 
                  if (msymbol != NULL)
                    wsym = lookup_symbol (DEPRECATED_SYMBOL_NAME (msymbol), block,
-                                         VAR_NAMESPACE, &is_this_fld, &s);
+                                         VAR_DOMAIN, &is_this_fld, &s);
 
                  if (wsym)
                    {