* solib-sunos.c (sunos_relocate_main_executable): Remove function.

[deliverable/binutils-gdb.git] / gdb / ada-lex.l

diff --git a/gdb/ada-lex.l b/gdb/ada-lex.l
index a7ce81639aa735cb43eb76e8e2f298536f30c441..21dba2c021b53ef79db2bd6097d47c98ab364880 100644 (file)
--- a/gdb/ada-lex.l
+++ b/gdb/ada-lex.l
@@ -741,7 +741,9 @@ name_lookup (char *name0, char *err_name, int *token_type, int depth)
 
       if (segments == 0)
        {
-         type = lookup_primitive_typename (name);
+         type = language_lookup_primitive_type_by_name (current_language,
+                                                         current_gdbarch,
+                                                         name);
          if (type == NULL && strcmp ("system__address", name) == 0)
            type = builtin_type_ada_system_address;
          if (type != NULL)