git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

* xr_tabls.adb, sem_res.adb: Minor reformattingem_res.adb 

From-SVN: r165292
This commit is contained in:
Arnaud Charlet 2010-10-11 10:03:01 +00:00 committed by Arnaud Charlet
parent 1b0b0f1870
commit cead616d56
3 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/ada/ChangeLog
View File

@ -1,3 +1,7 @@
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,

6
gcc/ada/sem_res.adb
View File

@ -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));

9
gcc/ada/xr_tabls.adb
View File

@ -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' =>