diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-05-06 09:03:57 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-05-06 09:03:57 +0000 |
| commit | 2f582d724268d2f007726a022170c807f61e6b39 (patch) | |
| tree | 4a186f295a6dc25425aa5f49e61f8fd57de10f54 /gcc/ada/freeze.adb | |
| parent | 38e9ad31b158ba7f719f7eb191ab40d856f1470f (diff) | |
| download | gcc-2f582d724268d2f007726a022170c807f61e6b39.tar.gz | |
2009-05-06 Ed Schonberg <schonberg@adacore.com>
* sem_ch8.adb (Analyze_Object_Renaming): If the object is a function
call returning an unconstrained composite value, create the proper
subtype for it, as is done for object dclarations with unconstrained
nominal subtypes
2009-05-06 Robert Dewar <dewar@adacore.com>
* sem_ch13.adb (Check_Constant_Address_Clause): Minor error message
improvements
* freeze.adb: Minor reformatting
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@147156 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/freeze.adb')
| -rw-r--r-- | gcc/ada/freeze.adb | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/gcc/ada/freeze.adb b/gcc/ada/freeze.adb index fdacb091afc..7d6491bc4a3 100644 --- a/gcc/ada/freeze.adb +++ b/gcc/ada/freeze.adb @@ -2849,7 +2849,7 @@ package body Freeze is and then Rsiz mod System_Storage_Unit /= 0 then -- For implicit packing mode, just set the - -- component size silently + -- component size silently. if Implicit_Packing then Set_Component_Size (Btyp, Rsiz); @@ -3245,7 +3245,7 @@ package body Freeze is -- later when the full type is frozen). elsif Ekind (E) = E_Record_Type - or else Ekind (E) = E_Record_Subtype + or else Ekind (E) = E_Record_Subtype then Freeze_Record_Type (E); @@ -3263,7 +3263,6 @@ package body Freeze is end if; Comp := First_Entity (E); - while Present (Comp) loop if Is_Type (Comp) then Freeze_And_Append (Comp, Loc, Result); |