diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-11 10:03:01 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-11 10:03:01 +0000 |
| commit | f422e2c4eaca1f04cbb42400da57ff223b0091ab (patch) | |
| tree | 381d5c795062282be04a9e5aeeba3be5e3792306 | |
| parent | 4f2ad752386f10ebc8a24a0f0113754e99a6a930 (diff) | |
| download | ppe42-gcc-f422e2c4eaca1f04cbb42400da57ff223b0091ab.tar.gz ppe42-gcc-f422e2c4eaca1f04cbb42400da57ff223b0091ab.zip | |
* xr_tabls.adb, sem_res.adb: Minor reformattingem_res.adb
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@165292 138bc75d-0d04-0410-961f-82ee72b054a4
| -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 be1da2d7af1..9fca74b674f 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 3cd4c767845..93ad74d217c 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 29021aa3e28..eea7fcbc97f 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' => |
