diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-02-06 15:04:00 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-02-06 15:04:00 +0100 |
| commit | 8c35b40a37767f63bdad36db3bb1c16f3c5f7c6b (patch) | |
| tree | 8ed832555c23ba4c1f736509726a1bf9e9908742 /gcc/ada/lib-xref.adb | |
| parent | 0a756a3ffc875e13842708c8affcce48c9644dc7 (diff) | |
| download | gcc-8c35b40a37767f63bdad36db3bb1c16f3c5f7c6b.zip gcc-8c35b40a37767f63bdad36db3bb1c16f3c5f7c6b.tar.gz gcc-8c35b40a37767f63bdad36db3bb1c16f3c5f7c6b.tar.bz2 | |
[multiple changes]
2014-02-06 Robert Dewar <dewar@adacore.com>
* sem_ch3.adb, sem_prag.adb, sem_res.adb, lib-xref.adb: Minor
reformatting.
2014-02-06 Hristian Kirtchev <kirtchev@adacore.com>
* sem_ch6.adb (Process_Formals): Error message reformatting.
From-SVN: r207555
Diffstat (limited to 'gcc/ada/lib-xref.adb')
| -rw-r--r-- | gcc/ada/lib-xref.adb | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/gcc/ada/lib-xref.adb b/gcc/ada/lib-xref.adb index fbbdc3f..28c5dbb 100644 --- a/gcc/ada/lib-xref.adb +++ b/gcc/ada/lib-xref.adb @@ -1069,7 +1069,7 @@ package body Lib.Xref is end if; Add_Entry - ((Ent => Ent, + ((Ent => Ent, Loc => Ref, Typ => Actual_Typ, Eun => Get_Source_Unit (Def), @@ -1612,11 +1612,11 @@ package body Lib.Xref is and then Sloc (E) > No_Location then Add_Entry - ((Ent => E, - Loc => No_Location, - Typ => Character'First, - Eun => Get_Source_Unit (Original_Location (Sloc (E))), - Lun => No_Unit, + ((Ent => E, + Loc => No_Location, + Typ => Character'First, + Eun => Get_Source_Unit (Original_Location (Sloc (E))), + Lun => No_Unit, Ref_Scope => Empty, Ent_Scope => Empty), Ent_Scope_File => No_Unit); @@ -1700,11 +1700,11 @@ package body Lib.Xref is if Present (Prim) then Add_Entry - ((Ent => Prim, - Loc => No_Location, - Typ => Character'First, - Eun => Get_Source_Unit (Sloc (Prim)), - Lun => No_Unit, + ((Ent => Prim, + Loc => No_Location, + Typ => Character'First, + Eun => Get_Source_Unit (Sloc (Prim)), + Lun => No_Unit, Ref_Scope => Empty, Ent_Scope => Empty), Ent_Scope_File => No_Unit); |