diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2018-07-17 08:12:08 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2018-07-17 08:12:08 +0000 |
| commit | e164710e27346c3a9450416afaea2190c1055a95 (patch) | |
| tree | 6141acdfcdb8c9f8d3f917b61bb08a6538e42669 /gcc | |
| parent | b3d18092b60c74ebabdb0cb596d4435b14859130 (diff) | |
| download | gcc-e164710e27346c3a9450416afaea2190c1055a95.zip gcc-e164710e27346c3a9450416afaea2190c1055a95.tar.gz gcc-e164710e27346c3a9450416afaea2190c1055a95.tar.bz2 | |
[Ada] Reuse Is_Rewrite_Substitution in Relocate_Node
Semantics not affected; the reused routine is exactly the same as the replaced
condition.
2018-07-17 Piotr Trojanek <trojanek@adacore.com>
gcc/ada/
* atree.adb (Relocate_Node): Simplify with Is_Rewrite_Substitution.
From-SVN: r262799
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/atree.adb | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 7fe98a6..bde7a0e 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,9 @@ 2018-07-17 Piotr Trojanek <trojanek@adacore.com> + * atree.adb (Relocate_Node): Simplify with Is_Rewrite_Substitution. + +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. diff --git a/gcc/ada/atree.adb b/gcc/ada/atree.adb index 102d7f6..c788977 100644 --- a/gcc/ada/atree.adb +++ b/gcc/ada/atree.adb @@ -2186,7 +2186,7 @@ package body Atree is -- If the node being relocated was a rewriting of some original node, -- then the relocated node has the same original node. - if Orig_Nodes.Table (Source) /= Source then + if Is_Rewrite_Substitution (Source) then Orig_Nodes.Table (New_Node) := Orig_Nodes.Table (Source); end if; |