[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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 7fe98a6d73df59eca542f00029f0816d2b764240..bde7a0eee81efdd7737b3968cda30b38da3fd9fb 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+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.

diff --git a/gcc/ada/atree.adb b/gcc/ada/atree.adb
index 102d7f6a08aa13d9dae40a3cc8635235d5db8b0c..c7889779e7757b12d760e878c85886db727ff14e 100644 (file)
--- 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;