diff options
| author | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2010-05-08 11:02:08 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2010-05-08 11:02:08 +0000 |
| commit | 928dfa4bd0a32e35a8366d7ef21323a76f54a97c (patch) | |
| tree | 2593094f791734fc31513027f5e49a230b7b4e17 /gcc/testsuite | |
| parent | d5a8e96fa1155b0447c2a76556c08912933689eb (diff) | |
| download | gcc-928dfa4bd0a32e35a8366d7ef21323a76f54a97c.zip gcc-928dfa4bd0a32e35a8366d7ef21323a76f54a97c.tar.gz gcc-928dfa4bd0a32e35a8366d7ef21323a76f54a97c.tar.bz2 | |
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
Diffstat (limited to 'gcc/testsuite')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gnat.dg/sizetype3.adb | 20 | ||||
| -rw-r--r-- | gcc/testsuite/gnat.dg/sizetype3.ads | 8 | ||||
| -rw-r--r-- | gcc/testsuite/gnat.dg/sizetype3_pkg.ads | 7 |
4 files changed, 40 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 08da4e6..3435fdf 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2010-05-08 Quentin Ochem <ochem@adacore.com> + + * gnat.dg/sizetype3.ad[sb]: New test. + * gnat.dg/sizetype3_pkg.ads: New helper. + 2010-05-07 Fabien Chêne <fabien.chene@gmail.com> PR c++/43951 diff --git a/gcc/testsuite/gnat.dg/sizetype3.adb b/gcc/testsuite/gnat.dg/sizetype3.adb new file mode 100644 index 0000000..31bab11 --- /dev/null +++ b/gcc/testsuite/gnat.dg/sizetype3.adb @@ -0,0 +1,20 @@ +-- { dg-do compile } +-- { dg-options "-O" } + +with Sizetype3_Pkg; use Sizetype3_Pkg; + +package body Sizetype3 is + + procedure Handle_Enum_Values is + Values : constant List := F; + L : Values_Array_Access; + begin + L := new Values_Array (1 .. Values'Length); + end Handle_Enum_Values; + + procedure Simplify_Type_Of is + begin + Handle_Enum_Values; + end Simplify_Type_Of; + +end Sizetype3; diff --git a/gcc/testsuite/gnat.dg/sizetype3.ads b/gcc/testsuite/gnat.dg/sizetype3.ads new file mode 100644 index 0000000..f57e6ab --- /dev/null +++ b/gcc/testsuite/gnat.dg/sizetype3.ads @@ -0,0 +1,8 @@ +package Sizetype3 is + + type Values_Array is array (Positive range <>) of Integer; + type Values_Array_Access is access all Values_Array; + + procedure Simplify_Type_Of; + +end Sizetype3; diff --git a/gcc/testsuite/gnat.dg/sizetype3_pkg.ads b/gcc/testsuite/gnat.dg/sizetype3_pkg.ads new file mode 100644 index 0000000..ee03262 --- /dev/null +++ b/gcc/testsuite/gnat.dg/sizetype3_pkg.ads @@ -0,0 +1,7 @@ +package Sizetype3_Pkg is + + type List is array (Integer range <>) of Integer; + + function F return List; + +end Sizetype3_Pkg; |