diff options
| author | Thomas Quinot <quinot@adacore.com> | 2017-01-23 11:33:13 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-01-23 12:33:13 +0100 |
| commit | 52b70b1bef33b0a6a339c631b084cf030bc501e9 (patch) | |
| tree | f3f25445d145ac100f2433babca3f8a02c79478d /gcc/ada/sem_ch13.ads | |
| parent | 2a02fa985d8c474e0855f1354746f54a2b3fc749 (diff) | |
| download | gcc-52b70b1bef33b0a6a339c631b084cf030bc501e9.zip gcc-52b70b1bef33b0a6a339c631b084cf030bc501e9.tar.gz gcc-52b70b1bef33b0a6a339c631b084cf030bc501e9.tar.bz2 | |
sem_ch13.adb (Adjust_Record_For_Reverse_Bit_Order): Split original Ada 95 part off into new subprogram below.
2017-01-23 Thomas Quinot <quinot@adacore.com>
* sem_ch13.adb (Adjust_Record_For_Reverse_Bit_Order):
Split original Ada 95 part off into new subprogram
below. Call that subprogram (instead of proceeding with
AI95-0133 behaviour) if debug switch -gnatd.p is in use.
(Adjust_Record_For_Reverse_Bit_Order_Ada_95): ... new subprogram
* debug.adb Document new switch -gnatd.p
* freeze.adb (Freeze_Entity.Freeze_Record_Type): Do not adjust
record for reverse bit order if an error has already been posted
on the record type. This avoids generating extraneous "info:"
messages for illegal code.
From-SVN: r244786
Diffstat (limited to 'gcc/ada/sem_ch13.ads')
| -rw-r--r-- | gcc/ada/sem_ch13.ads | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/ada/sem_ch13.ads b/gcc/ada/sem_ch13.ads index 8003f8e..b99c56f 100644 --- a/gcc/ada/sem_ch13.ads +++ b/gcc/ada/sem_ch13.ads @@ -50,8 +50,9 @@ package Sem_Ch13 is procedure Adjust_Record_For_Reverse_Bit_Order (R : Entity_Id); -- Called from Freeze where R is a record entity for which reverse bit - -- order is specified and there is at least one component clause. Adjusts - -- component positions according to either Ada 95 or Ada 2005 (AI-133). + -- order is specified and there is at least one component clause. Note: + -- component positions are normally adjusted as per AI95-0133, unless + -- -gnatd.p is used to restore original Ada 95 mode. procedure Check_Record_Representation_Clause (N : Node_Id); -- This procedure completes the analysis of a record representation clause |