diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-10-27 12:15:27 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-10-27 12:15:27 +0100 |
| commit | 5c12e9fbefcf47363492098361c74d7fabdf9e3a (patch) | |
| tree | 1c17f0bb0f75174d860c6386af938e093c41f5db /gcc/ada/lib-xref.adb | |
| parent | b3010f3667e577297811fe4b106c0f32c93af7db (diff) | |
| download | gcc-5c12e9fbefcf47363492098361c74d7fabdf9e3a.zip gcc-5c12e9fbefcf47363492098361c74d7fabdf9e3a.tar.gz gcc-5c12e9fbefcf47363492098361c74d7fabdf9e3a.tar.bz2 | |
[multiple changes]
2015-10-27 Pascal Obry <obry@adacore.com>
* a-dirval-mingw.adb: Remove some characters from Invalid_Character set.
2015-10-27 Ed Schonberg <schonberg@adacore.com>
* exp_ch6.adb (Rewrite_Function_Call_For_C): Use a named
associaion for the added actual in the call because previous
actuals may also have been given by explicit associations.
* lib-xref.adb: Minor style fixes.
From-SVN: r229416
Diffstat (limited to 'gcc/ada/lib-xref.adb')
| -rw-r--r-- | gcc/ada/lib-xref.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/lib-xref.adb b/gcc/ada/lib-xref.adb index b6c9a0e..f84a211 100644 --- a/gcc/ada/lib-xref.adb +++ b/gcc/ada/lib-xref.adb @@ -66,7 +66,7 @@ package body Lib.Xref is Loc : Source_Ptr; -- Location of reference (Original_Location (Sloc field of N parameter - -- to Generate_Reference). Set to No_Location for the case of a + -- to Generate_Reference)). Set to No_Location for the case of a -- defining occurrence. Typ : Character; @@ -622,7 +622,7 @@ package body Lib.Xref is -- Do not generate references if we are within a postcondition sub- -- program, because the reference does not comes from source, and the - -- pre-analysis of the aspect has already created an entry for the ali + -- pre-analysis of the aspect has already created an entry for the ALI -- file at the proper source location. if Chars (Current_Scope) = Name_uPostconditions then @@ -1073,7 +1073,7 @@ package body Lib.Xref is end if; Add_Entry - ((Ent => Ent, + ((Ent => Ent, Loc => Ref, Typ => Actual_Typ, Eun => Get_Code_Unit (Def), @@ -1120,7 +1120,7 @@ package body Lib.Xref is and then In_Extended_Main_Source_Unit (N) then -- Handle case in which the full-view and partial-view of the - -- first private entity are swapped + -- first private entity are swapped. declare First_Private : Entity_Id := First_Private_Entity (E); |