decl.c (gnat_to_gnu_entity): Use record type instead of enumeral type as the…

decl.c (gnat_to_gnu_entity): Use record type instead of enumeral type as the dummy type built for the...

	* gcc-interface/decl.c (gnat_to_gnu_entity) <E_Access_Type>: Use record
	type instead of enumeral type as the dummy type built for the template
	type of fat pointers.

From-SVN: r164417

gcc/ada/ChangeLog

 2010-09-19  Eric Botcazou  <ebotcazou@adacore.com>
 
+	* gcc-interface/decl.c (gnat_to_gnu_entity) <E_Access_Type>: Use record
+	type instead of enumeral type as the dummy type built for the template
+	type of fat pointers.
+
+2010-09-19  Eric Botcazou  <ebotcazou@adacore.com>
+
 	* gcc-interface/gigi.h (get_elaboration_procedure): Declare.
 	(gnat_zaplevel): Likewise.
 	* gcc-interface/decl.c (gnat_to_gnu_entity): Do not force global

gcc/ada/gcc-interface/decl.c

@@ -3558,7 +3558,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition)
 	    gnu_type = TYPE_POINTER_TO (gnu_desig_type);
 	    if (!gnu_type)
 	      {
-		tree gnu_template_type = make_node (ENUMERAL_TYPE);
+		tree gnu_template_type = make_node (RECORD_TYPE);
 		tree gnu_ptr_template = build_pointer_type (gnu_template_type);
 		tree gnu_array_type = make_node (ENUMERAL_TYPE);
 		tree gnu_ptr_array = build_pointer_type (gnu_array_type);