diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-07-15 09:38:34 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-07-15 09:38:34 +0000 |
| commit | 12308590e4cef9c7d707c0401ead28a5445593da (patch) | |
| tree | 439c660991c7ccaba025ac153ec4d00b702988ff /gcc/ada/lib-xref.adb | |
| parent | cf77400807ed1cd8057a06a51ef5a773ea156878 (diff) | |
| download | gcc-12308590e4cef9c7d707c0401ead28a5445593da.tar.gz | |
2009-07-15 Robert Dewar <dewar@adacore.com>
* switch-c.adb, sem_ch10.adb, sem_warn.adb, sem_warn.ads: Implement
new switch -gnatw.g.
(Set_GNAT_Mode_Warnings): New procedure.
* lib-xref.adb: Minor reformatting
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@149666 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/lib-xref.adb')
| -rw-r--r-- | gcc/ada/lib-xref.adb | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/gcc/ada/lib-xref.adb b/gcc/ada/lib-xref.adb index 0e45e2e2bf6..2f0c9ae44ee 100644 --- a/gcc/ada/lib-xref.adb +++ b/gcc/ada/lib-xref.adb @@ -1464,7 +1464,6 @@ package body Lib.Xref is if Name_Len /= Curlen then return True; - else return Name_Buffer (1 .. Curlen) /= Curnam (1 .. Curlen); end if; @@ -1543,7 +1542,7 @@ package body Lib.Xref is -- Used for {} or <> or () for type reference procedure Check_Type_Reference - (Ent : Entity_Id; + (Ent : Entity_Id; List_Interface : Boolean); -- Find whether there is a meaningful type reference for -- Ent, and display it accordingly. If List_Interface is @@ -1565,7 +1564,7 @@ package body Lib.Xref is -------------------------- procedure Check_Type_Reference - (Ent : Entity_Id; + (Ent : Entity_Id; List_Interface : Boolean) is begin |