New parameter "debug symbol-lookup".

[thirdparty/binutils-gdb.git] / gdb / language.c

diff --git a/gdb/language.c b/gdb/language.c
index 83dd4d505cd84b808e619126d2ec6f578bce8195..8d476d398c1c5c4647a4fa96e6596270c0c888c5 100644 (file)
--- a/gdb/language.c
+++ b/gdb/language.c
@@ -996,13 +996,31 @@ language_lookup_primitive_type_by_name (const struct language_defn *la,
                                              language_gdbarch_data);
   struct type *const *p;
 
+  if (symbol_lookup_debug)
+    {
+      fprintf_unfiltered (gdb_stdlog,
+                         "language_lookup_primitive_type_by_name"
+                         " (%s, %s, %s)",
+                         la->la_name, host_address_to_string (gdbarch), name);
+    }
+
   for (p = ld->arch_info[la->la_language].primitive_type_vector;
        (*p) != NULL;
        p++)
     {
       if (strcmp (TYPE_NAME (*p), name) == 0)
-       return (*p);
+       {
+         if (symbol_lookup_debug)
+           {
+             fprintf_unfiltered (gdb_stdlog, " = %s\n",
+                                 host_address_to_string (*p));
+           }
+         return (*p);
+       }
     }
+
+  if (symbol_lookup_debug)
+    fprintf_unfiltered (gdb_stdlog, " = NULL\n");
   return (NULL);
 }