From 12e8621893f439f663fb2fcaaea67e676dc97eab Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Sun, 19 Sep 2010 13:55:36 +0000 Subject: 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) : 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 | 6 ++++++ gcc/ada/gcc-interface/decl.c | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) (limited to 'gcc/ada') diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index b91bd5c..44a8890 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,11 @@ 2010-09-19 Eric Botcazou + * gcc-interface/decl.c (gnat_to_gnu_entity) : Use record + type instead of enumeral type as the dummy type built for the template + type of fat pointers. + +2010-09-19 Eric Botcazou + * gcc-interface/gigi.h (get_elaboration_procedure): Declare. (gnat_zaplevel): Likewise. * gcc-interface/decl.c (gnat_to_gnu_entity): Do not force global diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c index 32b499b..d1b0279 100644 --- a/gcc/ada/gcc-interface/decl.c +++ b/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); -- cgit v1.1