diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 9a55ff12725..27db1d3420e 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,9 @@
+2007-01-24  Joel Brobecker  <brobecker@adacore.com>
+
+	* dwarf2read.c (add_partial_symbol): Create an extra partial
+	symbol in the VAR_DOMAIN for Ada structures, unions or enums.
+	(new_symbol): Likewise for symbols.
+
 2007-01-24  Nick Roberts  <nickrob@snap.net.nz>
 
 	* mi/mi-main.c (mi_cmd_execute): Call free_all_values.
diff --git a/gdb/dwarf2read.c b/gdb/dwarf2read.c
index 010b0bcb3f2..9894bf0f1e3 100644
--- a/gdb/dwarf2read.c
+++ b/gdb/dwarf2read.c
@@ -2004,7 +2004,8 @@ add_partial_symbol (struct partial_die_info *pdi, struct dwarf2_cu *cu)
 			   0, (CORE_ADDR) 0, cu->language, objfile);
 
       if (cu->language == language_cplus
-          || cu->language == language_java)
+          || cu->language == language_java
+          || cu->language == language_ada)
 	{
 	  /* For C++ and Java, these implicitly act as typedefs as well. */
 	  add_psymbol_to_list (actual_name, strlen (actual_name),
@@ -7231,7 +7232,8 @@ new_symbol (struct die_info *die, struct type *type, struct dwarf2_cu *cu)
 	       defines a typedef for the class.  Synthesize a typedef symbol
 	       so that "ptype foo" works as expected.  */
 	    if (cu->language == language_cplus
-		|| cu->language == language_java)
+		|| cu->language == language_java
+		|| cu->language == language_ada)
 	      {
 		struct symbol *typedef_sym = (struct symbol *)
 		  obstack_alloc (&objfile->objfile_obstack,