diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2018-07-17 08:11:49 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2018-07-17 08:11:49 +0000 |
| commit | b3d18092b60c74ebabdb0cb596d4435b14859130 (patch) | |
| tree | 68702370df01d9eca208c3e764e62c2a98a72235 /gcc | |
| parent | 02fd37f505a164d921432503748a6f772a8f08c5 (diff) | |
| download | gcc-b3d18092b60c74ebabdb0cb596d4435b14859130.zip gcc-b3d18092b60c74ebabdb0cb596d4435b14859130.tar.gz gcc-b3d18092b60c74ebabdb0cb596d4435b14859130.tar.bz2 | |
[Ada] Fix RM rule references
2018-07-17 Piotr Trojanek <trojanek@adacore.com>
gcc/ada/
* sem_util.ads (Denotes_Same_Object): Likewise.
* sem_warn.adb (Warn_On_Overlapping_Actuals): Fix RM rule references.
From-SVN: r262798
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/sem_util.ads | 2 | ||||
| -rw-r--r-- | gcc/ada/sem_warn.adb | 5 |
3 files changed, 8 insertions, 4 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 662c099..7fe98a6 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2018-07-17 Piotr Trojanek <trojanek@adacore.com> + + * sem_util.ads (Denotes_Same_Object): Likewise. + * sem_warn.adb (Warn_On_Overlapping_Actuals): Fix RM rule references. + 2018-07-17 Eric Botcazou <ebotcazou@adacore.com> * exp_disp.adb (Make_Tags): When the type has user-defined primitives, diff --git a/gcc/ada/sem_util.ads b/gcc/ada/sem_util.ads index 21a74ae..aec3644 100644 --- a/gcc/ada/sem_util.ads +++ b/gcc/ada/sem_util.ads @@ -585,7 +585,7 @@ package Sem_Util is function Denotes_Same_Object (A1, A2 : Node_Id) return Boolean; -- Detect suspicious overlapping between actuals in a call, when both are - -- writable (RM 2012 6.4.1(6.4/3)) + -- writable (RM 2012 6.4.1(6.4/3)). function Denotes_Same_Prefix (A1, A2 : Node_Id) return Boolean; -- Functions to detect suspicious overlapping between actuals in a call, diff --git a/gcc/ada/sem_warn.adb b/gcc/ada/sem_warn.adb index 7c3254e..ee0ec6d 100644 --- a/gcc/ada/sem_warn.adb +++ b/gcc/ada/sem_warn.adb @@ -3630,9 +3630,8 @@ package body Sem_Warn is Form1 : Entity_Id; Form2 : Entity_Id; Warn_Only : Boolean; - -- GNAT warns on overlapping in-out parameters even when there are no - -- two in-out parameters of an elementary type, as stated in - -- RM 6.5.1 (17/2). + -- GNAT warns on overlapping in-out parameters of any type, not just for + -- elementary in-out parameters (as specified in RM 6.4.1 (15/3-17/3)). -- Start of processing for Warn_On_Overlapping_Actuals |