diff options
| author | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-12-11 22:25:15 +0000 |
|---|---|---|
| committer | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-12-11 22:25:15 +0000 |
| commit | 713c00d6e9a38f64b81a98e60b5533cf75d5602d (patch) | |
| tree | 844738a58b7846d7b377fd3594707376a50f0602 /gcc/ada/sem_ch3.adb | |
| parent | c2b56224d60d27cd619e50d0a5250219ea251975 (diff) | |
| download | gcc-713c00d6e9a38f64b81a98e60b5533cf75d5602d.tar.gz | |
* sem_ch3.adb: Clarify some ???.
* exp_util.adb (Must_Be_Aligned): Removed, replaced by
Exp_Pakd.Known_Aligned_Enough
* sem_ch13.adb (Check_Address_Alignment): Removed, extended
version is moved to Exp_Ch13.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@47899 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sem_ch3.adb')
| -rw-r--r-- | gcc/ada/sem_ch3.adb | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb index dff460cfca2..dcae6f96854 100644 --- a/gcc/ada/sem_ch3.adb +++ b/gcc/ada/sem_ch3.adb @@ -7306,7 +7306,7 @@ package body Sem_Ch3 is Suffix_Index : Nat) is Def_Id : Entity_Id; - R : Node_Id; + R : Node_Id := Empty; Checks_Off : Boolean := False; T : constant Entity_Id := Etype (Index); @@ -7408,8 +7408,6 @@ package body Sem_Ch3 is Set_RM_Size (Def_Id, RM_Size (T)); Set_First_Rep_Item (Def_Id, First_Rep_Item (T)); - -- ??? ??? is R always initialized, not at all obvious why? - Set_Scalar_Range (Def_Id, R); Set_Etype (S, Def_Id); @@ -10333,12 +10331,8 @@ package body Sem_Ch3 is -- The parser guarantees that the attribute is a RANGE attribute - -- Is order critical here (setting T before Resolve). If so, - -- document why, if not use Analyze_And_Resolve and get T after??? - - Analyze (I); + Analyze_And_Resolve (I); T := Etype (I); - Resolve (I, T); R := I; -- If none of the above, must be a subtype. We convert this to a |