diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-05-21 12:54:48 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-05-21 12:54:48 +0200 |
| commit | 313822494eef43225468cae7ca35170f2ed5af09 (patch) | |
| tree | b63e571e8f2e37ca4eb2a2773d5fc9d97f18c418 /gcc/ada/sem_util.adb | |
| parent | 6413dd818096d3d76b6da424f454da7638bfe847 (diff) | |
| download | gcc-313822494eef43225468cae7ca35170f2ed5af09.zip gcc-313822494eef43225468cae7ca35170f2ed5af09.tar.gz gcc-313822494eef43225468cae7ca35170f2ed5af09.tar.bz2 | |
[multiple changes]
2014-05-21 Ed Schonberg <schonberg@adacore.com>
* sem_util.adb: Code clean up.
2014-05-21 Eric Botcazou <ebotcazou@adacore.com>
* gnat_ugn.texi: Document -Werror.
From-SVN: r210691
Diffstat (limited to 'gcc/ada/sem_util.adb')
| -rw-r--r-- | gcc/ada/sem_util.adb | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index 13e74da..70f7fd4 100644 --- a/gcc/ada/sem_util.adb +++ b/gcc/ada/sem_util.adb @@ -5521,10 +5521,12 @@ package body Sem_Util is -- An actual that is the prefix in a prefixed call may have -- been rewritten in the call, after the deferred reference - -- was collected. Check if sloc and kinds match. + -- was collected. Check if sloc and kinds and names match. elsif Sloc (Actual) = Sloc (N) + and then Nkind (Actual) = N_Identifier and then Nkind (Actual) = Nkind (N) + and then Chars (Actual) = Chars (N) then return; @@ -9789,7 +9791,7 @@ package body Sem_Util is if Is_Variable (Object) or else (Ada_Version >= Ada_2005 - and then Nkind (Deref) = N_Explicit_Dereference) + and then Nkind (Deref) = N_Explicit_Dereference) then if Nkind (Object) = N_Selected_Component then P := Prefix (Object); |