diff options
| author | Javier Miranda <miranda@adacore.com> | 2018-07-16 14:10:53 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2018-07-16 14:10:53 +0000 |
| commit | 2588c36c2ea1f62176b07268fa7a8e0cedeb4fbf (patch) | |
| tree | 9e12ebbb5565606f7e29cdfe3ba230ebfafda2e0 /gcc | |
| parent | d7925fd3cda9be7ad30d6fe658142500e36c5b39 (diff) | |
| download | gcc-2588c36c2ea1f62176b07268fa7a8e0cedeb4fbf.zip gcc-2588c36c2ea1f62176b07268fa7a8e0cedeb4fbf.tar.gz gcc-2588c36c2ea1f62176b07268fa7a8e0cedeb4fbf.tar.bz2 | |
[Ada] Bit_Order cannot be defined for record extensions
This patch allows the compiler to report an error on Bit_Order when
defined for a record extension.
2018-07-16 Javier Miranda <miranda@adacore.com>
gcc/ada/
* sem_ch13.adb (Analyze_Attribute_Definition_Clause): Report an error
on Bit_Order when defined for a record extension.
gcc/testsuite/
* gnat.dg/bit_order1.adb: New testcase.
From-SVN: r262712
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/sem_ch13.adb | 6 | ||||
| -rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/testsuite/gnat.dg/bit_order1.adb | 18 |
4 files changed, 33 insertions, 0 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index a09f67f..51b73f8 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2018-07-16 Javier Miranda <miranda@adacore.com> + + * sem_ch13.adb (Analyze_Attribute_Definition_Clause): Report an error + on Bit_Order when defined for a record extension. + 2018-07-16 Arnaud Charlet <charlet@adacore.com> * libgnat/s-objrea.ads: Minor code clean up. diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb index ad9e9a1..17b138d 100644 --- a/gcc/ada/sem_ch13.adb +++ b/gcc/ada/sem_ch13.adb @@ -5331,6 +5331,12 @@ package body Sem_Ch13 is Error_Msg_N ("Bit_Order can only be defined for record type", Nam); + elsif Is_Tagged_Type (U_Ent) + and then Is_Derived_Type (U_Ent) + then + Error_Msg_N + ("Bit_Order cannot be defined for record extensions", Nam); + elsif Duplicate_Clause then null; diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index f73096e..df006b6 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,5 +1,9 @@ 2018-07-16 Javier Miranda <miranda@adacore.com> + * gnat.dg/bit_order1.adb: New testcase. + +2018-07-16 Javier Miranda <miranda@adacore.com> + * gnat.dg/iter2.adb, gnat.dg/iter2.ads: New testcase. 2018-07-16 Richard Biener <rguenther@suse.de> diff --git a/gcc/testsuite/gnat.dg/bit_order1.adb b/gcc/testsuite/gnat.dg/bit_order1.adb new file mode 100644 index 0000000..5fe813b --- /dev/null +++ b/gcc/testsuite/gnat.dg/bit_order1.adb @@ -0,0 +1,18 @@ +-- { dg-do compile } + +with System; + +procedure Bit_Order1 is + + type Sample_Ttype is tagged record + Data : Natural; + end record; + + type Other_Type is new Sample_Ttype with record + Other_Data : String (1 .. 100); + end record; + + for Other_Type'Bit_Order use System.High_Order_First; -- { dg-error "Bit_Order cannot be defined for record extensions" } +begin + null; +end; |