From 928dfa4bd0a32e35a8366d7ef21323a76f54a97c Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Sat, 8 May 2010 11:02:08 +0000 Subject: gigi.h (build_unc_object_type): Add DEBUG_INFO_P param. * gcc-interface/gigi.h (build_unc_object_type): Add DEBUG_INFO_P param. (build_unc_object_type_from_ptr): Likewise. * gcc-interface/utils.c (build_unc_object_type): Add DEBUG_INFO_P param and pass it to create_type_decl. Declare the type. Simplify. (build_unc_object_type_from_ptr): Add DEBUG_INFO_P parameter and pass it to build_unc_object_type. * gcc-interface/decl.c (gnat_to_gnu_entity): Adjust to above change. * gcc-interface/trans.c (Attribute_to_gnu): Likewise. (gnat_to_gnu): Likewise. * gcc-interface/utils2.c (build_allocator): Likewise. From-SVN: r159180 --- gcc/ada/gcc-interface/trans.c | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'gcc/ada/gcc-interface/trans.c') diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index 743a652..058aaa6 100644 --- a/gcc/ada/gcc-interface/trans.c +++ b/gcc/ada/gcc-interface/trans.c @@ -1446,7 +1446,8 @@ Attribute_to_gnu (Node_Id gnat_node, tree *gnu_result_type_p, int attribute) gnu_type = build_unc_object_type_from_ptr (gnu_ptr_type, gnu_actual_obj_type, - get_identifier ("SIZE")); + get_identifier ("SIZE"), + false); } gnu_result = TYPE_SIZE (gnu_type); @@ -5386,8 +5387,8 @@ gnat_to_gnu (Node_Id gnat_node) gnu_actual_obj_type = build_unc_object_type_from_ptr (gnu_ptr_type, gnu_actual_obj_type, - get_identifier - ("DEALLOC")); + get_identifier ("DEALLOC"), + false); } else gnu_actual_obj_type = gnu_obj_type; -- cgit v1.1