diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-04-06 09:25:29 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-04-06 09:25:29 +0000 |
| commit | 59ac57b560f56b6c7944751f579fcedcfa22bc15 (patch) | |
| tree | 5452d8d7f7de1a366e554e6d5ccd84c49ad180c9 /gcc/ada/sem_ch13.ads | |
| parent | 271c020ead1f48b22927837e9617a5dc78bbbe9e (diff) | |
| download | gcc-59ac57b560f56b6c7944751f579fcedcfa22bc15.tar.gz | |
2007-04-06 Robert Dewar <dewar@adacore.com>
* sem_ch13.ads, sem_ch13.adb (Adjust_Record_For_Reverse_Bit_Order):
Use First/Next_Component_Or_Discriminant
(Analyze_Record_Representation_Clause):
Use First/Next_Component_Or_Discriminant
(Check_Component_Overlap): Use First/Next_Component_Or_Discriminant
(Analyze_Attribute_Definition_Clause, case Value_Size): Reject
definition if type is unconstrained.
(Adjust_Record_For_Reverse_Bit_Order): New procedure
(Analyze_Attribute_Definition_Clause): Split Is_Abstract flag into
Is_Abstract_Subprogram and Is_Abstract_Type.
(Adjust_Record_For_Reverse_Bit_Order): New procedure
* repinfo.adb (List_Record_Info): Use First/
Next_Component_Or_Discriminant.
* style.ads, styleg-c.adb, styleg-c.ads (Check_Array_Attribute_Index):
New procedure.
* stylesw.ads, stylesw.adb: Recognize new -gnatyA style switch
Include -gnatyA in default switches
* opt.ads: (Warn_On_Non_Local_Exception): New flag
(Warn_On_Reverse_Bit_Order): New flag
(Extensions_Allowed): Update the documentation.
(Warn_On_Questionable_Missing_Parens): Now on by default
* usage.adb: Add documentation of -gnatw.x/X switches
Document new -gnatyA style switch
-gnatq warnings are on by default
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@123590 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sem_ch13.ads')
| -rw-r--r-- | gcc/ada/sem_ch13.ads | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/gcc/ada/sem_ch13.ads b/gcc/ada/sem_ch13.ads index 288e3007a1f..1da73e2f1c0 100644 --- a/gcc/ada/sem_ch13.ads +++ b/gcc/ada/sem_ch13.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2006, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -35,6 +35,13 @@ package Sem_Ch13 is procedure Analyze_Record_Representation_Clause (N : Node_Id); procedure Analyze_Code_Statement (N : Node_Id); + 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 Ada 2005 AI-133. Note that this is only + -- called in Ada 2005 mode. The Ada 95 handling for bit order is entirely + -- contained in Freeze. + procedure Initialize; -- Initialize internal tables for new compilation |