diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2010-10-11 10:03:01 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-10-11 12:03:01 +0200 |
| commit | cead616d5659c95f8981a1b1f735fa7aea02de0f (patch) | |
| tree | 381d5c795062282be04a9e5aeeba3be5e3792306 | |
| parent | 1b0b0f1870c7f6ee14b68d52cec2aca7f6b5084d (diff) | |
| download | gcc-cead616d5659c95f8981a1b1f735fa7aea02de0f.zip gcc-cead616d5659c95f8981a1b1f735fa7aea02de0f.tar.gz gcc-cead616d5659c95f8981a1b1f735fa7aea02de0f.tar.bz2 | |
* xr_tabls.adb, sem_res.adb: Minor reformattingem_res.adb
From-SVN: r165292
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/sem_res.adb | 6 | ||||
| -rw-r--r-- | gcc/ada/xr_tabls.adb | 9 |
3 files changed, 11 insertions, 8 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index be1da2d..9fca74b 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,9 @@ 2010-10-11 Arnaud Charlet <charlet@adacore.com> + * xr_tabls.adb, sem_res.adb: Minor reformatting + +2010-10-11 Arnaud Charlet <charlet@adacore.com> + * gnat_rm.texi, exp_attr.adb, sem_attr.adb, sem_attr.ads, snames.ads-tmpl (Analyze_Attribute, Expand_N_Attribute_Reference): Add handling of Attribute_Ref. Add missing blanks in some error messages. diff --git a/gcc/ada/sem_res.adb b/gcc/ada/sem_res.adb index 3cd4c76..93ad74d 100644 --- a/gcc/ada/sem_res.adb +++ b/gcc/ada/sem_res.adb @@ -8380,9 +8380,9 @@ package body Sem_Res is if not Tagged_Type_Expansion or else not (RTU_Loaded (Ada_Tags) - and then Nkind (Prefix (N)) = N_Selected_Component - and then Present (Entity (Selector_Name (Prefix (N)))) - and then Entity (Selector_Name (Prefix (N))) = + and then Nkind (Prefix (N)) = N_Selected_Component + and then Present (Entity (Selector_Name (Prefix (N)))) + and then Entity (Selector_Name (Prefix (N))) = RTE_Record_Component (RE_Prims_Ptr)) then Apply_Range_Check (Drange, Etype (Index)); diff --git a/gcc/ada/xr_tabls.adb b/gcc/ada/xr_tabls.adb index 29021aa..eea7fcb 100644 --- a/gcc/ada/xr_tabls.adb +++ b/gcc/ada/xr_tabls.adb @@ -453,11 +453,10 @@ package body Xr_Tabls is Source_Line => null, Next => null); - -- We can insert the reference in the list directly, since all - -- the references will appear only once in the ALI file - -- corresponding to the file where they are referenced. - -- This saves a lot of time compared to checking the list to check - -- if it exists. + -- We can insert the reference into the list directly, since all the + -- references will appear only once in the ALI file corresponding to the + -- file where they are referenced. This saves a lot of time compared to + -- checking the list to check if it exists. case Ref_Type is when 'b' | 'c' => |